3 Ways to Batch Remove the Fill Color of Multiple Shapes in Your Word Document

In this post, we are glad to show you 3 effective methods to batch remove the fill color of multiple shapes in your Word document.

While inserting shapes into a Word document, you may apply fill color to them as well. It’s easy to add or remove the fill color of a single shape. But when it comes to batch processing, we will need some trick.

This time, we want to show you how to batch remove the fill color of multiple shapes in document. So you can refill them with desired colors or just leave shapes in blank background. Following are 3 methods that can help you in different cases.

Method 1: Remove the Fill Color of Multiple Shapes on a Page

1. First of all, click “Home” tab in the Ribbon.
2. Then click the “Select” command in “Editing” group.
3. On the drop-down menu, choose “Selection Pane”.
4. Now on the “Selection and Visibility” pane, you can see all the name of shapes on this page. Press “Ctrl” to select the shapes you need.
5. Then click “Format” in the Ribbon.
6. Next click “Shape Fill”.
7. Choose “No Fill” on the drop-down menu.

Method 2: Batch Remove the Fill Color of All Shapes in a Document

1. First and foremost, if the “Developer” tab is available, click on it and then click the “Visual Basic” to open the VBA editor. If the “Developer” hasn’t been activated, press “Alt+ F11” instead.
2. Now in the editor, click the “Normal” project on the left side.
3. Then click “Insert” on the menu bar.
4. Next choose “Module” on the drop-down menu.
5. Double click on new module to open it and paste these codes there:

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. Lastly, click “Run” button or press “F5” to execute codes.

Method 3: Remove the Fill Color of All Text Boxes in a Document

Text boxes belong to the shape category. In case you want to remove the fill color of all text boxes but keep that of other shapes, you can utilize this way.

1. Firstly, repeat steps in method 2 to install and run a macro.
2. And this time, replace that macro with this one:

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

Here is the outcome:

Quickly Recover Damaged Documents

If you ever run into document corruption, don’t panic. Keep in mind that most documents are recoverable. What you should do is seize time and get a doc fix tool. Nowadays, such a utility can be a great help in retrieving your data back.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including xls fix and pdf repair software products. For more information visit www.datanumen.com