Textbox1'den Word 'e metin aktarmak

[bistrobellman]

Şablon isimli work dosyasınin ilk sayfası tablo ve o tablolara verileri Userform Excel üzerinden aktardım.
msWord'ün ikinci sayfasına gövde metni olarak Userform3. Textbox1'de yazılanları nasıl aktarabilirim?

Insert komutu mu kullanılacak acaba aşağıdaki gibi?
yardımcı olursanız sevinirim:

Private Sub CommandButton1_Click()
Set wdDoc = wdApp.Documents.Open(ThisWorkbook.path & "\" & "Sablon.docx")
wdDoc.Content.InsertAfter UserForm3.TextBox1
EndSub

 

[bistrobellman]

acil diye mi cevap yok arkadaşlar?
Word Content Content Controls komutlarını çalışan yok mu hiç? oraya bir metin yazdıracam Userform3.textbox1'den....

 

[leumruk]

Selamlar,
Deneyiniz... Kesin sonuç için örnek dosya eklemelisiniz.

Private Sub CommandButton1_Click()
Set wdApp = CreateObject("word.Application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\" & "Sablon.docx")
If wdApp.Selection.Information(4) < 2 Then
wdApp.Selection.EndKey Unit:=6
wdApp.Selection.InsertNewPage
Else
wdApp.Selection.GoTo What:=1, Which:=2, Name:="2"
wdApp.Selection.MoveDown Unit:=4, Count:=1
End If
wdApp.Selection.TypeText Text:=UserForm3.TextBox1.Text
End Sub

 

[bistrobellman]

HOCAM Verdiğiniz kod çalıştı, ancak userform3.textbox1'den aldığı veriyi "kararlar" başlığının hemen soluna değil de bir enter atıp 2.satıra yazabilir mi? böyle yazılanlar başlıkla bitişik çıkıyor. neresi yanlış acaba? insertparagraf mı yapmak lazım?



If wdApp.Selection.Information(4) < 2 Then
wdApp.Selection.EndKey Unit:=6
wdApp.Selection.InsertNewPage
Else
wdApp.Selection.Goto What:=1, Which:=2, Name:="2"
End If
wdApp.Selection.InsertBefore "KARARLAR"
wdApp.Selection.TypeText Text:=UserForm3.TextBox1.Text

 

[leumruk]

Kodu isteğiniz doğrultusunda güncelledim.

 

[bistrobellman]

peki hocam aynı sayfada "kararlar" diye bir başlık var
bu başlığın altına textbox1'den değil de textbox2'den veri nasıl gelecek?
textbox1 transfer olayı tamam, textbox2'de yazılanları kararlar başlığının altına yine aynı şekilde nasıl getirebiliriz? ikisi de aynı sayfadalar.
çok teşekkür ederim, son isteğim bu.

 

[bistrobellman]

yardımcı olabilir misiniz

 

[leumruk]

Açıklamanıza göre textbox1 yerine textbox2 yazdığınızda isteğiniz gerçekleşir.

 

[bistrobellman]

textbox2yi eklediğim zaman textbox1'den aktarılan ile 2'den aktarılan üstüste biniyor hocam anlamadınız dediğimi

textbox2'den aktarılacak veri aynı sayfada biraz daha aşağı satırlarda ve "Kararlar" diye şablonda bir başlık var onun altına yazması gerek üstüste biniyor iki aktarılan değer bu şekilde kodda ekleme yapınca:




Private Sub CommandButton1_Click()
Set wdApp = CreateObject("word.Application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\" & "Sablon.docx")
If wdApp.Selection.Information(4) < 2 Then
wdApp.Selection.EndKey Unit:=6
wdApp.Selection.InsertNewPage
Else
wdApp.Selection.GoTo What:=1, Which:=2, Name:="2"
wdApp.Selection.MoveDown Unit:=4, Count:=1
End If
wdApp.Selection.TypeText Text:=UserForm3.TextBox1.Text
wdApp.Selection.TypeText Text:=UserForm3.TextBox2.Text
End Sub

 

[leumruk]

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
Set wdApp = CreateObject("word.Application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\" & "Sablon.docx")
If wdApp.Selection.Information(4) < 2 Then
wdApp.Selection.EndKey Unit:=6
wdApp.Selection.InsertNewPage
Else
wdApp.Selection.GoTo What:=1, Which:=2, Name:="2"
wdApp.Selection.MoveDown Unit:=4, Count:=1
End If
metin = UserForm3.TextBox1.Text & Chr(10) & UserForm3.TextBox2.Text
wdApp.Selection.TypeText Text:=metin
End Sub