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

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

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是世界上最流行的文字处理软件。）本技巧（1777）适用于Microsoft Word 97、2000、2002和2003。您可以为Word（Word 2007）的功能区界面找到此技巧的版本。和更高版本）在这里：

删除所有页眉和页脚。