プログラムによってドキュメント内の範囲を拡張する

Microsoft Office Word ドキュメントで Range オブジェクトを定義した後、その始点と終点を MoveStart メソッドと MoveEnd メソッドを使用して変更します。 MoveStart と MoveEnd のメソッドは、同じ 2 つの引数 (Unit と Count) を取ります。 Count 引数は、移動する単位の数です。Unit 引数は、次の WdUnits 値のいずれかです。

• wdCharacter

• wdWord

• wdSentence

• wdParagraph

• wdSection

• wdStory

• wdCell

• wdColumn

• wdRow

• wdTable

  適用対象: このトピックの情報は、Word のドキュメント レベルのプロジェクトおよび VSTO アドインのプロジェクトに適用されます。 詳細については、「Office アプリケーションおよびプロジェクトの種類別の使用可能な機能」を参照してください。

  次の例では、7 文字の範囲を定義します。 その後、開始位置を元の開始位置から 7 文字後に移動します。 範囲の終了位置も開始位置より 7 文字後にあるため、結果はゼロ文字からなる範囲になります。 このコードは続いて、終了位置を現在の終了位置から 7 文字後に移動します。

範囲を拡張するには

1. 文字の範囲を定義します。 詳細については、「方法: プログラムによって文書内の範囲を定義して選択する」を参照してください。

   次のコード例はドキュメント レベルのカスタマイズで使用できます。

   C#

   object start = 0;
   object end = 7;
   Word.Range rng = this.Range(ref start, ref end);
   

   VB

   Dim rng As Word.Range = Me.Range(Start:=0, End:=7)
   

   次のコード例は VSTO アドインで使用できます。 この例ではアクティブ ドキュメントを使用します。

   C#

   Word.Range rng = this.Application.ActiveDocument.Range(0, 7);
   

   VB

   Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)
   

2. MoveStart オブジェクトの Range メソッドを使用して、範囲の開始位置を移動します。

   C#

   rng.MoveStart(Word.WdUnits.wdCharacter, 7);
   

   VB

   rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7)
   

3. MoveEnd オブジェクトの Range メソッドを使用して、範囲の終了位置を移動します。

   C#

   rng.MoveEnd(Word.WdUnits.wdCharacter, 7);
   

   VB

   rng.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=7)
   

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

ドキュメント レベルのカスタマイズで範囲を拡張するには

1. 次の例は、ドキュメント レベルのカスタマイズのコード全体を示しています。 このコードを使用するには、プロジェクトの ThisDocument クラスから実行します。

   C#

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

   VB

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

VSTO アドイン コード

アプリケーション レベルの VSTO アドインで範囲を拡張するには

1. 次の例は、VSTO アドインのコード全体を示しています。 このコードを使用するには、プロジェクトの ThisAddIn クラスから実行します。

   C#

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

   VB

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

関連するコンテンツ

• 方法: プログラムによって Word 文書の範囲をリセットする
• 方法: プログラムによって文書内の範囲または選択範囲を縮小する
• 方法: プログラムによって文書に複数の範囲を定義して選択する
• 方法: 範囲の開始および終了文字をプログラムで取得する