HOW TO：擴充文件中的範圍

發行項
08/12/2011

在您定義 Microsoft Office Word 文件中的 Range 物件後，可以使用 MoveStart 和 MoveEnd 方法變更其起始點和結束點。 MoveStart 和 MoveEnd 方法會採用相同的兩個引數，即 Unit 和 Count。 Count 引數是要移動的單位數目，而 Unit 引數則是下列其中一個 WdUnits 值：

**適用於：**本主題中的資訊適用於 Word 2007 和 Word 2010 的文件層級專案和應用程式層級專案。如需詳細資訊，請參閱依 Office 應用程式和專案類型提供的功能。

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

若要擴充範圍

定義字元範圍。如需詳細資訊，請參閱 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)

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