1 Тема от jaroslav

  • jaroslav
  • сержант
  • Неактивен
  • Зарегистрирован: 07.05.2010
  • Сообщений: 29

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

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

  • Boris_R
  • полковник
  • Неактивен
  • Зарегистрирован: 07.08.2012
  • Сообщений: 234
  • Поблагодарили: 110
  • За сообщение: 1

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 Ответ от jaroslav

  • jaroslav
  • сержант
  • Неактивен
  • Зарегистрирован: 07.05.2010
  • Сообщений: 29

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

Спасибо, Boris

4 Ответ от Aleks

  • Aleks
  • майор
  • Неактивен
  • Зарегистрирован: 19.05.2014
  • Сообщений: 69
  • Поблагодарили: 21

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

Boris_R пишет:

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

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