Bạn có thể nhận được thông báo lỗi "thời gian chạy"-2147023174 ' (800706ba) "hoặc lỗi" thời gian chạy ' 462 ' "khi bạn chạy mã Visual Basic sử dụng tự động hóa để điều khiển Word

Các bước để tái tạo hành vi

1. Bắt đầu một dự án EXE tiêu chuẩn mới trong Visual Basic. Form1 được tạo theo mặc định.

2. Bấm tham chiếu từ menu dự án , rồi bấm vào một trong các tùy chọn sau:

   • Đối với Office Word 2007, hãy bấm Thư viện đối tượng Microsoft Word 12,0

   • Đối với Word 2003, hãy bấm Thư viện đối tượng Microsoft Word 11,0

   • Đối với Word 2003, hãy bấm Thư viện đối tượng Microsoft Word 10,0

   • Đối với Word 2000, bấm vào Thư viện đối tượng Microsoft Word 9,0.

   • Đối với Word 97, bấm vào Thư viện đối tượng Microsoft Word 8,0.

3. Đặt một nút Commanda trên Form1.

4. Sao chép mã sau đây vào cửa sổ mã của Form1:

         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. Trên menu chạy , bấm vào bắt đầu hoặc nhấn phím F5 để bắt đầu chương trình.

6. Bấm vào nút Commandor. Không có lỗi nào xảy ra. Tuy nhiên, tham chiếu đến Word đã được tạo ra và chưa được phát hành.

7. Bấm vào nút Commandagain và lưu ý rằng bạn nhận được lỗi đã được mô tả trước đó.Lưu ý Lỗi xảy ra vì mã tham chiếu đến phương pháp InchesToPoints mà không có trước cuộc gọi với biến đối tượng oWord.

8. Ngừng dự án và thay đổi dòng sau đây:

   .PageSetup.LeftMargin = InchesToPoints(1.25)

   cho

   .PageSetup.LeftMargin = oWord.InchesToPoints(1.25)

9. Chạy lại chương trình. Sau đó, bấm vào nút Commandor. Không có lỗi nào xảy ra.

10. Bấm vào nút Commandagain và lưu ý rằng bạn nhận được lỗi.Lưu ý Lỗi xảy ra vì mã tham chiếu đến đối tượng phạm vi ActiveDocument của một trong số đó mà không có trước cuộc gọi với biến đối tượng oWord.

11. Ngừng dự án và thay đổi dòng sau đây:

    Set oRange = ActiveDocument.Sections(1).Range

    cho

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

12. Chạy lại chương trình. Lưu ý rằng bạn có thể chạy mã nhiều lần mà không có lỗi.

Khi xây dựng một từ tự động hóa dự án Visual Basic, nếu dự án của bạn có tham chiếu đến thư viện đối tượng Microsoft Word, mã mẫu cho đối tượng, phương pháp và thuộc tính của mô hình đối tượng Word sẵn dùng từ tệp trợ giúp từ. Khi con trỏ ở trên một từ khóa trong mã của bạn, bạn sẽ thấy bất kỳ văn bản trợ giúp áp dụng nào bằng cách nhấn phím F1. Mã mẫu trong chủ đề trợ giúp sẽ là mã Microsoft Word Visual Basic cho ứng dụng. Nó sẽ không hiển thị tham chiếu đối tượng mà mã Visual Basic của bạn yêu cầu. Bạn sẽ cần phải thêm vòng loại phù hợp.