Word) (MailMergeFields.AddAsk 方法

將 ASK 功能變數加入至合併列印主文件。 傳回 MailMergeField 物件。

語法

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

需要 expression。 代表 'MailMergeFields' 集合的變數。

參數

名稱	必要/選用	資料類型	描述
Range	必要	Range 物件	ASK 功能變數的位置。
名稱	必要	字串	接受回應或預設文字指派的書籤名稱。 請使用 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"

另請參閱

MailMergeFields 集合物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。