vba插入空白页（VBA插入文本及分页符）

【分享成果，随喜正能量】不急于拥有，也不刻意去追求，努力过好当下，顺其自然总会遇见。人需肯自渡，我助之；无果，我亦拈花静候。

《VBA之Word应用》，是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容第六章 “Word中的Range对象（下）”第1节：VBA插入文本及分页符

第一节 Range对象的方法（五）3 Range.InsertBreak方法

该方法将插入分页符、分栏符或分节符。

语法：expression.InsertBreak(Type)

其中expression 是必需的，是一个代表Range对象的变量

参数：Type 可选Variant 要插入的分隔符的类型。可以是WdBreakType常量之一。如果省略，则默认值为wdPageBreak。

• 当插入分页符或分栏符时，范围将被中断。 如果不想替换该范围，可以在使用 InsertBreak 方法之前使用Collapse方法。当您插入一个分节符时，分节符被插在范围前面。
• 根据您选择或安装的语言支持（如，美国英语）的不同，以上列出的某些常量可能不可用。

WdBreakType 的枚举值：

1）wdColumnBreak 8 插入点处的分栏符

2）wdLineBreak 6 换行符

3）wdLineBreakClearLeft 9 换行符

4）wdLineBreakClearRight 10 换行符

5）wdPageBreak 7 插入点处的分页符

6）wdSectionBreakContinuous 3 新节不包含相应分页符

7）wdSectionBreakEvenPage 4 使下一节从下一偶数页开始的分节符。 如果分节符落入偶数页，则 Word 将下一奇数页留为空白

8）wdSectionBreakNextPage 2 分节符在下一页

9）wdSectionBreakOddPage 5 使下一节从下一奇数页开始的分节符。 如果分节符落入奇数页，则 Word 将下一偶数页留为空白

10）wdTextWrappingBreak 11 结束当前行，并强制文字在图片、表格或其他项目的下方继续。文字将在下一个空行（且该空行不包含与左边距或右边距对齐的表格）上继续

4 实例：插入文本及分页符

下面我们仍是结合一个实例给大家讲解一下上述各个方法的应用，这段代码中，首先在文档前插入一个新的段落，段落添加文本；然后在某个段落之后添加文本；之后要求用户输入某个词语并添加到一个固定的位置；最后给文档的最后段落分页处理。我们看下面代码：

Sub mynz()

[代码见教程]

End Sub

代码截图：

代码解读：

1） Set myDoc = ActiveDocument 这句代码是定义myDoc对象

2） With myDoc.Content

.InsertParagraphBefore

.InsertBefore "藤野先生"

End With

以上代码在文档前插入一个新的段落，段落添加文本“藤野先生”

3）Set myRange = myDoc.Range(myDoc.Paragraphs(2).Range.Start, myDoc.Paragraphs(2).Range.End - 1)

myRange.InsertAfter "【初识藤野先生】"

以上代码在当前文档的第一个段落后面添加文本【初识藤野先生】，注意这里是Paragraphs(2)，因为是在上面已经添加了一个段落。

4） myDoc.Content.InsertAfter "【师表风范】"

以上代码在当前活动文档的最后插入【师表风范】

5）UU = InputBox("记入自己第三段的感想词语")

With ActiveDocument.Paragraphs(3).Range

.InsertAfter "词语" & Chr(9) & UU

.InsertParagraphAfter

End With

以上代码首先要求用户输入一个词语，这个词语会添加在Paragraphs(3).Range，但要注意是添加在了段落标识符的前面，随后又加入了一个段落标识。

6）Set myRange = myDoc.Paragraphs(myDoc.Paragraphs.Count - 1).Range

With myRange

.Collapse Direction:=wdCollapseEnd

.InsertBreak Type:=wdPageBreak

End With

以上代码在活动文档倒数第二段之后插入一个分页符，也就是将最后一段分页。

最后我们看一下代码的运行效果，代码运行前：

代码运行后：

今日内容回向：

1 Word中Range对象的InsertBefore 方法、InsertAfter 方法、InsertBreak 方法的意义是什么？

2 如何利用VBA插入文本及分页设置？

本讲内容参考程序文件：Doc 006文档.docm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】世亦不尘，海亦不苦。所谓的烦恼，不过是庸人自扰。人生短短数十载，所有爱恨得失，聚散沉浮，最终都会化作过眼云烟。生活这道题，无论怎么解都会有遗憾，与其计较纠缠，不如转身离开。人生下半场，放下是一种修行，算了是一种智慧。

,