方法 : ドキュメント内の範囲を拡張する
更新 : 2007 年 11 月
対象 |
---|
このトピックの情報は、指定された Visual Studio Tools for Office プロジェクトおよび Microsoft Office のバージョンにのみ適用されます。 プロジェクトの種類
Microsoft Office のバージョン
詳細については、「アプリケーションおよびプロジェクトの種類別の使用可能な機能」を参照してください。 |
Microsoft Office Word 文書内で Range オブジェクトを定義したら、MoveStart メソッドおよび MoveEnd メソッドを使用して開始点と終了点を変更します。MoveStart メソッドと MoveEnd メソッドは、Unit と Count という同じ 2 つの引数を受け取ります。引数 Count は移動する単位数であり、引数 Unit は次の WdUnits 値の 1 つです。
次の使用例では、7 文字の範囲を定義します。次に、範囲の開始点を元の開始点の 7 文字後ろに移動します。範囲の終了点も、開始点の 7 文字後ろの位置にあるため、結果的に、範囲には文字が含まれません。そこで、このコードでは、現在の終了点の 7 文字後ろに終了点を移動します。
範囲を延長するには
文字の範囲を定義します。詳細については、「方法 : 文書に複数の範囲を定義して選択する」を参照してください。
次のコード例はドキュメント レベルのカスタマイズで使用できます。
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)
object start = 0; object end = 7; Word.Range rng = this.Application.ActiveDocument.Range( ref start, ref end);
Range オブジェクトの MoveStart メソッドを使用して、範囲の開始点を移動します。
rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7)
object unit = Word.WdUnits.wdCharacter; object count = 7; rng.MoveStart(ref unit, ref count);
Range オブジェクトの MoveEnd メソッドを使用して、範囲の終了点を移動します。
rng.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=7)
unit = Word.WdUnits.wdCharacter; count = 7; rng.MoveEnd(ref unit, ref count);
ドキュメント レベルのカスタマイズのコード
ドキュメント レベルのカスタマイズの範囲を拡張するには
次の例は、ドキュメント レベルのカスタマイズの完全なコードを示しています。このコードを使用するには、プロジェクトの 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. object unit = Word.WdUnits.wdCharacter; object count = 7; rng.MoveStart(ref unit, ref count); // Move the end position 7 characters. unit = Word.WdUnits.wdCharacter; count = 7; rng.MoveEnd(ref unit, ref count);
アプリケーション レベルのアドインのコード
アプリケーション レベルのアドインの範囲を拡張するには
次の例は、アプリケーション レベルのアドインの完全なコードを示しています。このコードを使用するには、プロジェクトの 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. object start = 0; object end = 7; Word.Range rng = this.Application.ActiveDocument.Range( ref start, ref end); // Move the start position 7 characters. object unit = Word.WdUnits.wdCharacter; object count = 7; rng.MoveStart(ref unit, ref count); // Move the end position 7 characters. unit = Word.WdUnits.wdCharacter; count = 7; rng.MoveEnd(ref unit, ref count);