Excel-Daten nach Word übertragen

Forumthread: Excel-Daten nach Word übertragen
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Excel-Daten nach Word übertragen

16.03.2005 11:58:07

Werner

Welche Befehle sind notwendig, um Daten, die von einem Eingabefeld einer Maske in den Zwischenspeicher kopiert worden sind, in ein Worddokument absatzweise zu schreiben?
Word muß noch gestartet werden.
Danke, Werner

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Excel-Daten nach Word übertragen

17.03.2005 15:51:51

Frank

AW: Excel-Daten nach Word übertragen

17.03.2005 15:51:51

Frank

Hallo Werner,
baue mal diesen Code aus:


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

Viel Erfolg
Frank.