Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Fügt ein ASK-Feld in ein Seriendruck-Hauptdokument ein. Gibt ein MailMergeField-Objekt zurück.
Syntax
Ausdruck.
AddAsk( _Range_ , _Name_ , _Prompt_ , _DefaultAskText_ , _AskOnce_ )
expression Erforderlich. Eine Variable, die eine MailMergeFields-Auflistung darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Range | Erforderlich | Range-Objekt | Die Position für das ASK-Feld. |
| Name | Erforderlich | String | Der Name der Textmarke, der die Antwort oder ein Standardtext zugewiesen wird. Verwenden Sie zum Anzeigen des Ergebnisses in einem Dokument ein REF-Feld mit dem Namen der Textmarke. |
| Prompt | Optional | Variant | Der im Dialogfeld angezeigte Text. |
| DefaultAskText | Optional | Variant | Die Standardantwort, die im Textfeld zu sehen ist, wenn das Dialogfeld angezeigt wird. Entspricht dem Schalter \d für ein ASK-Feld. |
| AskOnce | Optional | Variant | True , um das Dialogfeld nur einmal anzuzeigen, anstatt jedes Mal, wenn ein neuer Datensatz zusammengeführt wird. Entspricht dem Schalter \o für ein ASK-Feld. |
Rückgabewert
MailMergeField
Hinweise
Bei einer Aktualisierung wird in einem ASK-Feld ein Dialogfeld angezeigt, in dem Sie aufgefordert werden, Text einzugeben, der der angegebenen Textmarke zugeordnet werden soll.
Beispiel
In diesem Beispiel wird am Ende des aktiven Seriendruck-Hauptdokuments ein ASK-Feld hinzugefügt.
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
In diesem Beispiel wird hinter dem letzten Seriendruckfeld in Main.doc ein ASK-Feld hinzugefügt.
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"
Siehe auch
MailMergeFields-Auflistung (Objekt)
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.