Microsoft Office Forums - View Single Post - Need Help to Script to align all the tables only as of a section to end of doc?

Guessed · 03-27-2021, 11:28 PM

This point forward or this section forward are two different things. Both options are in this code.

Code:

Sub Tabulator()
  Dim aTbl As Table, oRng As Range
  Application.ScreenUpdating = False
    
    'Set oRng = ActiveDocument.Range(Selection.Range.Start, ActiveDocument.Range.End)
    Set oRng = ActiveDocument.Range(Selection.Range.Sections(1).Range.Start, ActiveDocument.Range.End)
    For Each aTbl In oRng.Tables
       aTbl.Rows.Alignment = wdAlignRowLeft
       aTbl.Rows.LeftIndent = InchesToPoints(0.38)
       aTbl.Rows.WrapAroundText = False
    Next aTbl
  
  Application.ScreenUpdating = True
End Sub