HOW TO：擴充文件中的範圍

發行項
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 值：

下列範例會定義一個七個字元的範圍，然後，將範圍的起始位置移到原始起始位置之後的七個字元處。由於範圍的結束位置也是在起始位置之後的七個字元處，結果會使範圍包含零個字元。程式碼接著會將結束位置移到目前結束位置之後的七個字元處。

若要擴充範圍

定義字元範圍。如需詳細資訊，請參閱 HOW TO：在文件中定義及選取範圍。

下列程式碼範例可以用於文件層級自訂中。

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);