Office: (Office 365) Zeilenabstand in allen Tabellen ändern

Hallo Community,

ich habe ab und an Word-Exports aus Confluence die ziemlich elendlich aussehen, vor allem die Tabellen. Der Zeilenabstand ist dort immer 1,0 und ich möchte den gerne für bessere Lesbarkeit auf 1,5 ändern.
In so einem Dokument sind gut und gern mal 50 oder noch mehr Tabellen, die ich aber ungern alle einzeln anklicken möchte, um deren Zeilenabstand zu ändern.

Gibt es eine Möglichkeit den Zeilenabstand aller enthaltenen Tabellen auf einmal auf 1,5 zu ändern? Ich habe es schon mit Tabellenvorlagen probiert, es aber leider nicht hinbekommen, daher suche ich nun Hilfe!

Ich danke Euch schon mal im Voraus.

 

Hallo tomcec,
du könntest das per VBA so machen:

Code:

Sub zeilenabstand()
Dim tabelle As Table

    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "In diesem Dokument gibts keine Tabellen"
        Exit Sub
    End If
  
    For Each tabelle In ActiveDocument.Tables
        tabelle.Range.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5
    Next tabelle
End Sub

Wenn du das öfter brauchst, kopiere diesen Code in ein Modul deiner normal.dotm und lass ihn auf das jeweils aktive Dokument los.

 

Hallo Gerhard, vielen Dank die Zeilen - genau das was ich gebraucht habe! Super!

VG, Tom