Herbers Excel-Forum - das Archiv

Excel-Daten nach Word übertragen

Bild

Betrifft: Excel-Daten nach Word übertragen
von: Werner Prothmann

Geschrieben am: 16.03.2005 10:58:07
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
Bild

Betrifft: AW: Excel-Daten nach Word übertragen
von: Frank Domke

Geschrieben am: 17.03.2005 14:51:51
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.
 Bild
Excel-Beispiele zum Thema "Excel-Daten nach Word übertragen"
Emailversand mit Outlook auf der Basis von Excel-Daten Daten der aktuellen Zeile in der Excel-Datenmaske anzeigen