如何通过Word VBA在指定标题前插入连续分节符？

你遇到的问题主要有两个核心原因：

1. 分节符不能用InsertBefore+字符代码的方式插入——分页符（Chr(12)）是特殊打印字符，但分节符属于Word的段落/文档结构元素，需要用专门的InsertBreak方法处理。
2. wdSectionBreakContinuous是Word内置常量，若编辑器提示该常量不存在，要么是没引用Word对象库，要么可以直接用常量对应的数值替代。

方案一：引用Word对象库后使用常量 #

1. 打开VBA编辑器，点击顶部菜单栏的工具→引用。
2. 在弹出的对话框中，找到并勾选Microsoft Word xx.x Object Library（xx.x对应你的Office版本，比如2019是16.0），点击确定。
3. 修改代码中的插入语句，替换原来的r.InsertBefore (Chr(12))：

Sub PageBeforeDataStart()
Dim r As Range
Set r = ActiveDocument.Range
With r.Find
Do While .Execute(FindText:="Data_Start", _
Forward:=True) = True
r.InsertBreak Type:=wdSectionBreakContinuous ' 替换为这行代码
r.Collapse 0
Loop
End With
End Sub

方案二：直接使用常量数值（无需引用对象库） #

如果不想配置对象库引用，可以直接用wdSectionBreakContinuous对应的数值2替代常量：

Sub PageBeforeDataStart()
Dim r As Range
Set r = ActiveDocument.Range
With r.Find
Do While .Execute(FindText:="Data_Start", _
Forward:=True) = True
r.InsertBreak Type:=2 ' 用数值2代替常量
r.Collapse 0
Loop
End With
End Sub

补充：常用分节符类型对应的数值 #

• 连续分节符：2（wdSectionBreakContinuous）
• 下一页分节符：1（wdSectionBreakNextPage）
• 偶数页分节符：3（wdSectionBreakEvenPage）
• 奇数页分节符：4（wdSectionBreakOddPage）

内容的提问来源于stack exchange，提问作者Daniel Mason