1

У меня есть документ с 137 таблицами, затененными ужасным синим и трехмерным стилем, который заставляет их занимать слишком много места.

Как мне хотя бы избавиться от затенения на них всех одновременно?

Было бы неплохо знать, как редактировать их все, чтобы избавиться от посторонних стилей и сделать их простыми выровненными таблицами, которые автоматически подгоняют содержимое, но я знаю, что есть много вопросов.

2 ответа2

4

Вы можете запустить этот VBA как макрос, чтобы удалить затенение и изменить стиль таблицы на обычные границы;

Sub RemoveShading()

    Dim tbl As Table
    For Each tbl In ActiveDocument.Tables
        tbl.Shading.Texture = wdTextureNone
        tbl.Shading.ForegroundPatternColor = wdColorAutomatic
        tbl.Shading.BackgroundPatternColor = wdColorAutomatic
        tbl.Style = "Table Grid"
    Next

End Sub

Примечание. Я проверял это в Word 2010 с таблицами, построенными из стандартных панелей инструментов.

Редактировать с помощью OP:

  • Чтобы создать этот макрос, выберите Файл, Параметры, Настройка ленты.
  • Установите флажок "Разработчик" в разделе "Основные вкладки" в разделе "Настройка ленты" справа.
  • Нажмите "ОК"
  • На ленте разработчика щелкните Макросы
  • Назовите новый макрос, отредактируйте его, скопируйте и вставьте код в всплывающем окне VBA, сохраните и закройте.
  • Нажмите макрос снова в слове и запустите новый модный макрос
0

Чтобы удалить затенение:

Щелкните правой кнопкой мыши в любом месте таблицы и выберите « Borders and Shading

Переключиться на вкладку Shading

Установите следующее:

Fill No Color Patterns -> Style для Clear Apply to к Table

Нажмите OK

Чтобы удалить все форматирование, примененное к тексту:

Щелкните правой кнопкой мыши в любом месте таблицы и выберите « Select -> « Table

Нажмите Ctrl + Пробел, чтобы очистить все форматирование

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .