(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.

Bende çalışıyor. İnceleyiniz.

(10/11/2017, 16:58)ozanakkaya yazdı: Bende çalışıyor. İnceleyiniz.

Hocam office 2016 kullanıyorum. Bununla bir ilgisi olabilir mi?

Sürüm faklılığından kaynaklanır mı bilmiyorum. Rapordaki butona tıkladığınızda herhangi bir hata iletisi var mı? "Çalışmıyor" kelimesi ile hatayı bulmak zor. 
Birde, word belgesinde sadece 1 yerimi var.

(10/11/2017, 17:11)ozanakkaya yazdı: Sürüm faklılığından kaynaklanır mı bilmiyorum. Rapordaki butona tıkladığınızda herhangi bir hata iletisi var mı? "Çalışmıyor" kelimesi ile hatayı bulmak zor. 
Birde, word belgesinde sadece 1 yerimi var.

Word belgesinde şuan için sadece bir yeri var. Word dosyası açılıyor ama veri gerekli yere yerleşmiyor.

Merhaba,

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)



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

Ayrıca,

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

yerine 

appword.Selection.Text = "Deneme Veri"

Yazınca çalışıp çalışmadığı hakkında bilgi veriniz. Olmaz ise teamviewer ile bağlanıp bakalım.