При запуске кода Visual Basic, использующего автоматизацию для управления Word, может появиться сообщение об ошибке "-2147023174" (800706ba)" или сообщение об ошибке времени выполнения "462".

Действия по воспроизведению поведения

1. Запустите новый проект EXE уровня "Стандартный" в Visual Basic. Форма Form1 создается по умолчанию.

2. Выберите ссылки в меню Проект , а затем выберите один из следующих параметров:

   • Для Office Word 2007 щелкните Библиотека объектов Microsoft Word 12.0.

   • Для Word 2003 щелкните Библиотека объектов Microsoft Word 11.0.

   • Для Word 2003 щелкните Библиотека объектов Microsoft Word 10.0.

   • Для Word 2000 щелкните Библиотека объектов Microsoft Word 9.0.

   • Для Word 97 щелкните Библиотека объектов Microsoft Word 8.0.

3. Поместите элемент CommandButton в Form1.

4. Скопируйте следующий код в окно кода Формы 1:

         Option Explicit
   
         Private Sub Command1_Click()
            Dim oWord As Word.Application
            Dim oDoc As Word.Document
            Dim oRange as Word.Range
   
            Set oWord = CreateObject("Word.Application")
            With oWord
                .Visible = True
                .Activate
                .WindowState = wdWindowStateNormal
            End With
   
            Set oDoc = oWord.Documents.Add
            MsgBox "Document open", vbMsgBoxSetForeground
            With oDoc
                .PageSetup.LeftMargin = InchesToPoints(1.25)
            End With
   
            ' This example inserts text at the end of section one.
            Set oRange = ActiveDocument.Sections(1).Range
            With oRange
                .MoveEnd Unit:=wdCharacter, Count:= -1
                .Collapse Direction:=wdCollapseEnd
                .InsertParagraphAfter
                .InsertAfter "End of section."
            End With
   
            With oDoc
                .Saved = True
            End With
   
            Set oRange = Nothing
            Set oDoc = Nothing
            oWord.Quit
            Set oWord = Nothing
         End Sub
   

5. В меню Выполнить щелкните Пуск или нажмите клавишу F5, чтобы запустить программу.

6. Щелкните Элемент CommandButton. Ошибка не возникает. Однако ссылка на Word создана и не выпущена.

7. Еще раз щелкните Элемент CommandButton и обратите внимание, что вы получили сообщение об ошибке, описанной ранее.
   
   Примечание. Ошибка возникает из-за того, что код ссылается на метод InchesToPoints без предварительного вызова с помощью объектной переменной oWord.

8. Остановите проект и измените следующую строку:

   .PageSetup.LeftMargin = InchesToPoints(1.25)
   

   -Кому-
   
    

   .PageSetup.LeftMargin = oWord.InchesToPoints(1.25)
   

9. Запустите программу еще раз. Затем щелкните элемент CommandButton. Ошибка не возникает.

10. Снова щелкните Элемент CommandButton и обратите внимание, что появится сообщение об ошибке.
    
    Примечание. Ошибка возникает из-за того, что код ссылается на объект ActiveDocument Section one's Range без предварительного вызова с переменной объекта oWord.

11. Остановите проект и измените следующую строку:

    Set oRange = ActiveDocument.Sections(1).Range
    

    -Кому-
     

    Set oRange = oWord.ActiveDocument.Sections(1).Range
    

12. Запустите программу еще раз. Обратите внимание, что код можно выполнить несколько раз без ошибок.

Если при создании проекта Visual Basic, автоматичного Word, если в проекте есть ссылка на библиотеку объектов Microsoft Word, пример кода для объектов, методов и свойств объектной модели Word доступен в файле справки Word. Когда курсор находится над ключевым словом в коде, вы увидите любой применимый текст справки, нажав клавишу F1.


Примером кода в разделе справки будет код microsoft Word Visual Basic для приложений. В нем не будут отображаться ссылки на объекты, необходимые для кода Visual Basic. Необходимо добавить квалификаторы соответствующим образом.