Fakhruddin使用Word的内置标题样式（标题1至标题3）创建了四个文档。现在，他需要将四个文件组合成一个很长的文档，因此每个文件都将代表一个章节。这会在每个文件的开头引入更高级别的标题。 Fakhruddin想知道如何快速更改当前标题的级别（将所有标题向下移动一个级别，通过标题4移至标题2），以便他可以在进行合并时在每个文件的开头添加新的标题1标题。

实际上，有很多方法可以用来完成此任务。 （虽然已经确定了五个，但我已经确定了五个。）但是，我想将重点放在我认为是完成任务的两种最简单方法上。

如果只需要偶尔进行这种航向调整，则第一种方法很好。它使用了许多在Word概述视图中被认为太容易被忽视的工具。请按照下列步骤操作：

。显示功能区的“查看”选项卡。

。在功能区的最左侧，单击轮廓。您的文档应该看起来有所不同，并且应该看到功能区的“大纲”选项卡。

。在功能区的“大纲”选项卡上，使用“显示级别”下拉列表选择一个比您在文档中使用的标题级别大一个的标题级别。 （因此，在Fakhruddin的情况下，他使用3个标题级别，因此他将使用“显示级别”下拉菜单选择“级别4”。）此时，文档应仅显示标题。 （请参见图1。）

。按Ctrl + A。应该选择整个文档。

。按Tab键。 （您也可以使用功能区的“大纲”选项卡左侧附近的“降级”工具。它看起来像是向右的箭头。）所有标题都被降级为一个级别，完全可以完成Fakhruddin的期望。

。单击功能区的“大纲”选项卡右侧的“关闭轮廓视图”工具，或单击状态栏上的“打印布局”工具。

无论哪种方式，您都将返回文档，在此处您可以继续进行编辑。

简单吧？标题的降级仅影响所选的标题，但是由于我们使用了Ctrl + A（第4步），因此所有标题均受到影响。这意味着，如果您只想影响标题的子集，则应在步骤4中选择那些标题。

我要强调的第二种方法是使用宏。当使用大纲视图这么简单时，为什么要使用宏？我认为当您需要大量执行任务或需要多次降级标题时，它非常方便。这是我想出的宏：

Sub DemoteAllHeadings()

Dim p As Paragraph     Dim sParStyle As String     Dim iHeadLevel As Integer

For Each p In ActiveDocument.Paragraphs         sParStyle = p.Style         If Left(sParStyle, 7) = "Heading" Then             iHeadLevel = Val(Mid(sParStyle,8)) + 1             If iHeadLevel > 9 Then iHeadLevel = 9             p.Style = "Heading " & iHeadLevel         End If     Next p End Sub

不管文档的长度如何，该宏都会非常快速地运行。

它逐步浏览每个段落，查看它是否是标题级别，如果是，则增加应用于该段落的标题样式。它具有内置的保护措施，可以阻止其增加到超过标题9样式，因为Word中仅内置了九个标题样式级别。

注意：

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

链接：/ wordribbon-WordTipsMacros [点击此处在新的浏览器标签中打开该特殊页面]。

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

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