如何：在文档中扩展范围

项目
08/12/2011

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

**适用于：**本主题中的信息适用于 Word 2007 和 Word 2010 的文档级项目和应用程序级项目。有关更多信息，请参见按 Office 应用程序和项目类型提供的功能。

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

扩展范围

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

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

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)

Word.Range rng = this.Application.ActiveDocument.Range(0, 7);

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

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

rng.MoveStart(Word.WdUnits.wdCharacter, 7);

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

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

rng.MoveEnd(Word.WdUnits.wdCharacter, 7);

文档级自定义项代码

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

下面的示例显示了文档级自定义项的完整代码。若要使用此代码，请从项目内的 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.
rng.MoveStart(Word.WdUnits.wdCharacter, 7);

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

应用程序级外接程序代码

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

下面的示例显示了应用程序级外接程序的完整代码。若要使用此代码，请从项目内的 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.
Word.Range rng = this.Application.ActiveDocument.Range(0, 7);

// Move the start position 7 characters.
rng.MoveStart(Word.WdUnits.wdCharacter, 7);

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