Word denetlemek için Otomasyon'u kullanan Visual Basic kodunu çalıştırdığınızda "Çalışma zamanı hatası '-2147023174' (800706ba)" hata iletisini veya "Çalışma zamanı hatası '462' " alabilirsiniz Word

Davranışı Yeniden Oluşturma Adımları

1. Visual Basic'te yeni bir Standart EXE projesi başlatın. Form1 varsayılan olarak oluşturulur.

2. Proje menüsünde Başvurular'a tıklayın ve ardından aşağıdaki seçeneklerden birine tıklayın:

   • Office Word 2007 için Microsoft Word 12.0 Nesne Kitaplığı'ne tıklayın

   • Word 2003 için Microsoft Word 11.0 Nesne Kitaplığı'ne tıklayın

   • Word 2003 için Microsoft Word 10.0 Nesne Kitaplığı'ne tıklayın

   • Word 2000 için Microsoft Word 9.0 Nesne Kitaplığı'ne tıklayın.

   • Word 97 için Microsoft Word 8.0 Nesne Kitaplığı'ne tıklayın.

3. Form1'e bir CommandButton yerleştirin.

4. Aşağıdaki kodu Form1'in Kod Penceresi'ne kopyalayın:

         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. Çalıştır menüsünde Başlat'a tıklayın veya F5 tuşuna basarak programı başlatın.

6. CommandButton'a tıklayın. Hata oluşmaz. Ancak, Word başvurusu oluşturulmuştur ve yayımlanmamıştır.

7. CommandButton düğmesine yeniden tıklayın ve daha önce açıklanan hatayı aldığınızı unutmayın.
   
   Not Kod, çağrıdan önce oWord nesne değişkeni olmadan InchesToPoints Yöntemine başvurduğundan hata oluşur.

8. Projeyi durdurun ve aşağıdaki satırı değiştirin:

   .PageSetup.LeftMargin = InchesToPoints(1.25)
   

   -Hedef-
   
    

   .PageSetup.LeftMargin = oWord.InchesToPoints(1.25)
   

9. Programı yeniden çalıştırın. Ardından CommandButton düğmesine tıklayın. Hata oluşmaz.

10. CommandButton düğmesine yeniden tıklayın ve hatayı aldığınızı unutmayın.
    
    Not Kod, çağrıdan önce oWord nesne değişkeni olmadan ActiveDocument Bölümünün Range nesnesine başvurduğundan hata oluşur.

11. Projeyi durdurun ve aşağıdaki satırı değiştirin:

    Set oRange = ActiveDocument.Sections(1).Range
    

    -Hedef-
     

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

12. Programı yeniden çalıştırın. Kodu hatasız olarak birden çok kez çalıştırabileceğinizi unutmayın.

Word otomatikleştirmek üzere bir Visual Basic projesi oluştururken, projenizin Microsoft Word Nesne Kitaplığı'na bir başvurusu varsa, Word Nesne Modeli'nin nesneleri, yöntemleri ve özellikleri için örnek kod Word Yardım dosyasından sağlanır. İmleç kodunuzdaki bir anahtar sözcüğün üzerindeyken F1 tuşuna basarak ilgili Yardım metinlerini görürsünüz.


Yardım konusunun örnek kodu Microsoft Word Visual Basic for Applications kodu olacaktır. Visual Basic kodunuzun gerektirdiği nesne başvurularını göstermez. Niteleyicileri uygun şekilde eklemeniz gerekir.