Word Boyama İşlemi

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

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.

Hocam çalışmadı. Sanırım farklı bir problem var.

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.

Aldığım hata bu şekilde ama dosya salt okunur veya korumalı değil.

"Run Time Error 6124
Korumalı olduğundan bu seçimi düzenleme izniniz yok. "

Merhaba, Cvp: Resimli Formu Worde Aktarma - 11 bağlantısında bulunan örnek uygulama sizde çalışıyor mu acaba?

(22/11/2017, 10:37)ozanakkaya yazdı: Merhaba, Cvp: Resimli Formu Worde Aktarma - 11 bağlantısında bulunan örnek uygulama sizde çalışıyor mu acaba?

Bu uygulama çalışıyor hocam.

Merhaba, ekteki uygulamayı deneyip bilgi veriniz.