如何：以编程方式重置 Word 文档中的范围

项目
02/24/2013

使用 SetRange 方法可以调整 Microsoft Office Word 文档中现有范围的大小。

**适用于：**本主题中的信息适用于 Word 2013 和 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);

使用 SetRange 对此范围进行设置，使其从第二个句子开始，在第五个句子结束。

rng.SetRange(Start:=Me.Sentences(2).Start, End:=Me.Sentences(5).End)

rng.SetRange(this.Sentences[2].Start, this.Sentences[5].End);

文档级自定义项示例

在文档级自定义项中重置现有范围

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

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

' Reset the existing Range.
rng.SetRange(Start:=Me.Sentences(2).Start, End:=Me.Sentences(5).End)
rng.Select()

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

// Reset the existing Range. 
rng.SetRange(this.Sentences[2].Start, this.Sentences[5].End); 
rng.Select();

应用程序级外接程序示例

在应用程序级外接程序中重置现有范围

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

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

' Reset the existing Range.
rng.SetRange(Start:=Me.Application.ActiveDocument.Sentences(2).Start, _
    End:=Me.Application.ActiveDocument.Sentences(5).End)
rng.Select()

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

// Reset the existing Range. 
rng.SetRange(this.Application.ActiveDocument.Sentences[2].Start,
    this.Application.ActiveDocument.Sentences[5].End);
rng.Select();

请参见

任务

如何：以编程方式在文档中扩展范围

如何：以编程方式在文档中定义和选择范围

如何：以编程方式检索范围中的开始字符和结束字符

如何：以编程方式折叠文档中的范围或选定内容

通过