как удалить или изменить фоновые заливки во всех таблицах в документе Microsoft Word

Question

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

Я не могу изменить фоновую заливку для всех таблиц одновременно. У меня проблема в том, что когда я открываю такой документ и выбираю «Все», свойства таблицы неактивны.

Знаете ли вы метод выбора всех таблиц или метод применения глобального формата таблиц с помощью сценария или каким-либо другим способом?

Answer 1

Создайте макрос в Word, используя следующий код:

Sub SelectAllTables()
    Dim tbl As Table
    Application.ScreenUpdating = False
    For Each tbl In ActiveDocument.Tables
        tbl.Range.Editors.Add wdEditorEveryone
    Next
    ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
    ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
    Application.ScreenUpdating = True
End Sub

Запустите макрос, чтобы выбрать все таблицы, затем вы можете изменить их фон за один раз.

Answer 2

Я считаю, что надстройка Kutools для Word позволяет выбирать все таблицы одновременно. Это также совместимо с Word 2003.