Skip to main content

AccessTr.neT


Word Boyama İşlemi

Word Boyama İşlemi

#13
(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.
Cevapla
#14
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.
Cevapla
#15
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. "
Cevapla
#16
Merhaba, Cvp: Resimli Formu Worde Aktarma - 11 bağlantısında bulunan örnek uygulama sizde çalışıyor mu acaba?
Cevapla
#17
(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.
Cevapla
#18
Merhaba, ekteki uygulamayı deneyip bilgi veriniz.
.rar Ödeme Takip_sld_2.rar (Dosya Boyutu: 51,92 KB | İndirme Sayısı: 10)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da