次の方法で共有


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

Microsoft Office Word 文書内で Range オブジェクトを定義したら、MoveStart メソッドおよび MoveEnd メソッドを使用して開始点と終了点を変更します。MoveStart メソッドと MoveEnd メソッドは、Unit と Count という同じ 2 つの引数を受け取ります。引数 Count は移動する単位数であり、引数 Unit は次の WdUnits 値の 1 つです。

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

次の使用例では、7 文字の範囲を定義します。次に、範囲の開始点を元の開始点の 7 文字後ろに移動します。範囲の終了点も、開始点の 7 文字後ろの位置にあるため、結果的に、範囲には文字が含まれません。そこで、このコードでは、現在の終了点の 7 文字後ろに終了点を移動します。

範囲を延長するには

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

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

    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);
    
  2. Range オブジェクトの MoveStart メソッドを使用して、範囲の開始点を移動します。

    rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7)
    
    rng.MoveStart(Word.WdUnits.wdCharacter, 7);
    
  3. 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);
    

参照

処理手順

方法: プログラムによって Word 文書の範囲をリセットする

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

方法: プログラムによって文書に複数の範囲を定義して選択する

方法: 範囲の開始文字と終了文字をプログラムによって取得する

方法: 範囲を作成するときにプログラムによって段落記号を除外する