Excelde buton yardımı ile Word'e veri göndermek

[udentr2002]

Merhaba arkadaşlar
excelde Genel adlı userformda bulunan bir buton yardımı ile word belgesini açıyorum. Kod aşağıdadır.

CreateObject("Shell.Application").Open ThisWorkbook.Path & "\etiket.docx"

Bu etiket adlı word dosyasınya yer işareti ile (bookmarks) alanlar belirledim. ve bu dosya açıldıktan sonra yapmak istediğim şey tam olarak şu

excel dosyamdaki Genel adlı userformdaki combobox1 deki veriyi etiket adlı word dosyasında yer işareti ile belirlediğim Adi_1 adlı alana aşağıdaki kodla göndermeye çalışıyorum.

With ActiveDocument
    .Bookmarks("Adi_2").Range.Text = Genel.ComboBox1.Value
    
    End With

yanlız hata veriyor.

Kısacası excell den açık olan bir word sayfasındaki yer işareti ile belirlenmiş alana veri göndermek

Yardımcı olursanız çok sevinirim.

 

[leumruk]

Merhaba,
Kodu aşağıdakiyle değiştirin.

yol = ThisWorkbook.Path
Set wd = CreateObject("word.document")
wd.Application.Documents.Open yol & "\" & "etiket.docx"
Set WDApp = GetObject(, "Word.Application")
WDApp.Selection.GoTo What:=wdGoToBookmark, Name:="Adi_1"
WDApp.Selection = Genel.ComboBox1.Value

NOT: Tools>References bölümünden "Microsoft Word xx Object Library" referansını aktifleştirmeyi unutmayın.

 

[udentr2002]

Hocam çok teşekkürler elinize ve bilginize sağlık

 

[excel_198]

Merhaba Sayın udentr2002 İstemiş oldugunuz işle alakalı bir örnek çalışma ile açıklarsanız bir çok arkadaş size yardımcı olacaktır.