【word方框怎么插入分页符】在文档中插入分页符和位置扩展

【成果共享，顺熙正能量】根本没有那条“更好的路”。只有一条路，就是你选择的那条路。关键是你要勇往直前，还要坚持走下去。

《VBA之Word应用》，我推出的第八个教程，教程专门讲解VBA在Word中的应用，以“面向对象编程”为中心，首先在Word中了解VBA的对象和对象的属性、方法，然后通过例子感受Word VBA的妙处，本教程共3卷16章，今天第6章。

第四节范围对象方法(8)

大家好，我们继续讲Range对象方法，上节课我们将讨论Range对象的SetRange方法、PasteAndFormat方法、PasteSpecial方法，这一节将介绍Select方法、GoTo方法、Expand方法。

1 Range。Select方法

此方法选择命名范围。

语法：ex

其中expression是必需的，是表示Range对象的变量

2 Range。GoTo方法

此方法返回表示指定项目(如页面、书签或字段的开始位置)的Range对象。

语法：expression.goto (what、which、count、name)

其中expression是必需的，是表示Range对象的变量

参数：

1)要移动What可选变量范围的项目类型。可以是WdGoToItem常量之一。

2)要移动Which可选变量范围的项目。**wdGoToDirection**可以是常数之一。

3)计数可选变量文档中的条目数。默认值为1。只有正值有效。要指定上一范围的项目，请使用wdGoToPrevious作为参数，并指定计数值。

4)Name可选变量如果任何参数为wdGoToBookmark、wdGoToComment、wdGoToField或wdGoToObject，请指定名称。只有正值有效。要指定上一范围的项目，请使用wdGoToPrevious作为参数，并指定计数值。

3 Range。Expand方法

扩展指定的区域或选区。返回添加到区域或选定内容的字符数。

语法：expression.expand(单位)

其中expression是必需的，是表示Range对象的变量

参数：

1)使用单位可选变量度量单位扩展区域。以下移动常数之一： wdCharacter、wdWord、wdSentence、wdParagraph、wdSection、wdStory、wdCell wdColumn、wdRow或wdTable

WdGoToItem常量枚举值：

WdGoToBookmark -1书签Bookmark。

WdGoToComment 6注释Comment。

WdGoToEndnote 5美洲Endnote。

WdGoToEquation 10官方Equation。

WdGoToField 7域Field。

WdGoToFootnote 4脚注Footnote。

WdGoToGrammaticalError 14语法错误GrammaticalError。

WdGoToGraphic 8图形图形。

WdGoToHeading 11标题Heading。

WdGoToLine三线。

WdGoToObject 9对象对象。

WdGoToPage第1页第页.

WdGoToPercent 12% percent。

WdGoToProofreadingError 15校正错误ProofreadingError。

WdGoToSection 0部分Section。

WdGoToSpellingError 13拼写错误SpellingError。

WdGoToTable 2表Table。

WdGoToDirection常量枚举值：

WdGoToAbsolute 1绝对位置。

指定给WdGoToFirst 1的对象的第一个实例。

由WdGoToLast -1指定的对象的最后一个实例

指定为WdGoToNext 2的对象的下一个实例

WdGoToPrevio

us 3 所指定对象的上一个实例。

wdGoToRelative 2 相对于当前位置的位置

4 实例：选择某范围，然后移动光标到其他位置并扩展

我们下面就一个实例来讲解一下本节方法的应用。这讲的实例中：首先选择活动文档的的第二段作为基础，然后在活动文档倒数第二段之后插入一个分页符,分页。并将光标转到第二页开始，扩展到整个段落。我们看代码：

Sub mynzC()

Set myRange = Ac(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:=Selec, End:=Selec(1).Range.End

myRange.Expand Unit:=wdParagraph

myRange.Select

MsgBox myRange.Text

End Sub

代码截图：

代码解读：

这里只给大家讲解一下将myRange范围扩展到第二页光标所在的整个段落的方法，这里给出了两种代码：

其一：myRange.SetRange Start:=Selec, End:=Selec(1).Range.End

这句代码利用的是SetRange扩展调整开始和结束的位置。

还有一种方案是直接扩展：myRange.Expand Unit:=wdParagraph

以上两种方案都是可以的。

代码的运行效果：

今日内容回向：

1 Word中Range对象的Select方法、GoTo方法、Expand 方法的意义是什么？

2 如何利用VBA移动及扩展某区域？

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

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

【分享成果，随喜正能量】做事，就两个字：坚持，多坚持一会，多忍耐一次，也许就会有意外的惊喜。