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

如果要使用 Range 或 Selection 物件，您應該在插入文字之前將選取範圍變更為插入點，以避免覆寫現有的文字。Range 和 Selection 物件都有 Collapse 方法，該方法會使用 WdCollapseDirection 列舉值：

wdCollapseStart - 會將選取範圍摺疊到選取範圍的開頭。如果您沒有指定任何列舉值，這就是預設值。
wdCollapseEnd - 會將選取範圍摺疊到選取範圍的結尾。

若要摺疊範圍並且插入新文字

建立一個包含文件中第一段的 Range 物件。

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

Dim rng As Word.Range = Me.Paragraphs(1).Range

Word.Range rng = this.Paragraphs[1].Range;

下列程式碼範例可以用於應用程式層級的增益集中。這個程式碼使用主動式文件 (Active Document)。

Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range

Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;

使用 wdCollapseStart 列舉值來摺疊範圍。

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

object direction = Word.WdCollapseDirection.wdCollapseStart;
rng.Collapse(ref direction);

插入新文字。

rng.Text = " New Text "

rng.Text = " New Text ";

選取 Range。
```
rng.Select()
```
```
rng.Select();
```

如果使用 wdCollapseEnd 列舉值，則文字會插入至下一個段落的開頭。

rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

direction = Word.WdCollapseDirection.wdCollapseEnd;
rng.Collapse(ref direction);

您可能會認為插入新句子會將它插入在段落標記的前面，但實際情況並非如此，因為原來的範圍已經包含了段落標記。如需詳細資訊，請參閱 HOW TO：建立範圍時排除段落標記。

文件層級自訂範例

若要摺疊文件層級自訂中的範圍

下列範例顯示文件層級自訂的完整方法。若要使用這個程式碼，請從專案中的 ThisDocument 類別 (Class) 加以執行。

Dim rng As Word.Range = Me.Paragraphs(1).Range

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Text = " New Text "
rng.Select()

Word.Range rng = this.Paragraphs[1].Range; 

object direction = Word.WdCollapseDirection.wdCollapseStart;
rng.Collapse(ref direction); 

rng.Text = " New Text ";
rng.Select();

應用程式層級增益集範例

若要摺疊應用程式層級增益集中的範圍

下列範例顯示應用程式層級增益集的完整方法。若要使用這個程式碼，請從專案中的 ThisAddIn 類別中執行。

Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Text = " New Text "
rng.Select()

Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;

object direction = Word.WdCollapseDirection.wdCollapseStart;
rng.Collapse(ref direction);

rng.Text = " New Text ";
rng.Select();