AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Word Boyama İşlemi

1 2 3 4
09/11/2017, 12:30

mertkose

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
09/11/2017, 16:08

mertkose

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
09/11/2017, 17:05

C*e*l*o*y*c*e

sayın mertkose örneğinizi eklermisin ?
09/11/2017, 18:24

ozanakkaya

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.  
10/11/2017, 16:00

mertkose

(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...
10/11/2017, 16:16

ozanakkaya

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
1 2 3 4