Ödeme takibi uygulamamda word boyama işlemi yaptırmaya çalışıyorum. Word dosyasında Form eklediğim zaman sıkıntı olmadan çalıştırıyorum ama Bookmarks da başarılı bir şekilde çalıştıramadım. Yardımlarınızı bekliyorum.
Kod:
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 = "C:\Users\Mert\Desktop\Ödeme Takibi Uygulaması\Master Dosyalar\TL HESABI.docx"
Set doc = appword.Documents.Open(Path, , True)
With doc
.Bookmarks("txtalici").Range.Text = Me.Alıcı.Value
