Du kan få felmeddelandet "Körningsfel '-2147023174' (800706ba)" eller "Körningsfel '462'" när du kör Visual Basic-kod som använder Automation för att styra Word

Steg för att reproducera beteende

1. Starta ett nytt Standard EXE-projekt i Visual Basic. Formulär1 skapas som standard.

2. Klicka på Referenser på Projekt-menyn och klicka sedan på något av följande alternativ:

   • För Office Word 2007 klickar du på Microsoft Word 12.0-objektbibliotek

   • För Word 2003 klickar du på Microsoft Word 11.0-objektbibliotek

   • För Word 2003 klickar du på Microsoft Word 10.0-objektbibliotek

   • För Word 2000 klickar du på Microsoft Word 9.0-objektbibliotek.

   • För Word 97 klickar du på Microsoft Word 8.0-objektbibliotek.

3. Placera en CommandButton på Formulär1.

4. Kopiera följande kod till kodfönstret i formulär1:

         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. På menyn Kör klickar du på Start eller trycker på F5 för att starta programmet.

6. Klicka på Kommandoknapp. Inga fel uppstår. En referens till Word har dock skapats och har inte släppts.

7. Klicka på CommandButton igen och observera att du får felet som beskrivits tidigare.
   
   Obs! Felet uppstår eftersom koden refererar till InchesToPoints-metoden utan att föregå samtalet med oWord-objektvariabeln.

8. Stoppa projektet och ändra följande rad:

   .PageSetup.LeftMargin = InchesToPoints(1.25)
   

   -Att-
   
    

   .PageSetup.LeftMargin = oWord.InchesToPoints(1.25)
   

9. Kör programmet igen. Klicka sedan på Kommandoknapp. Inga fel uppstår.

10. Klicka på Kommandoknappen igen och observera att du får felet.
    
    Obs! Felet uppstår eftersom koden refererar till Objektet Område i ActiveDocument-avsnitt utan att föregå samtalet med oWord-objektvariabeln.

11. Stoppa projektet och ändra följande rad:

    Set oRange = ActiveDocument.Sections(1).Range
    

    -Att-
     

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

12. Kör programmet igen. Observera att du kan köra koden flera gånger utan fel.

När du skapar ett Visual Basic-projekt som automatiserar Word, om projektet har en referens till Microsoft Word-objektbiblioteket, är exempelkod för objekt, metoder och egenskaper för Word-objektmodellen tillgänglig från Word-hjälpfilen. När markören är över ett nyckelord i koden visas eventuell hjälptext genom att trycka på F1-tangenten.


Exempelkoden i hjälpavsnittet är Koden för Microsoft Word Visual Basic for Applications. Objektreferenserna som krävs för Visual Basic-koden visas inte. Du måste lägga till avgränsarna efter behov.