AccessTr.neT

Tam Versiyon: Word Boyama İşlemi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
(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.
Bende çalışıyor. İnceleyiniz.
(10/11/2017, 16:58)ozanakkaya yazdı: [ -> ]Bende çalışıyor. İnceleyiniz.

Hocam office 2016 kullanıyorum. Bununla bir ilgisi olabilir mi?
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.
(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.
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.
Sayfalar: 1 2 3 4