次の方法で共有

TextRange.InsertBefore メソッド (Publisher)

  • [アーティクル]

指定したテキスト範囲の先頭に文字列を追加します。 追加したテキストを表す TextRange オブジェクトを返します。 引数を指定しないでこのメソッドを使用すると、指定した範囲の末尾に長さが 0 の文字列が返されます。

構文

式。InsertBefore (NewText)

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

パラメーター

名前 必須 / オプション データ型 説明
NewText 必須 文字列型 (String) 挿入するテキストを指定します。 既定値は空の文字列です。

戻り値

TextRange

例

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

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

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

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