TextRange.Characters メソッド (Publisher)

  • [アーティクル]

指定したテキスト文字のサブセットを表す TextRange オブジェクトを返します。

構文

式。文字 (開始、 長さ)

式TextRange オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Start 必須 長整数型 (Long) 返される範囲の先頭の文字を指定します。
Length 省略可能 長整数型 (Long) 返される文字数を指定します。 既定値は 1 です。

戻り値

TextRange

注釈

Start の値が、指定したテキストの文字数より大きい場合、指定した範囲の最後の文字を先頭とする範囲が返されます。

Length の値が、指定した開始文字からテキストの最後までの文字数より大きい場合、それらの文字をすべて含む範囲が返されます。

例

次の使用例では、作業中の文書の先頭ページの最初の図形にテキストを設定し、先頭の 2 文字の書式を 15 ポイントの太字に設定します。

Sub CharRange() 
 Dim rngCharacters As TextRange 
 Set rngCharacters = Application.ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange.InsertBefore(NewText:="Hello World.") 
 With rngCharacters.Characters(Start:=1, Length:=2).Font 
 .Size = 15 
 .Bold = msoTrue 
 End With 
End Sub

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

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