Näyttöön voi tulla "Run-time error '-2147023174' (800706ba)" -virhesanoma tai "Run-time error '462",kun suoritat Visual Basic -koodin, joka käyttää automaatiota Word

Toimintatavan toistaminen

1. Aloita uusi Standard EXE -projekti Visual Basicissa. Lomake1 luodaan oletusarvoisesti.

2. Valitse Projekti-valikosta Viittaukset ja valitse sitten jokin seuraavista vaihtoehdoista:

   • Jos käytössäsi on Office Word 2007, valitse Microsoft Word 12.0 -objektikirjasto

   • Jos Word 2003, valitse Microsoft Word 11.0 -objektikirjasto

   • Jos Word 2003, valitse Microsoft Word 10.0 -objektikirjasto

   • Jos käytössäsi on Word 2000, valitse Microsoft Word 9.0 -objektikirjasto.

   • Jos haluat Word 97, valitse Microsoft Word 8.0 -objektikirjasto.

3. Aseta Komentopainike lomakkeeseen1.

4. Kopioi seuraava koodi Lomakkeen1 koodi-ikkunaan:

         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. Käynnistä ohjelma valitsemalla Suorita-valikossaKäynnistä tai painamalla F5-näppäintä.

6. Valitse Komentopainike. Virhettä ei tapahdu. Viittaus Word on kuitenkin luotu eikä sitä ole julkaistu.

7. Napsauta Komentopainiketta uudelleen ja huomaa, että saat aiemmin kuvatun virheen.
   
   Huomautus Virhe ilmenee, koska koodi viittaa InchesToPoints-menetelmään ilman, että puhelua edeltää oWord-objektimuuttuja.

8. Pysäytä projekti ja muuta seuraavaa riviä:

   .PageSetup.LeftMargin = InchesToPoints(1.25)
   

   -to-
   
    

   .PageSetup.LeftMargin = oWord.InchesToPoints(1.25)
   

9. Suorita ohjelma uudelleen. Valitse sitten Komentopainike. Virhettä ei tapahdu.

10. Napsauta Komentopainike-painiketta uudelleen ja huomaa, että saat virheilmoituksen.
    
    Huomautus Virhe ilmenee, koska koodi viittaa ActiveDocument-osan 1 Alue-objektiin ilman, että puhelua edeltää oWord-objektimuuttuja.

11. Pysäytä projekti ja muuta seuraavaa riviä:

    Set oRange = ActiveDocument.Sections(1).Range
    

    -to-
     

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

12. Suorita ohjelma uudelleen. Huomaa, että voit suorittaa koodin useita kertoja ilman virhettä.

Kun luot Visual Basic -projektin automatisoimaan Word, jos projektissa on viittaus Microsoft Word -objektikirjastoon, Word-objektimallin objektien, menetelmien ja ominaisuuksien mallikoodi on käytettävissä Word ohjetiedostossa. Kun kohdistin on koodin avainsanan päällä, näet kaikki soveltuvat ohjetekstit painamalla F1-näppäintä.


Ohjeaiheen esimerkkikoodina on Microsoftin Word Visual Basic for Applications koodi. Se ei näytä Visual Basic -koodin vaatimia objektiviittauksia. Tarkenteet on lisättävä tarpeen mukaan.