For i = 1 To ActiveDocument.Tables.Count

 ActiveDocument.Tables(i).Cell(1, 1).Select

 With Selection

 .SelectRow

 .Font.Bold = True

 .Shading.BackgroundPatternColor = -603923969

End With

 ActiveDocument.Tables(i).Range.Font.Size = 10

 Next

For i = 1 To ActiveDocument.Tables.Count

 ActiveDocument.Tables(i).Style = "my"

Next

For i =  To ActiveDocument.Tables.Count

 ActiveDocument.Tables(i).Style = "my"

With With ActiveDocument.Tables(i).Range.ParagraphFormat

       .SpaceBeforeAuto = False

        .SpaceAfterAuto = False

        .LineSpacingRule = wdLineSpace1pt5

        .Alignment = wdAlignParagraphCenter

        .WidowControl = False

        .KeepWithNext = False

        .KeepTogether = False

        .PageBreakBefore = False

        .NoLineNumber = False

        .Hyphenation = True

        .FirstLineIndent = CentimetersToPoints()

        .OutlineLevel = wdOutlineLevelBodyText

        .CharacterUnitLeftIndent =

        .CharacterUnitRightIndent =

        .CharacterUnitFirstLineIndent =

        .MirrorIndents = False

        .TextboxTightWrap = wdTightNone

        .CollapsedByDefault = False

        .AutoAdjustRightIndent = True

        .DisableLineHeightGrid = False

        .FarEastLineBreakControl = True

        .WordWrap = True

        .HangingPunctuation = True

        .HalfWidthPunctuationOnTopOfLine = False

        .AddSpaceBetweenFarEastAndAlpha = True

        .AddSpaceBetweenFarEastAndDigit = True

        .BaseLineAlignment = wdBaselineAlignAuto

        End With

 Next