Как изменить стиль всех таблиц в Microsoft Word

Чтобы придать существующим таблицам в Microsoft Word одинаковый вид, запустите короткий макрос VBA в настольном приложении Word. Макрос перебирает основные таблицы документа и назначает выбранный вами стиль таблицы. Галерея «Дизайн таблиц» форматирует выбранную таблицу; макрос применяет один стиль ко всему документу за один запуск. Отдельная настройка Word управляет таблицами, которые вы создадите позже.

Эти скриншоты и пути к меню относятся к Word для Windows. Word для Mac также поддерживает макросы, хотя его меню отличаются. Веб-версия Word может отображать результат, но не может запускать макросы VBA. Сохраните копию документа перед началом работы.

1. Найдите точное название стиля таблицы.

Щелкните внутри таблицы, чтобы отобразить контекстную вкладку «Конструктор таблиц» . Откройте галерею стилей таблиц и наведите указатель мыши на нужный стиль. Запишите имя, отображаемое во всплывающей подсказке; макросу необходимо точное имя, включая пробелы и знаки препинания. Если стиль уже есть в документе, вы можете выбрать его там. Microsoft описывает элементы управления форматированием таблиц на вкладке «Конструктор таблиц» .

2. Отобразить вкладку «Разработчик».

В Word для Windows выберите Файл > Параметры > Настройка ленты . В разделе «Основные вкладки» установите флажок «Разработчик» , затем нажмите ОК . В Word для Mac откройте Word > Настройки > Лента и панель инструментов , выберите «Настройка ленты» > «Основные вкладки» , установите флажок «Разработчик» и сохраните. См. инструкции Microsoft по отображению вкладки «Разработчик» .

3. Создайте макрос в документе.

На вкладке «Разработчик» выберите «Макросы» . Введите ApplyTableStyleToAllTablesв качестве имени макроса. В списке «Макросы в» выберите текущий документ, чтобы макрос был сохранен вместе с ним, затем нажмите «Создать ». Word откроет редактор Visual Basic. Эти шаги соответствуют руководству Microsoft по созданию или запуску макросов .

4. Добавьте код стиля таблицы.

В редакторе замените приведенный пример кода следующим. Измените только слова внутри кавычек на точное название стиля из галереи; кавычки и остальной код оставьте без изменений.

Sub ApplyTableStyleToAllTables()
    Dim tbl As Table

    For Each tbl In ActiveDocument.Tables
        tbl.Style = "REPLACE WITH YOUR EXACT STYLE NAME"
    Next tbl
End Sub

Свойство принимает имя стиля, поэтому орфографические или пунктуационные ошибки могут помешать Word найти стиль. Проверьте имя перед запуском макроса. Цикл использует коллекцию документа ; Microsoft отмечает Table.Style,Tables что количество элементов в коллекции документа охватывает основной текст (тело документа) в своем справочнике по таблицам . Таблицы в верхних и нижних колонтитулах или других диапазонах текста могут потребовать отдельной обработки.

5. Запустите макрос.

Закройте редактор Visual Basic, чтобы вернуться в Word. Выберите «Разработчик» > «Макросы» , выберите ApplyTableStyleToAllTablesи нажмите «Выполнить» . Word изменит стиль каждой таблицы в основном тексте активного документа. Если у вас открыто несколько документов, убедитесь, что активен правильный документ, прежде чем запускать его.

6. Проверьте и сохраните результат.

Проверьте таблицы на наличие читаемых заголовков, границ и затенения. Параметры стиля таблицы, такие как «Строка заголовка» и «Строки с полосами» , или форматирование, применяемое вручную к отдельным ячейкам, могут привести к тому, что две таблицы, использующие один и тот же именованный стиль, будут выглядеть по-разному.

Чтобы сохранить макрос для последующих запусков, сохраните файл как документ Word с поддержкой макросов (.docm) . Сохранение результата в обычной .docxкопии сохраняет форматирование таблицы, но не код VBA. Word для веб-версии может открывать .docmфайлы, но макросы работают только в настольном приложении; см. руководство Microsoft по функциям браузера и настольной версии .

Задайте стиль для таблиц, которые вы добавите позже.

Приведённый выше цикл изменяет существующие таблицы при его выполнении. Он не автоматически стилизует каждую таблицу, которую вы можете вставить в будущем. В Word есть отдельный метод VBA для установки стиля по умолчанию для вновь создаваемых таблиц. Добавьте и запустите этот отдельный макрос, если вам нужно такое поведение; замените заполнитель на точно такое же имя стиля:

Sub SetDefaultTableStyleForNewTables()
    ActiveDocument.SetDefaultTableStyle _
        Style:="REPLACE WITH YOUR EXACT STYLE NAME", _
        SetInTemplate:=False
End Sub

В документации Microsoft параметр SetDefaultTableStyle используется для настройки стилей вновь создаваемых таблиц. Установка SetInTemplateэтого параметра Trueтакже сохраняет стиль в прилагаемом шаблоне; оставьте его без изменений, Falseесли хотите изменить только стиль по умолчанию для всего документа.

Примечание по безопасности макросов

Запускайте только те макросы, которые вы понимаете и которым доверяете. Если Word блокирует макросы, это может зависеть от настроек администратора на работе или в учебном заведении. Не включайте все макросы глобально только для запуска этого кода; обратитесь к руководству Microsoft по безопасности макросов или к своему администратору.