Макрос в 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
Рубрики: Метки: , ,

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход /  Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход /  Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход /  Изменить )

Connecting to %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.