将一个 ASK 域添加到邮件合并主文档。 返回一个 MailMergeField 对象。
语法
expression。 AddAsk( _Range_ , _Name_ , _Prompt_ , _DefaultAskText_ , _AskOnce_ )
expression 是必需的。 一个代表“MailMergeFields”集合的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Range | 必需 | Range 对象 | ASK 域的位置。 |
| Name | 必需 | 字符串 | 向其分配担负或默认文字的书签名称。 使用 REF 域和该书签名可在文档中显示结果。 |
| Prompt | 可选 | Variant | 在对话框中显示的文字。 |
| DefaultAskText | 可选 | Variant | 默认答复，将在显示对话框时显示在文本框中。 相当于 ASK 域的 \d 开关。 |
| AskOnce | 可选 | Variant | 如果该属性值为 True，则该对话框只显示一次，而不是在每次合并新的记录时都显示。 相当于 ASK 域的 \o 开关。 |
返回值
MailMergeField
备注
更新时，ASK 域将显示一个对话框，提示您给指定书签分配文字。
示例
本示例在活动邮件合并主文档的末尾添加一个 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"
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。