AddAsk 方法

向邮件合并主文档添加一个 ASK 域。返回一个 MailMergeField 对象。更新时，ASK 域将显示一个对话框，提示给特定书签指定文字。

expression   必需。该表达式返回一个 MailMergeFields 对象。

Range   Range 对象，必需。指 ASK 域的位置。

Name   String 类型，必需。指将应答或默认文字指定至的书签名称。用该书签名和一个 REF 域，可显示文档中的相应结果。

Prompt   Variant 类型，可选。在对话框中显示的文字。

DefaultAskText   Variant 类型，可选。默认的反映，将在显示对话框时出现在文本框中。对应于 ASK 域的 \d 开关。

AskOnce   Variant 类型，可选。如果为 True，则该对话框只显示一次，而不是在每次合并一个新的数据记录时都显示。对应于 ASK 域的 \o 开关。

示例

本示例在活动邮件合并主文档的末尾添加一个 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"