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