方法: プログラムによって文書内の範囲または選択範囲を縮小する

[アーティクル]
02/21/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; 
```
次のコード例はアプリケーションレベルのアドインで使用できます。このコードではアクティブドキュメントを使用します。
```
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);

新しい文は段落記号の前に挿入されると思われるかもしれませんが、元の範囲に段落記号が含まれているため、段落記号の前には挿入されません。詳細については、「方法: 範囲を作成するときにプログラムによって段落記号を除外する」を参照してください。

ドキュメントレベルのカスタマイズの例

ドキュメントレベルのカスタマイズ内の範囲を折りたたむには

次の例は、ドキュメントレベルのカスタマイズの完全なメソッドを示しています。このコードを使用するには、プロジェクトの 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();