如何：在文档中扩展范围

项目
09/10/2008

更新：2007 年 11 月

适用对象
本主题中的信息仅适用于指定的 Visual Studio Tools for Office 项目和 Microsoft Office 版本。项目类型文档级项目应用程序级项目 Microsoft Office 版本 Word 2003 Word 2007 有关更多信息，请参见按应用程序和项目类型提供的功能。

本主题中的信息仅适用于指定的 Visual Studio Tools for Office 项目和 Microsoft Office 版本。

项目类型

文档级项目
应用程序级项目

Microsoft Office 版本

Word 2003
Word 2007

在 Microsoft Office Word 文档中定义了一个 Range 对象后，就可以使用 MoveStart 和 MoveEnd 方法来更改其起始点和终结点。MoveStart 和 MoveEnd 方法采用两个相同的参数，即 Unit 和 Count。Count 参数是要移动的单位数，Unit 参数可以是以下 WdUnits 值之一：

下面的示例定义一个包含七个字符的范围。然后，该示例将范围的起始位置移动到原起始位置之后七个字符处。因为范围的结束位置也是起始位置之后七个字符的位置，因此结果是生成了一个包含零个字符的范围。然后，代码又将结束位置移动到当前结束位置之后七个字符处。

扩展范围

定义一个字符范围。有关更多信息，请参见如何：在文档中定义和选择范围。

下面的代码示例可用于文档级自定义项。

Dim rng As Word.Range = Me.Range(Start:=0, End:=7)

object start = 0;
object end = 7;
Word.Range rng = this.Range(ref start, ref end);

下面的代码示例可用于应用程序级外接程序。此示例使用活动文档。

Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)

object start = 0;
object end = 7;
Word.Range rng = this.Application.ActiveDocument.Range(
    ref start, ref end);

使用 Range 对象的 MoveStart 方法移动范围的起始位置。

rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7)

object unit = Word.WdUnits.wdCharacter;
object count = 7;
rng.MoveStart(ref unit, ref count);

使用 Range 对象的 MoveEnd 方法移动范围的结束位置。

rng.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=7)

unit = Word.WdUnits.wdCharacter;
count = 7;
rng.MoveEnd(ref unit, ref count);

文档级自定义项代码

在文档级自定义项中扩展范围

下面的示例显示了文档级自定义项的完整代码。若要使用此代码，请从项目内的 ThisDocument 类中运行此代码。

' Define a range of 7 characters.
Dim rng As Word.Range = Me.Range(Start:=0, End:=7)

' Move the start position 7 characters.
rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7)

' Move the end position 7 characters.
rng.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=7)

// Define a range of 7 characters.
object start = 0;
object end = 7;
Word.Range rng = this.Range(ref start, ref end);

// Move the start position 7 characters.
object unit = Word.WdUnits.wdCharacter;
object count = 7;
rng.MoveStart(ref unit, ref count);

// Move the end position 7 characters.
unit = Word.WdUnits.wdCharacter;
count = 7;
rng.MoveEnd(ref unit, ref count);

应用程序级外接程序代码

在应用程序级外接程序中扩展范围

下面的示例显示了应用程序级外接程序的完整代码。若要使用此代码，请从项目内的 ThisAddIn 类中运行此代码。

' Define a range of 7 characters.
Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)

' Move the start position 7 characters.
rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7)

' Move the end position 7 characters.
rng.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=7)

// Define a range of 7 characters.
object start = 0;
object end = 7;
Word.Range rng = this.Application.ActiveDocument.Range(
    ref start, ref end);

// Move the start position 7 characters.
object unit = Word.WdUnits.wdCharacter;
object count = 7;
rng.MoveStart(ref unit, ref count);

// Move the end position 7 characters.
unit = Word.WdUnits.wdCharacter;
count = 7;
rng.MoveEnd(ref unit, ref count);