(10/11/2017, 17:47)ozanakkaya yazdı: 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,
yerineappword.Selection.Text = Me.Alıcı
appword.Selection.Text = "Deneme Veri"
Yazınca çalışıp çalışmadığı hakkında bilgi veriniz. Olmaz ise teamviewer ile bağlanıp bakalım.
Hocam çalışmadı. Sanırım farklı bir problem var.