In Microsoft Word ist es problemlos möglich, Formatierungen auf umfangreiche Textpassagen anzuwenden. Die Formatierung eines Textabschnitts lässt sich kopieren und mit wenigen Handgriffen auf ganze Absätze und Bereiche übertragen. Dies gilt jedoch bedauerlicherweise nicht für Tabellen. Um das Erscheinungsbild aller Tabellen in einem Dokument zu vereinheitlichen, ist es normalerweise erforderlich, jede Tabelle einzeln anzupassen. Eine praktikable Alternative hierfür stellt die Verwendung eines Makros dar.
Den Tabellenstil identifizieren
Bevor Sie mit der Erstellung des Makros beginnen können, müssen Sie den genauen Namen des Tabellenstils herausfinden, den Sie verwenden möchten. Dies ist relativ einfach. Öffnen Sie das Word-Dokument, in dem Sie die Tabellenstile verändern möchten. Klicken Sie in eine beliebige Tabelle und navigieren Sie im Menüband zu dem Reiter „Tabellentools“, dort wählen Sie den Reiter „Design“.
Fahren Sie mit dem Mauszeiger über den Tabellenstil, den Sie auf sämtliche Tabellen anwenden möchten. Es wird ein Tooltip mit dem entsprechenden Namen eingeblendet. Notieren Sie sich diesen Namen, da er für die Makroerstellung benötigt wird.
Erstellung eines Makros zur Tabellenstiländerung
Aktivieren Sie die Registerkarte „Entwicklertools“ in Word. Gehen Sie dazu auf „Datei“ > „Optionen“ > „Menüband anpassen“. Setzen Sie einen Haken bei der Option „Entwickler“ und kehren Sie zu Ihrem Dokument zurück.
Klicken Sie im Reiter „Entwicklertools“ auf die Schaltfläche „Makros“. Geben Sie dem Makro den folgenden Namen:
ApplyTableStyle
Klicken Sie auf „Erstellen“ und kopieren Sie den folgenden Code in das Codefenster. Beachten Sie jedoch, dass Sie die folgende Zeile modifizieren müssen: tbl.Style = "Medium Shading 2 – Accent 1". Ersetzen Sie den Text in den Anführungszeichen durch den Namen des Tabellenstils, den Sie im vorherigen Schritt notiert haben. Entfernen Sie die Anführungszeichen im Code nicht. Ersetzen Sie lediglich den Namen des Tabellenstils und führen Sie ihn anschließend aus.
Sub ApplyTableStyle() Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.Style = "Medium Shading 2 - Accent 1" Next End Sub
Das ist alles. Sobald das Makro ausgeführt wurde, wird der Stil aller Tabellen im Dokument automatisch angepasst. Wenn Sie jemals einen anderen Tabellenstil verwenden möchten, müssen Sie dieses Makro entfernen, da es den Stil aller Tabellen proaktiv in den im Makro festgelegten Stil ändert.
Um den vom Makro verwendeten Stil zu ändern, müssen Sie den Code bearbeiten und den Namen des gewünschten Stils ersetzen. Das Makro wendet den jeweiligen Stil sowohl auf vorhandene als auch auf neu erstellte Tabellen im Dokument an. Es wäre zweifellos einfacher, wenn Microsoft Word eine integrierte Funktion dafür bereitstellen würde. Es scheint eine seltsame Unzulänglichkeit der Software zu sein.