最近有两个标，直接导致小杂天天写标书呀！！！(●-●) 生无可恋。。。

说到标书这种庞然大物，动则上千页的，相信很多内容大家都是拷贝粘贴的嘛。所以等到最后才来统一格式，在这个过程中，有些必要的技巧一定要知道

例如之前教过大家的批量删除没用标题：【Word】这些乱七八糟的样式

见标书第几页自动更新：【Word】「投标必备技能」什么，“见标书第几页”你都是留空的，你想手写？

还有今天要教大家的：大纲标题快速升级、降级。

可能就这么说，不熟悉的小伙伴们不太能理解，看下图：

升级

降级

方法1

除了直接在样式库里选择，分别按照当前级别选下一级以外

还可以在大纲视图里整。

Step 1

点击视图选项卡→大纲视图

Step 2

直接在左上角的图示位置点那两个按钮就行了。

方法2

如果不想点开大纲视图（毕竟右侧真不好看！没错，我看脸的），可以直接使用快捷键解决。

升级：Alt+Shift+方向键←

降级：Alt+Shift+方向键→

方法3

要是需要操作的是一大段内容呢？里面的所有标题全部都要降一级呢？

用宏吧，下面是小杂自己编的，这几天一共节省了我整整一个大保健的时间呀~~

Sub Downgrade一级()

Dim para As Paragraph

Dim fnt As Font

Dim pfmt As ParagraphFormat

If Selection.Type = wdSelectionIP Then

MsgBox "没选中任何内容"

Exit Sub

End If

For Each para In Selection.Paragraphs

With para

Select Case .OutlineLevel

Case wdOutlineLevel1

.Style = ActiveDocument.Styles(wdStyleHeading2)

Case wdOutlineLevel2

.Style = ActiveDocument.Styles(wdStyleHeading3)

Case wdOutlineLevel3

.Style = ActiveDocument.Styles(wdStyleHeading4)

Case wdOutlineLevel4

.Style = ActiveDocument.Styles(wdStyleHeading5)

Case wdOutlineLevel5

.Style = ActiveDocument.Styles(wdStyleHeading6)

Case wdOutlineLevel6

.Style = ActiveDocument.Styles(wdStyleHeading7)

Case wdOutlineLevel7

.Style = ActiveDocument.Styles(wdStyleHeading8)

Case wdOutlineLevel8

.Style = ActiveDocument.Styles(wdStyleHeading9)

End Select

End With

Next

MsgBox ("完成所有标题下降一级")

End Sub

毕竟没人想让整份文档都降级，所以我要求使用时必须选中需要降级的那部分区域。

使用效果：

PS：为啥小杂这次一直都用Word2016教大家？因为在调整格式的时候，Word2016真！的！很！好！用！

不说别的，就看在文档结构图里的右键就知道了。（Word2007和WPS都不能右键）

接下来是扫盲贴，如果懂怎么用宏的，可以跳过。

宏代码使用方法

Step 1

上面的代码复制下来

Step 2

开发工具选项卡→Visual Basic

额。。。如果连开发工具选项卡都没有的话，在word选项→自定义功能区里把“开发工具”勾上就有了。

Step 3

在工程区域，右击当前的文档Project→插入→模块

Step 4

在代码窗口内粘贴刚刚那堆代码

Step 5

关掉刚刚的Visual Basic编辑器，回到开发工具选项卡中，点解宏，选择刚刚那个Downgrade一级，运行。（运行前记得选中需要降级的内容，不然会弹出提示的。）