Userformdan Word'e veri gönderme

[tukayf]

Değerli hocalarım. Ekteki çalışma Haluk Bey'e ait uyarlayıp kullanmaya çalışıyorum.

Private Sub CommandButton1_Click()
Dim apWord As Object
Set apWord = CreateObject("Word.Application")
apWord.Documents.Open "D:\BELGE\Word.doc"
apWord.Visible = True
apWord.Selection.TypeParagraph
apWord.Selection.TypeText Text:=TextBox1.Text & vbTab
apWord.Selection.TypeText Text:=TextBox2.Text & vbTab
apWord.Selection.TypeText Text:=TextBox3.Text
Set apWord = Nothing
End Sub

Bu kodu nette buldum Bülent Bey'e ait bir kod. Bununla userform üzerindeki textleri Word'e gönderebiliyorum ancak yapmak istediğim Word'de metin kutuları oluşturarak o kutucukların içerisine verileri göndermek istiyorum. Ayrıca label içerisindeki resmi de Word'e aktarmak istiyorum.
Yardımlarınızı bekliyorum. Şimdiden teşekkürler.

 

[tukayf]

Mümkünse bu konuya da çözüm bekliyorum. Word konusunda uzman hocalarim bı el atabilirler mi.

 

[tukayf]

yol = ThisWorkbook.Path
Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.Documents.Open yol & "\" & "sablon.doc" 'sablon dosyasını açan komut
For x = 0 To 88
wd.ActiveDocument.Bookmarks(y_imi(x)).Range.Select
wd.Selection = Deg(x)
wd.ActiveDocument.Bookmarks.Add Range:=wd.Selection.Range, Name:=y_imi(x)
Next
Set WDDoc = wd.ActiveDocument
WDDoc.SaveAs yol & "\" & "yazdır" & ".doc" 'sablon dosyasını yazdır olarak kaydetmeye yareyen satır
End Sub

Değerli @leumruk hocam.
Bu kodlar https://www.excel.web.tr/threads/excel-userform-ile-worde-bilgi-aktarma.114518/ konuya verdiğiniz cevaba ait. Bunu kendi projeme uyarlamaya çalışıyorum. Ancak kalın yazdığım yerlerde hata veriyor. Ayrıca yer imi tanımlamaları aynı satırda olmasa bile aynı satır ve tabloda birleştirme yapıyor.
Hata veren kodları açıklayabilmeniz mümkün müdür ve yer imi tanımlı olmasa bile neden birleştirme yaptığına dair bir fikriniz var ise paylaşabilir misiniz.
Şimdiden teşekkürler.

 

[leumruk]

Selamlar, linkteki örnekleri inceleyin. Orada paylaşılan örnekler işinize yarayacaktır diye düşünüyorum.

Word'de texbox'tan veri alma

Wordde kod yazarak texbox ile girdiğim verileri, sayfada yer işareti ile işaretlediğim yere veya herhangi bir yere yazdırmak istiyorum ne yapmalıyım

www.excel.web.tr