Wenn Sie ein Dokument haben, das einige Tabellen enthält, suchen Sie möglicherweise nach einer Möglichkeit, die Breite aller Tabellen im Dokument zu ändern. Beispielsweise können Ihre Unternehmensstandards verlangen, dass alle Tabellen die gleiche Breite haben und sich vom linken zum rechten Rand erstrecken.

Wenn Sie vierzig oder mehr Tabellen in einem Dokument haben, kann es sehr mühsam sein, die Breite aller Tabellen einzeln zu ändern.

Das folgende Makro, ResizeAllTables, erledigt schnell das, was es sagt – die Größe aller Tabellen ändern. Die Breite der Tabellen wird angepasst, um die verfügbaren Ränder zu füllen.

Sub ResizeAllTables()

Dim oTbl As Table     For Each oTbl In ActiveDocument.Tables         oTbl.AutoFitBehavior wdAutoFitFixed         With ActiveDocument.PageSetup             oTbl.PreferredWidth = .PageWidth - .LeftMargin - .RightMargin         End With     Next oTbl End Sub

Nach Abschluss des Makros sollten Sie weiterhin jede Tabelle untersuchen, um sicherzustellen, dass Ihre Spaltenbreiten für Ihre Daten geeignet sind. Die Gesamtbreite der Tabellen entspricht jedoch Ihren Erwartungen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1382) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Breite aller Tabellen erweitern.