![\"Hinzfügen](\"..\/fileadmin\/_temp_\/2023_01\/pic_352_001.png\")
<\/p>\nTabellen sind ein wichtiges Element zur Strukturierung in Dokumenten – so auch in Microsoft Word. Tabellen fügt man dabei normalerweise über die Benutzeroberfläche ein und füllt diese manuell mit den gewünschten Daten. Manchmal jedoch sollen Dokumente und damit auch Tabellen automatisiert erstellt werden – beispielsweise, wenn man Daten aus Anwendungen wie Access oder Excel in einem Word-Dokument weiterverarbeiten möchte. Damit lassen sich beispielsweise gut die Rechnungspositionen in einer Rechnung oder auch Katalogdaten abbilden. In einer Lösung in einem weiteren Artikel nutzen wir eine Tabelle, um die einzelnen Absätze verschiedener Übersetzungen eines Textes anzuzeigen. Im vorliegenden Artikel zeigen wir, wie wir einem Word-Dokument eine Tabelle hinzufügen und diese mit den gewünschten Zeilen und Spalten versehen können – und welche Techniken noch sinnvoll sein können, wenn Du Tabellen programmierst.<\/b><\/p>\n
<\/p>\n
Bild 1: Hinzfügen einer Word-Tabelle über die Benutzeroberfläche<\/span><\/b><\/p>\n Üblicherweise fügt man Tabellen in Word über den Ribboneintrag Einfügen|Tabellen|Tabelle <\/b>ein, wo man im oberen Bereich direkt die gewünschte Anzahl von Zeilen und Spalten auswählen kann (siehe Bild 1).<\/p>\n Bild 1: Hinzfügen einer Word-Tabelle über die Benutzeroberfläche<\/span><\/b><\/p>\n Unter VBA ist dies auch gar nicht viel komplizierter – wie es genau geht, schauen wir uns in den folgenden Abschnitten an.<\/p>\n Für die Beispiele dieses Artikels brauchen eine .dotm<\/b>-Datei, also ein Word-Dokument mit VBA-Modul.<\/p>\n In den meisten Beispielen dieses Artikels gehen wir davon aus, dass wir die Beispielaufrufe und Prozeduren im VBA-Projekt zum geöffneten Word-Dokument ausführen.<\/p>\n Dabei verwenden wir zum Referenzieren des Word-Dokuments beispielsweise ThisDocument<\/b>. Wenn Du die Beispiele von einer anderen Anwendung aus ausprobieren möchtest, musst Du noch einen Verweis auf die Word-Instanz und das Dokument setzen – weitere Informationen dazu findest Du im Artikel Word mit VBA programmieren <\/b>(www.access-im-unternehmen.de\/348<\/b>).<\/p>\n Zum Anlegen einer Tabelle beispielsweise mit drei mal drei Feldern benötigen wir nur einen Einzeiler, den wir im Direktbereich des VBA-Editors absetzen können:<\/p>\n Dies legt bereits die Tabelle aus Bild 2 an.<\/p>\n Bild 2: Neue Tabelle mit drei Zeilen und drei Spalten<\/span><\/b><\/p>\n Wenn die Gitternetzlinien bei Dir nicht so erscheinen wie in der Abbildung, musst Du diese noch aktivieren.<\/p>\n Dazu wechselst Du im Ribbon zum Bereich Layout<\/b>, während die Tabelle aktiviert ist, und aktivierst in der Gruppe Tabelle <\/b>die Umschaltfläche Gitternetzlinien anzeigen<\/b> (siehe Bild 3).<\/p>\n Bild 3: Einblenden der Gitternetzlinien<\/span><\/b><\/p>\n Wir fügen also eine Tabelle zu einem Dokument hinzu, indem wir die Add<\/b>-Methode der Tables<\/b>-Auflistung des Dokuments nutzen. Hier haben wir direkt die drei wichtigsten Parameter beim Erstellen einer neuen Tabelle verwendet:<\/p>\n Es gibt noch zwei weitere Parameter:<\/p>\n Meist wollen wir nicht nur eine neue Tabelle anlegen, sondern noch weitere Schritte durchführen – beispielsweise, um die Tabelle zu formatieren oder diese mit Daten zu füllen. <\/p>\n Um eine Tabelle zu erstellen und diese direkt zu referenzieren, können wir die folgende Prozedur verwenden:<\/p>\n Haben wir eine Tabelle erstellt, können wir diese über die Tables<\/b>-Auflistung referenzieren:<\/p>\n Hier referenzieren wir die erste Tabelle des Dokuments. Wenn Du bereits mehrere Tabellen hinzugefügt hast, referenzieren wir diese über den entsprechenden Index.<\/p>\n Die Anzahl der Tabellen erhalten wir mit Tables.Count <\/b>ermitteln. Wir können die Tabellen eines Dokuments in einer For…Next<\/b>-Schleife oder einer For Each<\/b>-Schleife durchlaufen.<\/p>\n Gegebenenfalls möchtest Du per VBA eine Aktion für die Tabelle durchführen, die gerade markiert ist beziehungsweise in der sich aktuell die Einfügemarke befindet. Dazu nutzen wir ebenfalls die Count<\/b>-Methode – und zwar zählen wir die Tabellen innerhalb eines bestimmten Bereichs. Diesen referenzieren wir mit der Range<\/b>-Funktion und übergeben dieser die Position 0<\/b>, also den Start des Dokuments, und Selection.Paragraphs(1).Range.End<\/b>. Dieser Ausdruck liefert auch eine Position in Form eines Zahlenwerts.<\/p>\n Den Ausdruck zur Ausgabe des Index der aktuellen Tabelle nutzen wir in der folgenden Prozedur:<\/p>\n Wenn Du Operationen an der Tabelle durchführen möchtest, die gerade markiert ist, kannst Du vorher prüfen, ob sich die Einfügemarke überhaupt innerhalb einer Tabelle befindet. Dazu kannst Du die folgende Unterscheidung nutzen:<\/p>\n Auch die Anzahl der Zeilen und Spalten einer Tabelle lässt sich leicht ermitteln. Diese geben wir wie folgt für die erste Tabelle des Dokuments aus:<\/p>\n Wenn wir die Zeilen und Spalten mit Werten füllen wollen, können wir das beispielsweise wie folgt in einer Schleife erledigen:<\/p>\n Hier nutzen wir die Cell<\/b>-Eigenschaft, der wir die Zeile und die Spalte übergeben, um die Zelle zu referenzieren. Das Ergebnis dieser Prozedur finden wir in Bild 4.<\/p>\n Bild 4: Neue Tabelle mit gefüllten Zellen<\/span><\/b><\/p>\n Zum Auslesen können wir eine ähnliche Prozedur nutzen:<\/p>\n Hier erhalten wir allerdings am Ende die beiden Zeichen Chr(13) <\/b>und Chr(7)<\/b>. Wozu das? Der Text in der Zelle sollte eigentlich weder einen Zeilenumbruch enthalten noch das ominöse Zeichen, das durch den Code Chr(7) <\/b>abgebildet wird. Tatsächlich ist die Kombination dieser beiden der Code, mit dem das Ende einer Tabellenzelle wie auch das Ende einer Tabellenzeile in Word markiert wird. Die Kombination dieser Zeichen können wir sogar sichtbar machen, indem wir die Formatierungssymbole von Word einblenden (siehe Bild 5).<\/p>\n Bild 5: Darstellung von Chr(13) + Chr(7) in Word-Tabellen<\/span><\/b><\/p>\n Um den tatsächlichen Inhalt einer Zelle auszulesen, müssen wir also die Zeichenfolge Chr(13) & Chr(7) <\/b>am Ende ersetzen.<\/p>\n Wir können die Elemente einer Tabelle jedoch auch über die Row<\/b>– und Cell<\/b>-Objekte durchlaufen. Table <\/b>hat eine Rows<\/b>-Auflistung und jedes Row<\/b>-Objekt eine Cells<\/b>-Auflistung. Diese durchlaufen wir in zwei For Each<\/b>-Schleifen wie folgt:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Word-Tabellen per Benutzeroberfläche<\/h2>\n
<\/p>\nVorbereitung<\/h2>\n
Anlegen einer einfachen Tabelle<\/h2>\n
ThisDocument.Tables.Add ThisDocument.Range, 3, 3<\/pre>\n
![\"Neue](\"..\/fileadmin\/_temp_\/2023_01\/pic_352_002.png\")
<\/p>\n![\"Einblenden](\"..\/fileadmin\/_temp_\/2023_01\/pic_352_003.png\")
<\/p>\n\n
\n
Tabelle beim Anlegen referenzieren<\/h2>\n
Public Sub <\/span>EinfacheTabelle()\r\n Dim <\/span>objDocument As <\/span>Document\r\n Dim <\/span>objTable As <\/span>Table\r\n Set<\/span> objDocument = ThisDocument\r\n Set<\/span> objTable = ThisDocument.Tables.Add(Range, 3, 3)\r\nEnd Sub<\/span><\/pre>\nVorhandene Tabelle referenzieren<\/h2>\n
Public Sub <\/span>TabelleReferenzieren()\r\n Dim <\/span>objTable As <\/span>Table\r\n Set<\/span> objTable = ThisDocument.Tables(1)\r\nEnd Sub<\/span><\/pre>\nTabellen zählen<\/h2>\n
Index der aktuellen Tabelle ermitteln<\/h2>\n
Public Sub <\/span>IndexDerAktuellenTabelle()\r\n Dim <\/span>lngAktuelleTabelle As Long<\/span>\r\n lngAktuelleTabelle = ActiveDocument.Range(0, _\r\n Selection.Paragraphs(1).Range.End).Tables.Count\r\n MsgBox<\/span> \"Die aktuelle Tabelle hat den Index \" _\r\n & lngAktuelleTabelle\r\nEnd Sub<\/span><\/pre>\nEinfügemarke in Tabelle?<\/h2>\n
Public Sub <\/span>IstEinfuegemarkeInTabelle()\r\n If Selection.Range.Information( _\r\n WdInformation.wdWithInTable) Then\r\n MsgBox<\/span> \"Einfügemarke in Tabelle\"\r\n Else<\/span>\r\n MsgBox<\/span> \"Einfügemarke nicht in Tabelle\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nZeilen und Spalten zählen<\/h2>\n
Public Sub <\/span>ZeilenUndSpaltenEinerTabelle()\r\n Dim <\/span>objTable As <\/span>Table\r\n Set<\/span> objTable = ThisDocument.Tables(1)\r\n Debug.Print<\/span> \"Anzahl Spalten: \" & objTable.Columns.Count\r\n Debug.Print<\/span> \"Anzahl Zeilen: \" & objTable.Rows.Count\r\nEnd Sub<\/span><\/pre>\nZeilen und Spalten füllen<\/h2>\n
Public Sub <\/span>TabelleFuellen()\r\n Dim <\/span>objTable As <\/span>Table\r\n Dim <\/span>lngSpalte As Long<\/span>\r\n Dim <\/span>lngZeile As Long<\/span>\r\n Set<\/span> objTable = Tables.Add(Range, 3, 3)\r\n For lngZeile = 1 To 3\r\n For lngSpalte = 1 To 3\r\n objTable.Cell(lngZeile, lngSpalte).Range = _\r\n \"Zeile \" & lngZeile & \", Spalte \" & lngSpalte\r\n Next<\/span> lngSpalte\r\n Next<\/span> lngZeile\r\nEnd Sub<\/span><\/pre>\n![\"Neue](\"..\/fileadmin\/_temp_\/2023_01\/pic_352_004.png\")
<\/p>\nZeilen und Spalten auslesen<\/h2>\n
Public Sub <\/span>TabelleLesenCell()\r\n Dim <\/span>objTable As <\/span>Table\r\n Dim <\/span>lngSpalte As Long<\/span>\r\n Dim <\/span>lngZeile As Long<\/span>\r\n Set<\/span> objTable = Tables(1)\r\n For lngZeile = 1 To 3\r\n For lngSpalte = 1 To 3\r\n Debug.Print<\/span> lngZeile, lngSpalte, _\r\n objTable.Cell(lngZeile, lngSpalte).Range\r\n Next<\/span> lngSpalte\r\n Next<\/span> lngZeile\r\nEnd Sub<\/span><\/pre>\n![\"Darstellung](\"..\/fileadmin\/_temp_\/2023_01\/pic_352_005.png\")
<\/p>\nPublic Sub <\/span>TabelleLesenRowCell()\r\n Dim <\/span>objTable As <\/span>Table\r\n Dim <\/span>objRow As <\/span>Row\r\n Dim <\/span>objCell As <\/span>Cell\r\n Set<\/span> objTable = Tables(1)\r\n For Each objRow In objTable.Rows\r\n For Each objCell In objRow.Cells\r\n Debug.Print<\/span> objCell.Range\r\n Next<\/span> objCell\r\n Next<\/span> objRow\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t