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
- First of all, click “Home” tab in the Ribbon.
- Then click the “Select” command in “Editing” group.
- On the drop-down menu, choose “Selection Pane”.
- 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.
- Then click “Format” in the Ribbon.
- Next click “Shape Fill”.
- Choose “No Fill” on the drop-down menu.
Method 2: Batch Remove the Fill Color of All Shapes in a Document
- 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.
- Now in the editor, click the “Normal” project on the left side.
- Then click “Insert” on the menu bar.
- Next choose “Module” on the drop-down menu.
- 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
- 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.
- Firstly, repeat steps in method 2 to install and run a macro.
- 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.
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