עזרה בוורד איזה קוד צריך להוסיף למאקרו לחזרת הפעולה עד סוף המסמך?

[2u2]

הקלטתי מאקרו שממרכז את הטבלה לפי עמוד ולא לפי שוליים, כל פעם אני בוחר את הטבלה הרצויה ומפעיל את המאקרו.
איזה קוד צריך להוסיף למאקרו בשביל שיבצע את זה שוב ושוב עד סוף המסמך?
זה המאקרו

Sub מרכוז_טבלה()
'
' מרכוז_טבלה Macro
'
'
    With Selection.Tables(1).Rows
        .WrapAroundText = True
        .HorizontalPosition = wdTableCenter
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .DistanceLeft = CentimetersToPoints(0.32)
        .DistanceRight = CentimetersToPoints(0.32)
        .VerticalPosition = CentimetersToPoints(0)
        .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
        .DistanceTop = CentimetersToPoints(0)
        .DistanceBottom = CentimetersToPoints(0)
        .AllowOverlap = False
   
    End With
   
End Sub

 

[xl3391]

להכניס ללולאת for each כך:

Sub מרכוז_טבלה()

'
Dim t As Table
For Each t In ActiveDocument.Tables
 
    With t.Rows
        .WrapAroundText = True
        .HorizontalPosition = wdTableCenter
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .DistanceLeft = CentimetersToPoints(0.32)
        .DistanceRight = CentimetersToPoints(0.32)
        .VerticalPosition = CentimetersToPoints(0)
        .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
        .DistanceTop = CentimetersToPoints(0)
        .DistanceBottom = CentimetersToPoints(0)
        .AllowOverlap = False
 
    End With
   Next
End Sub

 

[2u2]

@xl3391 עבד מעולה, תודה רבה.

יש לי שאלה נוספת, יש במסמך קוים (באורך 6.93 ס"מ) שתוחמים כל קטע וקטע, אני מנסה לבנות מאקרו שימרכז אותם בכל המסמך, אבל הוא לא מקליט כלום מעבר לפעולת הבחירה, כזה:

Sub Macro1()
'
' Macro1 Macro
'
'
    ActiveDocument.Shapes.Range(Array("Line 12")).Select
  
End Sub

 

[xl3391]

צר לי. איני יודעת.