Microsoft Office Tutorials and References
In Depth Information
9.3.5 Export zu Word, Erstellen von Tabellen
Zur Erläuterung:
Die Methode Add() des Documents -Objekts öffnet ein neues Word-
Dokument. Es wird damit zum aktiven Dokument.
Documents.Add()
Innerhalb einer Schleife wird jeweils ein Absatz mit Hilfe der
Methode Add() des Paragraphs -Objekts hinzugefügt.
Paragraphs.Add()
Jeder Absatz wird mit dem Inhalt einer Excel-Zelle gefüllt.
Das neue Word-Dokument wird mit der Methode SaveAs() unter
dem Namen aus.docx im gleichen Verzeichnis wie die Excel-Arbeits-
mappe, die diese Anwendung enthält, gespeichert.
9.3.5
Export zu Word, Erstellen von Tabellen
Es sollen die Inhalte des nachfolgenden Excel-Tabellenblatts als Tabelle
in ein Word-Dokument geschrieben werden:
Word-Tabelle
schreiben
Abbildung 9.22
Excel-Tabelle, die exportiert werden soll
Sub WordTabelleExport()
Dim appWord As Word.Application
Dim i As Integer, k As Integer
Dim tb As Word.Table
ThisWorkbook.Worksheets("Tabelle2").Activate
' Anwendung Word starten
Set appWord = CreateObject("Word.Application")
' Neues Word-Dokument erstellen
appWord.Documents.Add
' Neue Tabelle erstellen, mit Rahmen innen und außen
Set tb = appWord.ActiveDocument.Tables.Add _
(appWord.ActiveDocument.Range(0), 3, 5)
tb.Borders.InsideLineStyle = wdLineStyleSingle
tb.Borders.OutsideLineStyle = wdLineStyleSingle
Search JabSto ::




Custom Search