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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Word Boyama İşlemi - Yazar: mertkose - 09/11/2017, 12:30
Cvp: Word Boyama İşlemi - Yazar: ozanakkaya - 09/11/2017, 18:24
Cvp: Word Boyama İşlemi - Yazar: ozanakkaya - 10/11/2017, 16:16
Cvp: Word Boyama İşlemi - Yazar: mertkose - 10/11/2017, 16:45
Cvp: Word Boyama İşlemi - Yazar: ozanakkaya - 10/11/2017, 16:58
Cvp: Word Boyama İşlemi - Yazar: mertkose - 10/11/2017, 17:05
Cvp: Word Boyama İşlemi - Yazar: ozanakkaya - 10/11/2017, 17:11
Cvp: Word Boyama İşlemi - Yazar: mertkose - 10/11/2017, 17:15
Cvp: Word Boyama İşlemi - Yazar: ozanakkaya - 10/11/2017, 17:47
Cvp: Word Boyama İşlemi - Yazar: mertkose - 14/11/2017, 10:21
Cvp: Word Boyama İşlemi - Yazar: ozanakkaya - 19/11/2017, 05:35
Cvp: Word Boyama İşlemi - Yazar: mertkose - 21/11/2017, 10:41
Cvp: Word Boyama İşlemi - Yazar: ozanakkaya - 22/11/2017, 10:37
Cvp: Word Boyama İşlemi - Yazar: mertkose - 22/11/2017, 11:27
Cvp: Word Boyama İşlemi - Yazar: ozanakkaya - 22/11/2017, 11:32
Cvp: Word Boyama İşlemi - Yazar: mertkose - 22/11/2017, 11:38
Cvp: Word Boyama İşlemi - Yazar: ozanakkaya - 22/11/2017, 11:53
Cvp: Word Boyama İşlemi - Yazar: mertkose - 05/07/2018, 12:25
Cvp: Word Boyama İşlemi - Yazar: ozanakkaya - 05/07/2018, 12:29
Cvp: Word Boyama İşlemi - Yazar: mertkose - 05/07/2018, 12:48
Word Boyama İşlemi - Yazar: mertkose - 09/11/2017, 16:08
Cvp: Word Boyama İşlemi - Yazar: C*e*l*o*y*c*e - 09/11/2017, 17:05
Cvp: Word Boyama İşlemi - Yazar: mertkose - 10/11/2017, 16:00
Task