AccessTr.neT

Merhabalar,

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

Merhabalar,

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

sayın mertkose örneğinizi eklermisin ?

Açılan aynı konu birleştirilmiştir. Konularınızı Site Kurallarına uygun olarak açınız.

Site Kuralları:
1-a) Sorununuz ile ilgili konu açtıysanız aynı soru ile ilgili tekrar konu açmayınız.
3-a) Sorulara örnek uygulama eklemek zorunludur.  

(09/11/2017, 17:05)C*e*l*o*y*c*e yazdı: [ -> ]sayın mertkose örneğinizi eklermisin ?

Örneği ekledim hocam. İlginiz için teşekkürler...

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