Function Wordboyama()

Dim appword As Word.Application

Dim doc As Word.Document

Dim Path As String



'On Error Resume Next

'Error.Clear

'Set appword = GetObject(, "word.application")

'If Err.Number <> 0 Then

Set appword = New Word.Application

'appword.Visible = True

'End If

Path = CurrentProject.Path & "\Ödeme Takibi Uygulaması\Master Dosyalar\TL HESABI.docx"

Set doc = appword.Documents.Open(Path, , True)



appword.ActiveDocument.Bookmarks("txtalici").Select

appword.Selection.Text = Me.Alıcı



'With doc

'    .Bookmarks("txtalici").Select

 '   objWord.Selection.Text = Me.Alıcı

    

appword.Visible = True

appword.Activate

'End With



Set doc = Nothing

Set appword = Nothing



End Function

Yukarıdaki kodu deneyiniz. Hata vermesi durumunda verdiği hata kodunu belirtiniz.