HOW TO：以程式設計方式在 Word 文件中重設範圍
使用 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);下列程式碼範例可以用於應用程式層級的增益集中。這個程式碼使用主動式文件 (Active Document)。
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();