Выделение всех таблиц в документе

Sub Макрос1()
  Dim t As Table
  For Each t In ActiveDocument.Tables
    t.AutoFitBehavior wdAutoFitWindow
    t.Rows.HeightRule = wdRowHeightAtLeast
    t.Rows.Height = CentimetersToPoints(0.3)
  Next
End Sub

Sub Macros_2()
'
' Macros_2 for changing font size and paragraph stile for all tables in the document
'
'
  Dim t As Table
  For Each t In ActiveDocument.Tables
  With t
        .Columns.Select
            With Selection.ParagraphFormat
                .LeftIndent = CentimetersToPoints(0)
                .RightIndent = CentimetersToPoints(0)
                .SpaceBefore = 0
                .SpaceBeforeAuto = False
                .SpaceAfter = 0
                .SpaceAfterAuto = False
                .LineSpacingRule = wdLineSpaceMultiple
                .LineSpacing = LinesToPoints(1.15)
                .Alignment = wdAlignParagraphLeft
                .WidowControl = True
                .KeepWithNext = False
                .KeepTogether = False
                .PageBreakBefore = False
                .NoLineNumber = False
                .Hyphenation = True
                .FirstLineIndent = CentimetersToPoints(0)
                .OutlineLevel = wdOutlineLevelBodyText
                .CharacterUnitLeftIndent = 0
                .CharacterUnitRightIndent = 0
                .CharacterUnitFirstLineIndent = 0
                .LineUnitBefore = 0
                .LineUnitAfter = 0
                .MirrorIndents = False
                .TextboxTightWrap = wdTightNone
            End With
        .AutoFitBehavior wdAutoFitWindow
        .Range.Font.Size = 9   
    End With
  Next t
End Sub

Sub tbl_n()
Dim tblObj As Table, i As Long
For Each tblObj In ThisDocument.Tables
    For i = tblObj.Rows.Count To 1 Step -1
        If tblObj.Rows.Item(i).HeadingFormat Then
            tblObj.Rows.Item(i).Cells.Borders(wdBorderBottom).LineStyle = wdLineStyleDouble
            Exit For
        
        End If
        
    
    Next i
Next tblObj