HOW TO：以程式設計方式摺疊文件的範圍或選取的範圍

發行項
02/28/2013

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

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

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

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

建立一個包含文件中第一段的 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)

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);

插入新文字。

rng.Text = " New Text "

rng.Text = " New Text ";

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

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

rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd);

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

文件層級自訂範例

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

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

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; 

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart); 

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;

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);

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