Word галлюцинирует, прошу помощи

[Bagathur]

Есть код, без проблем работавший несколько лет на разных компах и разных версия Офиса.
После перестановки 2003-ого Офиса на одном из компов начались непонятные события - сперва вылезала ошибка "Automation error", теперь вылезает ошибка №48 - "Error in loading DLL".

Собственно, сам код -

Код: Выделить всё

Dim objWord As New Word.Application
Dim objWordDoc As Object
    Dim wapp As Object
    Dim wdoc As Object

Public Sub ОткрытьДокументы()

FOpenable = False
Call CheckFile(fname)
If FOpenable = False Then Exit Sub
DoEvents

Select Case Right(fname, 4)
Case ".doc"
'Set objWord = CreateObject("Word.Application")
objWord.Visible = True 'Здесь вылетает ошибка
Set objWordDoc = objWord.Documents.Open(fname) 'Раньше ошибка была здесь
objWordDoc.Application.Activate

В коде никаких изменений не было, проблема на 99.9% связана с перестановкой офиса. Библиотеки 10-ого ворда и ActiveX подключены.
С чем связана проблема и какие есть пути её решения..?

[Денис]

Как всегда, мусорим неуничтоженными объектами.
Вот исправленый код:

Код: Выделить всё

Option Explicit

Private objWord As New Word.Application
Private objWordDoc As Object
Private wapp As Object
Private wdoc As Object
Private FOpenable As Boolean

Private Const FName As String = "E:\Документы\none.doc"

Public Sub ОткрытьДокументы()

    FOpenable = False
    CheckFile (FName)
    If FOpenable = False Then Exit Sub
    DoEvents

    Select Case Right(FName, 4)
        Case ".doc"
            'Set objWord = CreateObject("Word.Application")
            objWord.Visible = True 'Здесь вылетает ошибка
            Set objWordDoc = objWord.Documents.Open(FName) 'Раньше ошибка была здесь
            objWordDoc.Application.Activate

    End Select

    'УНИЧТОЖАЕМ ССЫЛКИ НА СВОИ ОБЪЕКТЫ
    Set objWordDoc = Nothing
    Set objWord = Nothing

End Sub

Private Sub CheckFile(Path As String)
    FOpenable = True
End Sub


[atom_nb]

А что у вас закоменчено

Код: Выделить всё

'Set objWord = CreateObject("Word.Application")

Помню случай, когда CreateObject( ) вообще в системе не работало.
Притом для любого офисного приложения. Но это было давно, во времена Windows 98 и решалось переустановкой

[Денис]

А что у вас закоменчено

Полагаю, он отлаживает в VBA будущий скрипт. Когда наступит время, он сохранит код в *.VBS и откомментит эту строку.
Альтернативная точка зрения, он начал использовать ключевое слово New прямо в объявлении переменной, что упразднило использование CreateObject

[Bagathur]

Спасибо за помощь, вроде более/менее удалось разобраться

Дело не в "замусоривании" неуничтоженными объектами, если привести более полный код, то написано вот так:

Код: Выделить всё

Select Case Right(fname, 4)
Case ".doc"

objWord.Visible = True
Set objWordDoc = objWord.Documents.Open(fname)
objWordDoc.Application.Activate

    With objWord.Documents(objWordDoc)
   'Здесь ряд операций по обработке и записи данных
    End With
   
    ActiveDocument.SaveAs Filename:=sname
    objWordDoc.Close wdDoNotSaveChanges
    Set objWordDoc = Nothing
'Окно Ворда используется в последующих операциях


Откаменченное

Код: Выделить всё

'Set objWord = CreateObject("Word.Application")


возникло уже в ходе отладки при попытке сделать более позднее объявление объекта, чтобы исключить возможные проблемы с библиотеками, т.к. на компе обнаружились следы Офисов с 9 по 12ый включительно.
Как и писал Денис, в оригинальном коде стоит слово New в объявлении переменной.

В итоге многочасовых шаманств с бубнами оказалось, что файл с библиотекой 10-ого Ворда битый, причём нещадно. Очевидно - из-за кривой переустановки Офиса или кривых рук переустановщика (т.е., моих). Проблема решилась путём ручного копирования файла MSWORD.OLB с "нормального" компа на галлюцинирующий.