выровнять таблицы по центру страницы

[Jaroslav]

Добрый вечер. В документе есть около 20 таблиц. Хочу с помощью макроса поставить их по центру. Делаю так для 1 таблицы:

Selection.Tables(1).Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

Но этот код выравнивает не таблицу, а текст внутри таблицы! Подскажите, пожалуйста, что делать

Dim myTable As Table
For Each myTable In ActiveDocument.Tables
myTable.Select
Next myTable

Что нужно написать после myTable.Select???

[Jaroslav]

Вот ответ:

Dim myTable As Table
For Each myTable In ActiveDocument.Tables
myTable.Select
Selection.Tables(1).Rows.Alignment = wdAlignRowCenter
Next myTable