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 - 10/11/2017

(10/11/2017, 16:16)ozanakkaya yazdı: 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

Değiştirdim hocam ama malesef çalışmıyor.


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

Bende çalışıyor. İnceleyiniz.


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

(10/11/2017, 16:58)ozanakkaya yazdı: Bende çalışıyor. İnceleyiniz.

Hocam office 2016 kullanıyorum. Bununla bir ilgisi olabilir mi?


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

Sürüm faklılığından kaynaklanır mı bilmiyorum. Rapordaki butona tıkladığınızda herhangi bir hata iletisi var mı? "Çalışmıyor" kelimesi ile hatayı bulmak zor. 
Birde, word belgesinde sadece 1 yerimi var.


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

(10/11/2017, 17:11)ozanakkaya yazdı: Sürüm faklılığından kaynaklanır mı bilmiyorum. Rapordaki butona tıkladığınızda herhangi bir hata iletisi var mı? "Çalışmıyor" kelimesi ile hatayı bulmak zor. 
Birde, word belgesinde sadece 1 yerimi var.

Word belgesinde şuan için sadece bir yeri var. Word dosyası açılıyor ama veri gerekli yere yerleşmiyor.


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

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.