Excel-Daten nach Word übertragen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Excel-Daten nach Word übertragen"