次の方法で共有

MailMergeFields.AddAsk メソッド (Word)

差し込み印刷のメイン文書に ASK フィールドを挿入します。 MailMergeField オブジェクトを返します。

構文

expression. AddAsk( _Range_ , _Name_ , _Prompt_ , _DefaultAskText_ , _AskOnce_ )

expression 必須です。 'MailMergeFields' コレクションを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Range 必須 Range オブジェクト ASK フィールドの位置を指定します。
名前 必須 String 応答または既定の文字列に割り当てられるブックマーク名を指定します。 結果を文書に表示する場合は、ブックマーク名で REF フィールドを使用します。
Prompt 省略可能 バリアント型 (Variant) ダイアログ ボックスに表示する文字列を指定します。
DefaultAskText 省略可能 バリアント型 (Variant) ダイアログ ボックスのテキスト ボックスに表示する既定の文字列を指定します。 ASK フィールドの \d スイッチに対応します。
AskOnce 省略可能 バリアント型 True を設定すると、新しいデータ レコードを差し込むたびではなく、最初の差し込み文書を印刷するときだけダイアログ ボックスが表示されます。 ASK フィールドの \o スイッチに対応します。

戻り値

MailMergeField

注釈

フィールドを更新すると、指定されたブックマークに割り当てる文字列を入力するダイアログ ボックスが表示されます。

例

次の使用例は、作業中の差し込み印刷のメイン文書の末尾に ASK フィールドを追加します。

Dim rngTemp As Range 
 
Set rngTemp = ActiveDocument.Content 
 
rngTemp.Collapse Direction:=wdCollapseEnd 
ActiveDocument.MailMerge.Fields.AddAsk _ 
 Range:=rngTemp, _ 
 Prompt:="Type your company name", _ 
 Name:="company", AskOnce:=True

次の使用例は、Main.doc の最後の差し込みフィールドの後に ASK フィールドを追加します。

Dim colMailMergeFields As Object 
Dim rngTemp As Range 
 
Set colMailMergeFields = Documents("Main.doc").MailMerge.Fields 
 
colMailMergeFields(colMailMergeFields.Count).Select 
 
Set rngTemp = Selection.Range 
 
rngTemp.Collapse wdCollapseEnd 
colMailMergeFields.AddAsk Range:=rngTemp, Name:="name", _ 
 Prompt:="What is your name"

関連項目

MailMergeFields コレクション オブジェクト

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

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