Ihre Browserversion ist veraltet. Wir empfehlen, Ihren Browser auf die neueste Version zu aktualisieren.

oerttel.net

/
Tabellenrand: Text oder Rahmen bündig mit dem Satzspiegel

Tabellenrand: Text oder Rahmen bündig mit dem Satzspiegel

Veröffentlicht am 16.07.2020

Seit Word 2013 sind die Tabellenrahmen beim Einfügen typographisch korrekt bündig mit dem Satzspiegel. Das hat allerdings bei ungerahmten Tabellen den Effekt, dass der Text innerhalb der Tabelle eingerückt erscheint. Den Text nun bündig am Satzspiegel auszurichten, ist mit der Maus im Lineal nur fummelig unter Zuhilfenahme der Alt-Taste möglich oder per Übernahme der Werte aus dem Dialog Zellenrahmen in der Registerkarte Tabellenlayout in den Absatz-Dialog in der Registerkarte Start. Am einfachsten geht das mit einem kleinen Makro, das die Tabellenränder um den Wert der inneren Abstände ausrückt.

Wichtig: Beim Aufruf des Makros muss die Schreibmarke in der zu bearbeitenden Tabelle stehen.

Sub Tabelleninhaltfluchten()
On Error GoTo fehler
    With Selection.Tables(1)
        einzuglinks = .LeftPadding * -1
        .Rows.SetLeftIndent LeftIndent:=einzuglinks, RulerStyle:=wdAdjustNone
        letztespalte = .Columns.Count
        breite = .Columns(letztespalte).Width + .RightPadding
        .Columns(letztespalte).SetWidth ColumnWidth:=breite, RulerStyle:=wdAdjustNone
        .Select
        With Selection
            .Borders(wdBorderTop).LineStyle = wdLineStyleNone
            .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
            .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
            .Borders(wdBorderRight).LineStyle = wdLineStyleNone
            .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
            .Borders(wdBorderVertical).LineStyle = wdLineStyleNone
            .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
            .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        End With
    End With
    GoTo fertig
fehler: MsgBox ("Fehler aufgetreten." & Chr(13) & "Steht die Schreibmarke in der Tabelle?")
fertig:
End Sub

Cookie-Regelung

Diese Website verwendet Cookies, zum Speichern von Informationen auf Ihrem Computer.

Stimmen Sie dem zu?