Word- Programmierung unter Excel

Wichtig:

Um unter Excel-VBA Word-Objekte zu programmieren, muss folgender Verweis gesetzt werden:

 

 

Befehl / Beispiele  
Word über Excel starten
Beispiel:
Sub WordStarten()
'+--------------------------+
'|  Öffnet eine Word-Datei  |
'+--------------------------+
    Datei = "D:\WordTest2.doc"

    Shell "WinWord.exe " & Datei, vbMaximizedFocus
End Sub
Worddatei über Excel- VBA erstellen
Beispiel:
Sub WordDateiErstellen()
'+---------------------------------------------------------------+
'|  Erstellt eine Worddatei, schreibt und formatiert einen Text  |
'+---------------------------------------------------------------+
    Dim MSWord As Object                            ' Bereitet ein Word-Objekt vor
    Set MSWord = CreateObject("Word.Application")   ' Erstellt einen Verweis auf das Word-AcitiveX-Objekt
    MSWord.Visible = True                           ' Wenn Word sichtbar sein soll, diese Option benutzen.

    Datei = "D:\WordTest.doc"                       ' Speicherort und Dateiname
                                                    ' der zu erstellenden Worddatei
    MSWord.Documents.Add                            ' Worddatei erstellen 
    With MSWord.Selection
        .Font.Name = "Arial"                        ' Schriftart setzen
        .Font.Size = 20                             ' Schriftgröße setzen
        .Font.Color = wdColorRed                    ' Schriftfarbe setzen
        .Font.Bold = True                           ' Fettschrift setzen
        .Font.Italic = True                         ' Kursivschrift setzen
        .TypeText Text:="Text"                      ' Text in Word-Dokument schreiben
        .TypeParagraph                              ' Zeilenumbruch setzen
    End With

    MSWord.ActiveDocument.SaveAs Datei              ' Dokument abspeichern
    MSWord.ActiveDocument.Close                     ' Dokument schließen

    MSWord.Quit                                     ' Word schliessen
    Set MSWord = Nothing                            ' ActiveX-Verweis entfernen
End Sub
Wordtabelle aus Excel erstellen
Beispiel:
Sub TabelleInWordErstellen()
    Dim MSWord As Object: Set MSWord = CreateObject("Word.application")

    MSWord.Visible = True
    MSWord.Documents.Add

    MSWord.ActiveDocument.Tables.Add MSWord.Selection.Range, 3, 3

    With MSWord.ActiveDocument.Tables(1).Borders
         .OutsideLineStyle = wdLineStyleSingle: .OutsideLineWidth = wdLineWidth300pt: .OutsideColor = RGB(0, 0, 255)
          .InsideLineStyle = wdLineStyleSingle:  .InsideLineWidth = wdLineWidth100pt:  .InsideColor = RGB(255, 0, 0)
    End With
    Set MSWord = Nothing
End Sub