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 のサポートおよびフィードバックを参照してください。