Wenn Sie eine Tabelle in Word einfügen, wird automatisch ein Rahmen für jede Zelle in der Tabelle erstellt. Diese Grenze ist eine einzelne Linie mit einem halben Gewichtspunkt. Leider bietet Word keine Möglichkeit, die Standardzeilenbreite zu ändern, die Sie beim Erstellen der Tabelle verwenden. Zwar können Sie im Dialogfeld Rahmen und Schattierung eine Linienbreite auswählen, diese Gewichtung wird jedoch beim Einfügen einer neuen Tabelle auf einen halben Punkt zurückgesetzt.

Wenn Sie eine andere Linienbreite wünschen, z. B. einen Dreiviertelpunkt, haben Sie ein Problem. Sie müssen jede neue Tabelle manuell auswählen und die Rahmen so formatieren, dass sie die gewünschte Breite haben. Wenn Sie mit vielen Tischen arbeiten, kann dies schnell zu einem Problem werden. Sie können natürlich einen Tabellenstil erstellen, aber das Anwenden eines Tabellenstils kann zu ungleichmäßigen Ergebnissen führen, wenn Sie lediglich die Linienbreite ändern möchten oder wenn Sie mit einem Dokument arbeiten, auf das viele explizite Formatierungen angewendet wurden die Tische.

Vielleicht ist der beste Weg, um dieses Problem zu umgehen, ein Makro zu schreiben. Auch wenn dies möglicherweise nicht die idealste Lösung ist, ist es sicherlich einfacher, als jede Tabelle im Dokument manuell zu ändern.

Das folgende Makro, FixCellBorders, durchläuft jede Zelle in jeder Tabelle in Ihrem Dokument und stellt sicher, dass die minimale Linienstärke einen Dreiviertelpunkt beträgt. Dazu werden die aktuellen Zeileneinstellungen überprüft und die Einstellungen nur bei Bedarf vorgenommen.

Sub FixCellBorders()

On Error Resume Next     ' Work through all tables in document     For Each objTable In ActiveDocument.Tables         ' Work through all cells in each table         For Each objCell In objTable.Range.Cells             ' Work through all borders in each cell             For Each objBorder In objCell.Borders                 ' Check if line weight is less than 0.75 pt                 If objBorder.LineWidth = wdLineWidth025pt _                   Or objBorder.LineWidth = wdLineWidth050pt Then                     ' too thin, change it                     objBorder.LineWidth = wdLineWidth075pt                 End If             Next objBorder         Next objCell     Next objTable End Sub

Wie Sie sich vorstellen können, ist das Makro nicht besonders schnell, da es alle vier Ränder für jede Zelle in jeder Tabelle Ihres Dokuments betrachtet. Der Vorteil ist jedoch, dass das Makro nur das Gewicht eines Zellrandes ändert, der sich auf einem Viertel oder einem halben Punkt befindet. Dies bedeutet, dass sich die manuelle Formatierung, die Sie für verschiedene Linienbreiten vorgenommen haben, nicht ändert.

Wenn Sie nach einem etwas schnelleren Makro suchen, reicht das Folgende (FixTableBorders) aus. Anstatt einzelne Zellen zu betrachten, funktioniert es auf ganzen Tabellen. Der Unterschied besteht jedoch darin, dass jeder Rand jeder Tabelle mit einer einzigen Linie auf einen Dreiviertelpunkt zurückgesetzt wird. Wenn dies jedoch Ihren Anforderungen entspricht, ist es definitiv der einfachere (schnellere) Weg.

Sub FixTableBorders()

On Error Resume Next     For Each objTable In ActiveDocument.Tables         With objTable             With .Borders(wdBorderLeft)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderRight)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderTop)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderBottom)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderHorizontal)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderVertical)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With         End With     Next objTable End Sub

_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 (13081) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier:

Festlegen einer Standardtabellenrahmenbreite.