【分享成果，随喜正能量】不急于拥有，也不刻意去追求，努力过好当下，顺其自然总会遇见人需肯自渡，我助之；无果，我亦拈花静候《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）wdColumnBreak8插入点处的分栏符
2）wdLineBreak6换行符3）wdLineBreakClearLeft9换行符4）wdLineBreakClearRight10换行符5）wdPageBreak7插入点处的分页符6）wdSectionBreakContinuous3新节不包含相应分页符
7）wdSectionBreakEvenPage4使下一节从下一偶数页开始的分节符如果分节符落入偶数页，则 Word 将下一奇数页留为空白8）wdSectionBreakNextPage2分节符在下一页。
9）wdSectionBreakOddPage5使下一节从下一奇数页开始的分节符如果分节符落入奇数页，则 Word 将下一偶数页留为空白10）wdTextWrappingBreak11结束当前行，并强制文字在图片、表格或其他项目的下方继续。
文字将在下一个空行（且该空行不包含与左边距或右边距对齐的表格）上继续4实例：插入文本及分页符下面我们仍是结合一个实例给大家讲解一下上述各个方法的应用，这段代码中，首先在文档前插入一个新的段落，段落添加文本；然后在某个段落之后添加文本；之后要求用户输入某个词语并添加到一个固定的位置；最后给文档的最后段落分页处理。
我们看下面代码：Sub mynz()[代码见教程]End Sub代码截图：
代码解读：1） Set myDoc = ActiveDocument 这句代码是定义myDoc对象2） With myDoc.ContentInsertParagraphBeforeInsertBefore "藤野先生"
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).RangeInsertAfter "词语"& Chr(9)& UU
InsertParagraphAfterEnd With以上代码首先要求用户输入一个词语，这个词语会添加在Paragraphs(3).Range，但要注意是添加在了段落标识符的前面，随后又加入了一个段落标识。
6）Set myRange = myDoc.Paragraphs(myDoc.Paragraphs.Count -1).RangeWith myRangeCollapse Direction:=wdCollapseEnd
InsertBreak Type:=wdPageBreakEnd With以上代码在活动文档倒数第二段之后插入一个分页符，也就是将最后一段分页。最后我们看一下代码的运行效果，代码运行前：
代码运行后：
今日内容回向：1 Word中Range对象的InsertBefore 方法、InsertAfter 方法、InsertBreak 方法的意义是什么？2如何利用VBA插入文本及分页设置？本讲内容参考程序文件：Doc 006文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】世亦不尘，海亦不苦所谓的烦恼，不过是庸人自扰人生短短数十载，所有爱恨得失，聚散沉浮，最终都会化作过眼云烟生活这道题，无论怎么解都会有遗憾，与其计较纠缠，不如转身离开人生下半场，放下是一种修行，算了是一种智慧。
亲爱的读者们，感谢您花时间阅读本文。如果您对本文有任何疑问或建议，请随时联系我。我非常乐意与您交流。
发表评论:
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。