TextRange.InsertAfter メソッド (Publisher)

  • [アーティクル]

テキスト範囲の末尾に追加されたテキストを表す TextRange オブジェクトを返します。

構文

式。InsertAfter (NewText)

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

パラメーター

名前 必須 / オプション データ型 説明
NewText 必須 文字列型 (String) 挿入する文字列を指定します。

戻り値

TextRange

例

次の使用例は、作業中の文書の先頭ページにある最初の図形の末尾に、Microsoft Publisher のビルド番号を追加します。 この例では、指定した図形はテキスト枠であり、他のタイプの図形ではありません。

Sub AppendText() 
 With ActiveDocument.Pages(1).Shapes(1) 
 .TextFrame.TextRange.InsertAfter _ 
 NewText:="Microsoft Publisher Build : " & Build 
 End With 
End Sub

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

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