1

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

Добрый вечер. В документе есть около 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???

2

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

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???

Надо вставить следующую строку кода:

Selection.Tables(1).Rows.Alignment = wdAlignRowCenter

jaroslav, освойте работу с макрорекодером, и тогда ответы на многие вопросы по коду VBA вы получите "не отходя от кассы".

3

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

Спасибо, Boris

4

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

Boris_R пишет:

освойте работу с макрорекодером, и тогда ответы на многие вопросы по коду VBA вы получите "не отходя от кассы".

Это далеко не панацея. Не буду говорить за всех, но у меня в word 2010 макрорекордер сильно глючит. Например, ворд просто не выравнивает таблицу по центру страницы если пишется макрос, или, при закрытии окна "Разметка" (размер и положение рисунка) ворд просто падает.
И еще куча мелких косяков, которые я уже и не упомню.