Skip to main content

AccessTr.neT


Word Boyama İşlemi

Word Boyama İşlemi

Çözüldü #1
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ı.Value

.zip Ödeme Takip.zip (Dosya Boyutu: 59,58 KB | İndirme Sayısı: 3)
Son Düzenleme: 10/11/2017, 17:10, Düzenleyen: mertkose.
Cevapla
Çözüldü #2
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ı.Value

Cevapla
#3
sayın mertkose örneğinizi eklermisin ?
Cevapla
#4
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.  
Cevapla
#5
(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...
Cevapla
#6
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da