Anita正在重新格式化一个长文档（超过300页），该文档已从PDF转换为Word。她在Word和样式以及使用“查找和替换”来修复格式错误的文档方面具有丰富的经验。在这种情况下，她无法解决问题。原始文档的页眉和页脚中有水平线，这些水平线已转换为Word文档中的图形线。她想删除所有这些图形线，但是搜索^ g找不到它们。安妮塔（Anita）想知道是否有一种方法可以自动删除这些图形线，因为她不想单击并按Del 600+次。

由于似乎PDF转换过程正在将图形添加到页眉和页脚，因此，通过常规的“查找和替换”不容易“找到”图形。相反，您将需要使用宏来摆脱它们。下面的示例仅在页眉和页脚区域中查找，并删除在那里找到的所有图形。

Sub FooterHeaderGraphicFind()

Dim rStory As Range     Dim i As Integer

For Each rStory In ActiveDocument.StoryRanges         If rStory.StoryType = wdPrimaryFooterStory Or _           rStory.StoryType = wdPrimaryHeaderStory Then             For i = rStory.Shapes.Count To 1 Step -1                 rStory.Shapes(i).Delete             Next i         End If     Next rStory End Sub

请注意，它会删除页眉或页脚中的所有形状，而不仅仅是线条。 （无法将一种图形形状的内容与另一种图形形状区分开。）

当然，可以使用一种更简单的方法来处理这种情况，而无需使用宏：

。打开从PDF文件转换的Word文档。

。打开一个全新的文档。 （您现在应该同时打开两个文档。）

。在转换后的文档中，按Ctrl + A。这将选择文档中的所有内容。

。按Ctrl + C。这会将所有内容复制到剪贴板。

。切换到全新的文档。

。确保显示功能区的“主页”选项卡。

。单击“粘贴”工具下的向下箭头。 Word将显示各种粘贴选项。

。单击仅保留文本工具。 （它看起来像一个剪贴板，在右下角有字母A。）Word将未格式化的文本从剪贴板粘贴到目标文档中。

这种方法应该摆脱PDF转换过程引入文档中的任何类型的图形和格式工件。

结果是一个“干净”的文档，您可以按任何需要的格式进行格式化。

如果您已经实施了该方法，并且可以在整个文档中应用样式，则这种方法特别容易。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（13510）适用于Microsoft Word 2007、2010、2013和2016。