Не могу зациклить макрос

[Frommerrr]

С помощью макрорекордера создал макрос форматирования таблицы
вот код:
Sub Tablica()
'
' Tablica Макрос
' Макрос записан 23.03.2010 Артем
'
Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Borders(wdBorderTop).Line Style = wdLineStyleNone
Selection.Borders(wdBorderLeft).Lin eStyle = wdLineStyleNone
Selection.Borders(wdBorderBottom).L ineStyle = wdLineStyleNone
Selection.Borders(wdBorderRight).Li neStyle = wdLineStyleNone
Selection.Borders(wdBorderHorizonta l).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderVertical) .LineStyle = wdLineStyleNone
With Selection.Borders(wdBorderTop)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderLeft)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderBottom)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderRight)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderHorizonta l)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderVertical)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphCenter
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0)
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
End With
With Selection.Font
.Name = "Calibri"
.Size = 12
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
End Sub

Я не знаю как сделать так чтобы запуск макроса форматировал все таблицы в документе так, как я записал. То есть нужно как-то зациклить этот процесс на все таблицы. Кто знает как -- допишите код с использованием кода цикла. Читал литературу по этому вопросу - без примеров не понял.

[Вождь]

Макрос обработки всех таблиц активного документа вашим макросом:

Sub TablicaAll()
Dim T As Table
    For Each T In ActiveDocument.Tables
        T.Select
        Tablica
    Next T
End Sub

Поместите это макрос рядом с записанным Вами.

[Frommerrr]

Спасибо Вождь! Работает как по писанному.