Office: (Office 2007) Wie Spaltenbreiten in MEHREREN Tabellen gleichzeitig ändern?

Gerhard H · 12. Juni 2013

Hallo Peter,

ich hab eine vorgefertigte Msg-Box verwendet, da kann man die Beschriftung der Schaltflächen nicht austauschen. Man könnte eine nehmen, wo es nur Ja oder Nein gibt. Dann gäbe es allerdings keine Möglichkeit, das Makro abzubrechen, bevor es die letzte Tabelle durchlaufen hat (siehe Code "Referenztabelle 5").

Alternativ ginge es auch mit einer selbst gestrickten Userform. Die müsste man allerdings erst basteln und dafür bin ich momentan ein bisschen knapp mit der Zeit.

Vielleicht kannst du mit einer der beiden Varianten leben. Andernfalls dauert es ein bisschen.
Code:

Sub referenztabelle5()
'durchwandert sämtliche Tabellen im Dokument und legt nur auf Wunsch
'die Spaltenbreiten jeder Tabelle so fest wie in der (ersten) Referenztabelle
'die linken Absatzeinzüge in jeder Zelle werden an die der Referenztabelle angepasst

Dim i As Integer, j As Integer, k As Integer, m As Integer
Dim anwenden As Integer

With ActiveDocument
For i = 2 To .Tables.Count
Tables(i).Select
anwenden = MsgBox("Formatierung auf die markierte Tabelle anwenden?", vbYesNo)

If anwenden = vbYes Then

For j = 1 To .Tables(i).Columns.Count
If .Tables(i).Columns.Count .Tables(1).Columns.Count Then
MsgBox "Tabelle " & i & " hat mehr oder weniger Spalten als Tabelle 1." & vbLf & _
"Diese Tabelle wird nicht bearbeitet." & vbLf & _
"OK, um die restlichen Tabellen zu bearbeiten."
Exit For
End If
'Spaltenbreiten anpassen
.Tables(i).Columns(j).Width = .Tables(1).Columns(j).Width
Next j

'Absatzeinzüge in allen Spalten anpasssen
For k = 1 To .Tables(i).Rows.Count
For m = 1 To Tables(i).Rows(k).Cells.Count
.Tables(i).Rows(k).Cells(m).Range.ParagraphFormat.LeftIndent = _
Tables(1).Rows(1).Cells(m).Range.ParagraphFormat.LeftIndent
Next m
Next k
End If
Next i
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2007) Wie Spaltenbreiten in MEHREREN Tabellen gleichzeitig ändern?

Wie Spaltenbreiten in MEHREREN Tabellen gleichzeitig ändern?

Wie Spaltenbreiten in MEHREREN Tabellen gleichzeitig ändern?

Wie Spaltenbreiten in MEHREREN Tabellen gleichzeitig ändern? - Similar Threads - Spaltenbreiten MEHREREN Tabellen

Unterschiedliche Spaltenbreiten auf einer Seite möglich?

Spaltenbreite in Pixel umrechnen

Wie Spalten per VBA mit definierten Spaltenbreiten einfügen ?

Spaltenbreite stellt sich von 22,00mm zurück auf 21,96mm

Umrechnung Spaltenbreite und Zeilenhöhe in mm

Ändern der Spaltenbreite und Zeilenhöhe

Ändern der Spaltenbreite oder Zeilenhöhe