+- 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)
Word Boyama İşlemi - mertkose - 09/11/2017
Merhabalar,
Ödeme takibi uygulamamda word boyama işlemi yaptırmaya çalışıyorum. Word dosyasında Form eklediğim zaman sıkıntı olmadan çalıştırıyorum ama Bookmarks da başarılı bir şekilde çalıştıramadım. Yardımlarınızı bekliyorum.
Kod:
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 = "C:\Users\Mert\Desktop\Ödeme Takibi Uygulaması\Master Dosyalar\TL HESABI.docx"
Set doc = appword.Documents.Open(Path, , True)
With doc
.Bookmarks("txtalici").Range.Text = Me.Alıcı.ValueWord Boyama İşlemi - mertkose - 09/11/2017
Merhabalar,
Ödeme takibi uygulamamda word boyama işlemi yaptırmaya çalışıyorum. Word dosyasında Form eklediğim zaman sıkıntı olmadan çalıştırıyorum ama Bookmarks da başarılı bir şekilde çalıştıramadım. Yardımlarınızı bekliyorum.
Kod:
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 = "C:\Users\Mert\Desktop\Ödeme Takibi Uygulaması\Master Dosyalar\TL HESABI.docx"
Set doc = appword.Documents.Open(Path, , True)
With doc
.Bookmarks("txtalici").Range.Text = Me.Alıcı.ValueCvp: Word Boyama İşlemi - C*e*l*o*y*c*e - 09/11/2017
sayın mertkose örneğinizi eklermisin ?
Cvp: Word Boyama İşlemi - ozanakkaya - 09/11/2017
Açılan aynı konu birleştirilmiştir. Konularınızı Site Kurallarına uygun olarak açınız.
Site Kuralları:
1-a) Sorununuz ile ilgili konu açtıysanız aynı soru ile ilgili tekrar konu açmayınız.
3-a) Sorulara örnek uygulama eklemek zorunludur.
Cvp: Word Boyama İşlemi - mertkose - 10/11/2017
(09/11/2017, 17:05)C*e*l*o*y*c*e yazdı: sayın mertkose örneğinizi eklermisin ?
Örneği ekledim hocam. İlginiz için teşekkürler...
Cvp: Word Boyama İşlemi - ozanakkaya - 10/11/2017
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