Макрос в MS Word для форматирования всех таблиц в документе

Для редактирования документа для dmsguild из-за своей лени накропал макрос по форматированию всех таблиц в документе.

 

Sub AllTableFormatting()
Dim pT As Word.Table
For Each pT In ActiveDocument.Tables
pT.Style = "Стиль1"
pT.ApplyStyleHeadingRows = Not pT. _
ApplyStyleHeadingRows
pT.ApplyStyleFirstColumn = Not pT. _
ApplyStyleFirstColumn
pT.Range.Style = ActiveDocument.Styles("Table Text")
Next
End Sub