ייתכן שתקבל את הודעת השגיאה "שגיאת זמן ריצה '-2147023174' (800706ba)" או את הודעת השגיאה "שגיאת זמן ריצה '462'" בעת הפעלת קוד Visual Basic המשתמש באוטומציה כדי לשלוט Word

שלבים לשכפול אופן פעולה

1. התחל פרוייקט חדש של Standard EXE ב- Visual Basic. Form1 נוצר כברירת מחדל.

2. לחץ על הפניות בתפריט פרוייקט ולאחר מכן לחץ על אחת מהאפשרויות הבאות:

   • עבור Office Word 2007, לחץ על Microsoft Word 12.0 Object Library

   • עבור Word 2003, לחץ על Microsoft Word 11.0 Object Library

   • עבור Word 2003, לחץ על Microsoft Word 10.0 Object Library

   • עבור Word 2000, לחץ על Microsoft Word 9.0 Object Library.

   • עבור Word 97, לחץ על Microsoft Word 8.0 Object Library.

3. מקם CommandButton בטופס1.

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. לחץ על לחצן הפקודה. לא מתרחשת שגיאה. עם זאת, הפניה Word נוצרה ולא הופצה.

7. לחץ שוב על CommandButton ורשום שאתה מקבל את השגיאה המתוארת קודם לכן.
   
   הערה השגיאה מתרחשת מאחר שהקוד מפנה לפעולת השירות InchesToPoints מבלי להוסיף לפני השיחה את משתנה האובייקט oWord.

8. הפסק את הפרוייקט ושנה את השורה הבאה:

   .PageSetup.LeftMargin = InchesToPoints(1.25)
   

   -ל-
   
    

   .PageSetup.LeftMargin = oWord.InchesToPoints(1.25)
   

9. הפעל שוב את התוכנית. לאחר מכן, לחץ על לחצן הפקודה. לא מתרחשת שגיאה.

10. לחץ שוב על CommandButton ורשום שאתה מקבל את השגיאה.
    
    הערה השגיאה מתרחשת מאחר שהקוד מפנה לאובייקט Range של מקטע 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 for Applications. הוא לא יציג את ההפניות לאובייקטים שקוד Visual Basic שלך דורש. יהיה עליך להוסיף את מזהי בהתאם לצורך.