geöffneten UF in WORD "beschicken"
14.10.2007 17:13:00
Wolfgang
den untenstehenden Code hat Worti, mit Hinweisen von K.Rola erstellt. Er bewirkt, dass aus dem aktiven Tabellenblatt Text an ein UF in WORD übermittelt wird. Das funktioniert aber wohl nur, wenn der UF in WORD noch nicht geöffnet ist. Gibt es eine Möglichkeit, gleiche Wirkung auch zu erzielen, wenn der UF in WORD geöffnet ist? - Danke schon jetzt allen für die Rückmeldung.
Herzliche Grüße
Wolfgang
Sub Transfer_zu_Word()
Dim objWordApp
Dim objWordDoc
Dim objTB
Dim intI As Integer
'Mit geöffneter Word-Applikation connecten
Set objWordApp = GetObject(, "Word.Application")
Set objWordDoc = objWordApp.Documents(1)
Set objTB = objWordDoc.VBProject.VBComponents("Userform1").Designer.Controls("TextBox1")
objTB.Text = Range("C6")
For intI = 6 To 26
objTB.Text = objTB.Text & " " & Range("C" & intI)
Next intI
Set objTB = Nothing
Set objTB = objWordDoc.VBProject.VBComponents("Userform1").Designer.Controls("TextBox2")
objTB.Text = Range("E6")
For intI = 6 To 26
objTB.Text = objTB.Text & " " & Range("E" & intI)
Next intI
Set objTB = Nothing
Set objWordDoc = Nothing
Set objWordApp = Nothing
End Sub