3 начина за групово премахване на цвета на запълване на множество форми във вашия документ на Word

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

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

Този път искаме да ви покажем как групово да премахнете цвета на запълване на множество фигури в документа. Така че можете да ги напълните с желаните цветове или просто да оставите фигури на празен фон. Следват 3 метода, които могат да ви помогнат в различни случаи.

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

1. На първо място, щракнете върху раздела „Начало“ в лентата.
2. След това щракнете върху командата „Избор“ в групата „Редактиране“.
3. От падащото меню изберете „Панел за избор“.
4. Сега в прозореца „Избор и видимост“ можете да видите всички имена на фигури на тази страница. Натиснете „Ctrl“, за да изберете фигурите, от които се нуждаете.
5. След това щракнете върху „Форматиране“ в лентата.
6. След това щракнете върху „Shape Fill“.
7. Изберете “No Fill” от падащото меню.

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

1. Първо и най-важно, ако е наличен разделът „Разработчик“, щракнете върху него и след това върху „Visual Basic“, за да отворите редактора на VBA. Ако „Разработчик“ не е активиран, натиснете „Alt+ F11“.
2. Сега в редактора щракнете върху проекта „Normal“ отляво.
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

Ето резултата:

Бързо възстановяване на повредени документи

Ако някога се сблъскате с повреда на документи, не се паникьосвайте. Имайте предвид, че повечето документи могат да бъдат възстановени. Това, което трябва да направите, е да отделите време и да получите корекция на документ инструмент. В днешно време такава програма може да бъде чудесна помощ при извличането на данните ви обратно.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително xls поправяне и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com