คุณอาจได้รับข้อความแสดงข้อผิดพลาด "ข้อผิดพลาดขณะเรียกใช้ '-๒๑๔๗๐๒๓๑๗๔ ' (800706ba)" หรือข้อผิดพลาด "ข้อผิดพลาดขณะเรียกใช้ ' ๔๖๒ '" เมื่อคุณเรียกใช้โค้ด Visual Basic ที่ใช้การดำเนินการอัตโนมัติเพื่อควบคุม Word

ขั้นตอนในการทบทวนเกิดลักษณะการทำงาน

1. เริ่มต้นโครงการ EXE มาตรฐานใหม่ใน Visual Basic Form1 จะถูกสร้างขึ้นตามค่าเริ่มต้น

2. คลิกการ อ้างอิง จากเมนู Project จากนั้นคลิกตัวเลือกใดตัวเลือกหนึ่งต่อไปนี้:

   • สำหรับ Office Word ๒๐๐๗ให้คลิก ไลบรารีวัตถุของ Microsoft word ๑๒.๐

   • สำหรับ Word ๒๐๐๓ให้คลิก ไลบรารีวัตถุของ Microsoft Word ๑๑.๐

   • สำหรับ Word ๒๐๐๓ให้คลิก ไลบรารีวัตถุของ Microsoft Word ๑๐.๐

   • สำหรับ Word ๒๐๐๐ให้คลิกไลบรารีวัตถุของ Microsoft Word ๙.๐

   • สำหรับ Word ๙๗ให้คลิกไลบรารีวัตถุของ Microsoft Word ๘.๐

3. วาง CommandButton บน Form1

4. คัดลอกโค้ดต่อไปนี้ลงในหน้าต่างรหัสของ 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. บนเมนู เรียกใช้ ให้คลิก เริ่ม หรือกดแป้น 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 ของช่วงของวัตถุที่ไม่มีการโทรที่มีตัวแปรวัตถุ 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 ของคุณ คุณจะต้องเพิ่มตัวระบุตามความเหมาะสม