如果您使用从其他人那里收到的文档，则您日常需要执行的任务之一就是删除文档中的所有页眉和页脚。一种方法是简单地选择各种页眉和页脚并将其删除，但是如果文档包含许多节，则这样做将非常耗时。 （特别是如果您考虑每个部分最多可以具有三个不同的页眉和页脚。）

重复，耗时的任务始终是宏的主要候选对象。这也不例外。下面的宏将在文档的每个部分中右移，删除所有已定义的页眉和页脚。

Sub RemoveHeadAndFoot()

Dim oSec As Section     Dim oHead As HeaderFooter     Dim oFoot As HeaderFooter

For Each oSec In ActiveDocument.Sections         For Each oHead In oSec.Headers             If oHead.Exists Then oHead.Range.Delete         Next oHead

For Each oFoot In oSec.Footers             If oFoot.Exists Then oFoot.Range.Delete         Next oFoot     Next oSec End Sub

快速访问工具栏”或快捷键。

注意：

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

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

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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（10221）适用于Microsoft Word 2007、2010、2013和2016。您可以在这里找到适用于Word较旧菜单界面的本技巧的版本：

删除所有页眉和页脚。