Textübergabe an aktives WORD.doc
16.10.2007 06:05:25
Wolfgang
weiterhin auf der Suche nach einer Möglichkeit, Text aus einem Tabellenblatt ("Ergebnis" von C5:C26 und E5:E26) in ein aktives WORD-Dokument einzufügen, stieß ich unter Recherche auf untenstehenden Code. Er bewirkt, dass WORD geöffnet wird, ein Doc. angelegt wird und Text aus Excel nach WORD transferiert wird. Wie müßte der Code umgestellt werden wenn bereits ein WORD Dokument geöffnet ist -also, ein aktives WORD-Dokument- und der vorhandene Text aus Tabelle Ergebnis in das Textfenster1 -C5:C26- und Textfenster2 -E5:E26- transferiert werden soll? - Noch schöner wäre, wenn die jeweiligen Texte in ein unter WORD geöffnetes UF transferiert werden könnten (TextBox1 und TextBox2), da sich das aber wohl als schwierig erweist, wäre ich schon sehr dankbar, wenn die Version des Datenexportes direkt in das aktive Dokument klappen würde. Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Sub TransferToWord()
Dim oApp As Word.Application
Set oApp = GetApplication("Word.Application")
If oApp Is Nothing Then
MsgBox "..."
Exit Sub
End If
Dim oDoc As Word.Document
Set oDoc = oApp.Documents.Add
' ab hier kannst Du direkt ins Document schreiben
' Der Weg über die Zwischenablage ist nicht notwendig!
' Zum Abschluss wieder alles freigeben
Set oDoc = Nothing
Set oApp = Nothing
End Sub
Function GetApplication(ByVal AppClass As String) As Object
Const vbErr_AppNotRun = 429
On Error Resume Next
Set GetApplication = GetObject(Class:=AppClass)
If Err.Number = vbErr_AppNotRun _
Then Set GetApplication = CreateObject(AppClass)
On Error GoTo 0
End Function