Microsoft Office Tutorials and References
In Depth Information
9.3.4 Export zu Word, Erstellen von Absätzen
' Neues Word-Dokument erstellen
appWord.Documents.Add
Fori=1To5
' Absatz hinzufügen
appWord.ActiveDocument.Paragraphs.Add
' Absatz mit Text aus Excel-Zelle füllen
appWord.ActiveDocument.Paragraphs(i). _
Range.Text = Cells(i, 1).Value
Next i
' Word-Dokument speichern mit Dateiname
appWord.ActiveDocument.SaveAs ThisWorkbook.Path _
& "\aus.docx"
' Anwendung Word beenden
appWord.Quit
End Sub
Abbildung 9.20
Excel-Daten, die exportiert werden sollen
Das Ergebnis des Codes:
Abbildung 9.21
Word-Datei mit Daten aus Excel
Search JabSto ::




Custom Search