3 способа пакетного удаления цвета заливки нескольких фигур в документе Word

В этом пost, мы рады показать вам 3 эффективных метода пакетного удаления цвета заливки нескольких фигур в документе Word.

При вставке фигур в документ Word вы также можете применить к ним цвет заливки. Легко добавить или удалить цвет заливки одной фигуры. Но когда дело доходит до пакетной обработки, нам понадобится некоторая хитрость.

На этот раз мы хотим показать вам, как пакетно удалить цвет заливки нескольких фигур в документе. Таким образом, вы можете заполнить их нужными цветами или просто оставить фигуры на пустом фоне. Ниже приведены 3 метода, которые могут помочь вам в разных случаях.

Способ 1: удалить цвет заливки нескольких фигур на странице

1. Прежде всего, нажмите вкладку «Главная» на ленте.
2. Затем нажмите команду «Выбрать» в группе «Редактирование».
3. В раскрывающемся меню выберите «Панель выбора».
4. Теперь на панели «Выбор и видимость» вы можете увидеть все названия фигур на этой странице. Нажмите «Ctrl», чтобы выбрать нужные фигуры.
5. Затем нажмите «Формат» на ленте.
6. Затем нажмите «Заливка формы».
7. Выберите «Без заливки» в раскрывающемся меню.

Метод 2: пакетное удаление цвета заливки всех фигур в документе

1. Первый и первыйost, если доступна вкладка «Разработчик», щелкните ее, а затем щелкните «Visual Basic», чтобы открыть редактор VBA. Если «Разработчик» не активирован, вместо этого нажмите «Alt+F11».
2. Теперь в редакторе щелкните проект «Обычный» с левой стороны.
3. Затем нажмите «Вставить» в строке меню.
4. Затем выберите «Модуль» в раскрывающемся меню.
5. Дважды щелкните новый модуль, чтобы открыть его, и вставьте туда эти коды:

Sub RemoveAllShapeFill()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    objShape.Fill.Visible = False
    objShape.Line.Visible = msoTrue
  Next objShape
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

6. Наконец, нажмите кнопку «Выполнить» или нажмите «F5», чтобы выполнить коды.

Способ 3: удалить цвет заливки всех текстовых полей в документе

Текстовые поля относятся к категории фигур. Если вы хотите удалить цвет заливки всех текстовых полей, но сохранить цвет других фигур, вы можете использовать этот способ.

1. Во-первых, повторите шаги метода 2, чтобы установить и запустить макрос.
2. И на этот раз замените этот макрос на этот:

Sub RemoveTextBoxFill()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Fill.Visible = msoFalse
      objShape.Line.Visible = msoTrue
    Else
      Exit For
    End If
  Next objShape
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Вот результат:

Быстрое восстановление поврежденных документов

Если вы когда-нибудь столкнетесь с повреждением документа, не паникуйте. Имейте в виду, что мost документы подлежат восстановлению. Что вы должны сделать, это воспользоваться временем и получить исправление документа инструмент. В настоящее время такая утилита может стать отличным подспорьем в восстановлении ваших данных.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая xls исправление и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com