次の方法で共有

TextRange.InsertMailMergeField メソッド (Publisher)

  • [アーティクル]

差し込み印刷または差し込み印刷のテキスト データ フィールドを表す TextRange オブジェクトを返します。

構文

式。InsertMailMergeField (varIndex)

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

パラメーター

名前 必須 / オプション データ型 説明
varIndex 必須 バリアント型 (Variant) データ ソースのデータ フィールドの名前またはインデックスを指定します。

戻り値

TextRange

注釈

文書の差し込み印刷領域にテキスト データ フィールドを含むには、まず、テキスト データ フィールドを挿入するためのテキスト ボックスが少なくとも 1 つ必要です。

例

次の使用例は、カーソル位置に [ LastName ] フィールドを挿入します。 この使用例では、作業中の文書は差し込み印刷文書であり、カーソルはテキスト ボックス内にあると仮定します。

Sub InsertMergeField() 
 Selection.TextRange.InsertMailMergeField varIndex:="LastName" 
End Sub

次の使用例は、指定された文書の差し込み印刷領域にテキスト ボックスを追加し、そのテキスト ボックスにテキスト データ フィールドを挿入します。 この使用例では、指定された文書はデータ ソースに接続され、差し込み印刷領域を含んでいると仮定します。

Set pbTextBox1 = ThisDocument.Pages(1).Shapes.AddTextbox(1, 100, 100, 175, 25) 
pbTextBox1.AddToCatalogMergeArea 
 
With pbTextBox1.TextFrame.TextRange 
 .Text = "List Price: " 
 .InsertMailMergeField "List Price" 
End With

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

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