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.