當您執行使用 Automation 控制Word的 Visual Basic 程式碼時，您可能會收到「執行時間錯誤'2147023174 (800706ba) 」錯誤訊息或「執行時間錯誤 '462'」

重現行為的步驟

1. 在 Visual Basic 中開始新的標準 EXE 專案。 表單1 預設為建立。

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，並注意您收到先前描述的錯誤。
   
   注意：發生錯誤的原因是程式碼參照的英吋ToPoints 方法，在呼叫之前沒有 oWord 物件變數。

8. 停止專案並變更下列行：

   .PageSetup.LeftMargin = InchesToPoints(1.25)
   

   -自-
   
    

   .PageSetup.LeftMargin = oWord.InchesToPoints(1.25)
   

9. 再次執行程式。 然後，按一下 CommandButton。 不會發生錯誤。

10. 再按一下 CommandButton，並注意您收到錯誤訊息。
    
    注意：發生錯誤的原因是程式碼參照 ActiveDocument Section one 的 Range 物件，而不會在呼叫前面加上 oWord 物件變數。

11. 停止專案並變更下列行：

    Set oRange = ActiveDocument.Sections(1).Range
    

    -自-
     

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

12. 再次執行程式。 請注意，您可以多次執行程式碼，而不會發生錯誤。

建立 Visual Basic 專案時，若您的專案有 Microsoft Word Word物件程式庫的參照，Word物件模型的物件、方法和屬性的範例程式碼可從Word說明檔案取得。 當游標停留在程式碼中的按鍵單字上方時，您會按 F1 鍵，看到任何適用的解說文字。


說明主題中的範例程式碼會是 Microsoft Word Visual Basic for Applications 程式碼。 它不會顯示 Visual Basic 程式碼需要的物件參照。 您必須視需要新增辨識符號。