Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Ajoute un champ ASK à un document principal de fusion. Renvoie un objet MailMergeField.
Syntaxe
expression.
AddAsk( _Range_ , _Name_ , _Prompt_ , _DefaultAskText_ , _AskOnce_ )
expression Obligatoire. Variable qui représente une collection « MailMergeFields ».
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Range | Obligatoire | Range (objet) | Emplacement du champ ASK. |
| Name | Obligatoire | String | Nom du signet auquel la réponse ou le texte par défaut est affecté. Pour afficher le résultat dans un document, utilisez un champ REF contenant le nom du signet. |
| Prompt | Facultatif | Variant | Texte affiché dans la boîte de dialogue. |
| DefaultAskText | Facultatif | Variant | Réponse qui sera automatiquement proposée dans la zone de texte de la boîte de dialogue. Correspond au commutateur \d d'un champ ASK. |
| AskOnce | Facultatif | Variant | True pour afficher la boîte de dialogue une seule fois au lieu de chaque fusion d’un nouvel enregistrement. Correspond au commutateur \o pour un champ ASK. |
Valeur renvoyée
MailMergeField
Remarques
À la mise à jour, un champ ASK affiche une boîte de dialogue qui vous demande le texte à affecter au signet spécifié.
Exemple
Cet exemple montre comment ajouter un champ ASK à la fin du document principal de fusion actif.
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
Cet exemple montre comment ajouter un champ ASK après le dernier champ de fusion du fichier Main.doc.
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"
Voir aussi
MailMergeFields, Collection d'objets
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.