Word VBA教程:AddAsk方法

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

expression.AddAsk(Range, Name, Prompt, DefaultAskText, AskOnce)

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

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

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

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

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

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

VBA示例

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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号