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 Adlı Kullanıcıdan Alıntı: 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.

Visual Basic Code
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
Task