AccessTr.neT
Word Boyama İşlemi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Word Boyama İşlemi (/konu-word-boyama-islemi.html)

Sayfalar: 1 2 3 4

Cvp: Word Boyama İşlemi - mertkose - 14/11/2017

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

Cvp: Word Boyama İşlemi - ozanakkaya - 19/11/2017 

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.

Cvp: Word Boyama İşlemi - mertkose - 21/11/2017

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

Cvp: Word Boyama İşlemi - ozanakkaya - 22/11/2017

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

Cvp: Word Boyama İşlemi - mertkose - 22/11/2017

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

Cvp: Word Boyama İşlemi - ozanakkaya - 22/11/2017

Merhaba, ekteki uygulamayı deneyip bilgi veriniz.