如何:在文档中扩展范围
在 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);