(10/11/2017, 16:16)ozanakkaya yazdı: Merhaba,  rapordaki kodu aşağıdaki ile değiştirerek deneyiniz.

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)

With doc

    .Bookmarks("txtalici").Range.Text = Me.Alıcı

    

appword.Visible = True

appword.Activate

End With



Set doc = Nothing

Set appword = Nothing



End Function

Değiştirdim hocam ama malesef çalışmıyor.