TextRange2.Runs プロパティ (Office)

指定されたテキスト ランのサブセットを表す TextRange2 オブジェクトを取得します。 テキスト ランは、同じフォント属性を共有する文字の範囲で構成されています。 読み取り専用です。

構文

式。実行 (開始、長さ)

式TextRange2 オブジェクトを返す式。

パラメーター

戻り値

TextRange2

注釈

Startと Length の両方を省略した場合、返される範囲は最初の実行から始まり、指定された範囲の最後の段落で終わります。

Start を指定して Length を省略した場合、返される範囲には 1 つの実行が含まれます。

Length を指定して Start を省略した場合、返される範囲は、指定された範囲の最初の実行から開始されます。

Start が指定されたテキスト内の実行数より大きい場合、返される範囲は、指定された範囲内の最後の実行から始まります。

長さ が指定 した開始実行からテキストの最後までの実行数より大きい場合、返される範囲にはこれらすべての実行が含まれます。

1 つのランは、フォントが変更された後の先頭の文字から同じフォント属性を持つ最後から 2 番目の文字までのすべての文字で構成されます。 たとえば、次の文章について考えてみましょう。

この 斜体の 単語は太字ではありません。

この文では、"This" という単語の後ろのスペースが斜体として書式設定されていない場合、最初のランは "This" という単語で構成されます (スペースが斜体として書式設定されている場合、最初のランは最初の 3 文字 "Thi" で構成されます)。 同様に、2 番目のランには、この語の後のスペースに斜体の書式が設定されている場合にのみ、"italic" という語が含まれます。

例

次の使用例は、作業中のプレゼンテーションでスライド 1 の図形 2 の 2 番目のランが既に斜体になっている場合、それを太字斜体に書式設定します。

With Application.ActivePresentation.Slides(1).Shapes(2) _ 
        .TextFrame.TextRange2 
    With .Runs(2).Font 
        If .Italic Then 
            .Bold = True 
        End If 
    End With 
End With

関連項目

• TextRange2 オブジェクト メンバー

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。