批量删除Word文档中多个形状的填充颜色的3种方法

在这篇文章中，我们很高兴向您展示 3 种有效的方法，可以批量删除 Word 文档中多个形状的填充颜色。

在将形状插入 Word 文档时，您也可以为它们应用填充颜色。 添加或删除单个形状的填充颜色很容易。 但是当涉及到批处理时，我们需要一些技巧。

这一次，我们想告诉你如何批量去除文档中多个形状的填充颜色。 因此，您可以用所需的颜色重新填充它们，或者只将形状留在空白背景中。 以下是可以在不同情况下为您提供帮助的 3 种方法。

方法一：去除页面上多个形状的填充色

1. 首先，单击功能区中的“主页”选项卡。
2. 然后单击“编辑”组中的“选择”命令。
3. 在下拉菜单中，选择“选择窗格”。
4. 现在在“选择和可见性”窗格中，您可以看到此页面上所有形状的名称。 按“Ctrl”选择你需要的形状。
5. 然后单击功能区中的“格式”。
6. 接下来点击“形状填充”。
7. 在下拉菜单中选择“无填充”。

方法二：批量去除文档中所有形状的填充色

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”执行代码。

方法三：去除文档中所有文本框的填充色

文本框属于形状类别。 如果您想删除所有文本框的填充颜色但保留其他形状的填充颜色，您可以使用这种方式。

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

结果如下：

快速恢复损坏的文档

如果遇到文档损坏的情况，不要惊慌。请记住，大多数文档都是可以恢复的。您应该做的是抓紧时间，尽快获取一份…… 文档修复 工具。 如今，这样的实用程序可以极大地帮助您检索数据。

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 xls修复 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com