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