Du kan få feilmeldingen «Kjøretidsfeil –2147023174» (800706ba)» eller «Kjøretidsfeil 462» når du kjører Visual Basic-kode som bruker automatisering til å kontrollere Word

Fremgangsmåte for å reprodusere virkemåte

1. Start et nytt Standard EXE-prosjekt i Visual Basic. Skjema1 er opprettet som standard.

2. Klikk Referanser på Prosjekt-menyen , og klikk deretter ett av følgende alternativer:

   • Klikk Microsoft Word 12.0-objektbibliotek for Office Word 2007

   • Klikk Microsoft Word 11.0-objektbibliotek for Word 2003

   • Klikk Microsoft Word 10.0-objektbibliotek for Word 2003

   • Klikk Microsoft Word 9.0-objektbibliotek for Word 2000.

   • Klikk Microsoft Word 8.0-objektbibliotek for Word 97.

3. Plasser en CommandButton på Skjema1.

4. Kopier følgende kode til kodevinduet i Skjema1:

         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. Klikk Start på Kjør-menyen, eller trykk F5 for å starte programmet.

6. Klikk commandbuttonen. Det oppstår ingen feil. En referanse til Word er imidlertid opprettet og er ikke utgitt.

7. Klikk CommandButton på nytt, og vær oppmerksom på at du får feilmeldingen som er beskrevet tidligere.
   
   Obs! Feilen oppstår fordi koden refererer til metoden InchesToPoints uten å ha oWord-objektvariabelen foran kallet.

8. Stopp prosjektet, og endre følgende linje:

   .PageSetup.LeftMargin = InchesToPoints(1.25)
   

   -Å-
   
    

   .PageSetup.LeftMargin = oWord.InchesToPoints(1.25)
   

9. Kjør programmet på nytt. Klikk deretter kommandoknappen. Det oppstår ingen feil.

10. Klikk CommandButton på nytt, og vær oppmerksom på at du får feilen.
    
    Obs! Feilen oppstår fordi koden refererer til ActiveDocument-inndelingens områdeobjekt uten å sette oWord-objektvariabelen foran oppkallet.

11. Stopp prosjektet, og endre følgende linje:

    Set oRange = ActiveDocument.Sections(1).Range
    

    -Å-
     

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

12. Kjør programmet på nytt. Vær oppmerksom på at du kan kjøre koden flere ganger uten feil.

Når du bygger et Visual Basic-prosjekt som automatiserer Word, hvis prosjektet har en referanse til Microsoft Word-objektbiblioteket, er eksempelkode for objekter, metoder og egenskaper for Word objektmodell tilgjengelig fra hjelpefilen Word. Når markøren er over et nøkkelord i koden, ser du eventuell gjeldende hjelpetekst ved å trykke F1-tasten.


Eksempelkoden i hjelpeemnet er Microsoft Word Visual Basic for Applications-koden. Den viser ikke objektreferansene som Visual Basic-koden krever. Du må legge til kvalifikatorene etter behov.