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

У цій публікації ми раді показати вам 3 ефективні методи пакетного видалення кольору заливки кількох фігур у вашому документі Word.

Вставляючи фігури в документ Word, ви також можете застосувати колір заливки до них. Легко додати або видалити колір заливки однієї фігури. Але що стосується пакетної обробки, нам знадобиться деяка хитрість.

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

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

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

Спосіб 2: Пакетне видалення кольору заливки всіх фігур у документі

1. Перш за все, якщо вкладка «Розробник» доступна, клацніть на ній, а потім натисніть «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

Ось результат:

Швидко відновіть пошкоджені документи

Якщо ви коли-небудь зіткнетеся з пошкодженням документів, не панікуйте. Пам’ятайте, що більшість документів можна відновити. Вам слід не поспішати та отримати doc fix інструмент. У наш час така утиліта може бути чудовою підмогою для повернення ваших даних назад.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі XLS виправити та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com