在文档中插入分页符及位置的扩展文档怎么插分页符( 二 )

Sub mynzC()
Set myRange = ActiveDocument.Paragraphs(2).Range
myRange.Select
MsgBox myRange.Text
'活动文档倒数第二段之后插入一个分页符,也就是将最后一段分页
With myRange
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdPageBreak
End With
'将光标转到第二页开始
myRange.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
myRange.Select
'将myRange范围扩展到第二页光标所在的整个段落
'myRange.SetRange Start:=Selection.Range.Start, End:=Selection.Paragraphs(1).Range.End
myRange.Expand Unit:=wdParagraph
myRange.Select
MsgBox myRange.Text
End Sub
代码截图：
代码解读：
这里只给大家讲解一下将myRange范围扩展到第二页光标所在的整个段落的方法，这里给出了两种代码：
其一：myRange.SetRange Start:=Selection.Range.Start, End:=Selection.Paragraphs(1).Range.End
这句代码利用的是SetRange扩展调整开始和结束的位置。
还有一种方案是直接扩展：myRange.Expand Unit:=wdParagraph
以上两种方案都是可以的。
代码的运行效果：
今日内容回向：
1 Word中Range对象的Select方法、GoTo方法、Expand 方法的意义是什么？
2 如何利用VBA移动及扩展某区域？
本讲内容参考程序文件：Doc 006文档.docm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】做事，就两个字：坚持，多坚持一会，多忍耐一次，也许就会有意外的惊喜。

以上关于本文的内容，仅作参考！温馨提示：如遇健康、疾病相关的问题，请您及时就医或请专业人士给予相关指导!

「四川龙网」www.sichuanlong.com小编还为您精选了以下内容，希望对您有所帮助：

在文档中插入分页符及位置的扩展 文档怎么插分页符( 二 )

在文档中插入分页符及位置的扩展文档怎么插分页符( 二 )