WD : Création d'un formulaire dont la mise à jour est automatique

Exclusion de responsabilité du contenu obsolète de la base de connaissances

Cet article a été rédigé sur les produits pour lesquels Microsoft n’offre plus aucune prise en charge. Par conséquent, cet article est proposé « en l’état » et ne sera plus mis à jour.

Résumé

Sous Microsoft Word, vous pouvez créer un formulaire dans lequel une section est mise à jour automatiquement en fonction d'informations que vous tapez ou sélectionnez dans un champ de formulaire. Par exemple, si vous souhaitez que les utilisateurs puissent faire une sélection à partir d'une liste de noms de sociétés et que l'adresse sélectionnée apparaisse dans une autre section de votre formulaire, vous pouvez paramétrer votre formulaire en utilisant des insertions automatique, un signet et une macro exécutable à la sortie.

Cet article explique comment créer un formulaire contenant un champ de formulaire qui permette l'insertion automatique d'une adresse de société (qui est enregistré comme insertion automatique) sélectionnée par l'utilisateur à partir d'une liste déroulante dans le champ suivant du formulaire.

Plus d'informations

Microsoft exclut toute garantie, expresse ou implicite, notamment toute garantie de qualité marchande et d'adéquation à un usage particulier, relative aux exemples de programmation fournis à titre d'illustration dans cet article. Cet article suppose que vous connaissez le langage de programmation en question et les outils utilisés dans la création et le débogage des procédures. Les techniciens du support technique de Microsoft peuvent vous aider à comprendre la fonctionnalité d'une procédure particulière, mais ils ne modifieront pas ces exemples afin de fournir des fonctionnalités supplémentaires ou des procédures de construction adaptées à vos besoins spécifiques. Si vous n'avez qu'une expérience limitée de la programmation, vous pouvez contacter un Partenaire solutions certifié Microsoft (MCSP) ou bien appeler la ligne de consultation payante de Microsoft au Numero indique a la page http://support.microsoft.com/contactus/.

Pour plus d'informations sur les Partenaires solutions certifiés Microsoft, veuillez consulter la page Web suivante :Pour plus d'informations sur les options de support technique proposées par Microsoft, visitez le site Web à l'adresse suivante :En suivant l'exemple ci-dessous, vous créerez un formulaire contenant un champ permettant l'insertion automatique de l'adresse d'une société lorsque l'utilisateur entre dans un nouveau champ et sélectionne le nom de cette société. L'adresse sera placée à l'emplacement d'un signet situé dans une section non protégée du document.

Création d'une macro exécutable à la sortie

Créez la macro convenant à votre version de Word, dans laquelle " ListeDéroulante1 " est le signet représentant le champ de fichier déroulant contenant votre liste d'éléments et " Signet1 " le signet représentant l'emplacement auquel vous souhaitez que l'insertion automatique s'effectue.

Word 98 Édition Macintosh

 Sub DropDownAutoText1() 'This is the name of the macro
Dim DropResult As String
' Get result of the form field.
DropResult = ActiveDocument.FormFields("ListeDéroulante1").Result
' UnProtect the document.
ActiveDocument.UnProtect
With Selection
' Go to location to insert Autotext
.GoTo What:=wdGoToBookmark, Name:="Signet1"
' Insert AutoText name chosen from dropdown list.
.InsertAfter DropResult
' Insert the AutoText.
.Range.InsertAutoText
End With
' Re-Protect the document.
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End If
End Sub

Word 6.0 et 7.0

 Sub Main
' Get result of the form field.
A$ = GetFormResult$ ("ListeDéroulante1")
' UnProtect the document. ToolsUnprotectDocument
' Go to location to insert Autotext
EditGoTo .Destination = "Signet1"
' Insert AutoText name chosen from dropdown list.
Insert A$
' Insert the AutoText. InsertAutoText
' Re-Protect the document.
ToolsProtectDocument .NoReset = 1
End Sub
Pour plus d'informations sur la fonction GetFormResult(), veuillez consulter la page 494 du " Kit de développement Microsoft Word " pour la version 6.0 ou la page 557 du " Kit de développement Microsoft Word rev. 3."

Création des listes déroulantes de formulaire

Word 98 Édition pour Macintosh

Ouvrez un nouveau document et procédez comme suit pour créer un liste déroulante de formulaire :
  1. Dans le menu Affichage, pointez sur Barres d'outils puis cliquez sur Formulaires.
  2. Sur la barre d'outils Formulaires, cliquez sur Liste déroulante de formulaire (le troisième icône).
  3. Double-cliquez sur le champ de formulaire nouvellement inséré. Entrez un nom d'élément dans la liste déroulante d'éléments et cliquez sur le bouton Ajouter. Utilisez des éléments (des noms de sociétés par exemple) qui indiqueront les informations (leurs adresses) à insérer à d'autres emplacements dans le formulaire.
  4. Répétez l'étape 3 pour chaque élément répertorié dans la liste déroulante. Puis cliquez sur OK.
  5. Cliquez avec le bouton droit de la souris sur la liste déroulante de formulaire et cliquez sur Propriétés dans le menu contextuel.
  6. Dans la boîte de dialogue Options de liste déroulante de formulaire, sous " Exécuter la macro " dans la zone À la sortie, sélectionnez la macro créée dans la section de cet article intitulée " Création d'une macro à la sortie ". Cliquez sur OK.

Word 6.0/7.0

Ouvrez un nouveau document et procédez comme suit pour créer une liste déroulante de formulaire :
  1. Dans le menu Insertion, cliquez sur Champ et sélectionnez Liste déroulante dans la liste Champs.
  2. Cliquez sur le bouton Options. Entrez un nom d'élément dans la liste déroulante d'éléments et cliquez sur le bouton Ajouter. Utilisez des éléments (noms de sociétés) pour indiquer les informations (leurs adresses) à insérer à d'autres emplacements dans le formulaire.
  3. Répétez l'étape 2 pour chaque élément répertorié dans la liste déroulante. Puis cliquez sur OK.
  4. Cliquez avec le bouton droit sur la liste déroulante de formulaire et cliquez sur Propriétés dans le menu contextuel.
Pour plus d'informations sur la création de champs de formulaire, consultez la section " Formulaires ", qui commence à la page 305 dans le " Guide de l'utilisateur de Microsoft Word " pour la version 6.0.

Création des Insertions automatiquesDans la boîte de dialogue Options de liste déroulante de formulaire, sous " Exécuter la macro " dans la zone À la sortie, sélectionnez la macro créée dans la section de cet article intitulée " Création d'une macro exécutable à la sortie ". Cliquez sur OK.

Création des Insertions automatiques Donnez à chacune des Insertions automatiques le nom entré précédemment dans votre liste déroulante de formulaire. Le contenu de l'Insertion automatique correspondra à l'adresse de la société.

Pour plus d'informations sur la création d'Insertions automatiques, utilisez la rubrique d'aide de Word. Pour trouver la rubrique d'aide correspondant à votre recherche, suivez la procédure appropriée à votre version de Word.

Word 98 Édition Macintosh

Procédez comme suit :
  1. Dans le menu Aide, cliquez sur Sommaire et index.
  2. Cliquez sur l'onglet Index puis tapez Insertion automatique dans la ligne 1.
  3. Sous la rubrique 2, sélectionnez Création sous la rubrique Insertion automatique puis cliquez sur Afficher.

Word 7.x

  1. Dans le menu Aide, cliquez sur Rubriques d'aide Microsoft Word.
  2. Cliquez sur l'onglet Index puis tapez Insertion automatique.
  3. Sous Insertion automatique, sélectionnez " Création d'entrées " puis cliquez sur Affichage.
  4. Sélectionnez la rubrique " Utiliser les menus contextuels pour insérer des textes ou graphiques fréquemment utilisés ".

Word 6.x

  1. Dans le menu Aide, cliquez sur " Aide sur ".
  2. Cliquez sur l'onglet Index puis entrez Insertion automatique.
  3. Sous Insertion automatique, sélectionnez " Création d'entrées " puis cliquez sur Affichage.
  4. Sélectionnez la rubrique " Utiliser les menus contextuels pour insérer des textes ou graphiques fréquemment utilisés ".

Placement des signets dans le formulaire

Suivez la procédure appropriée pour insérer un signet (dans cet exemple, nommez le signet Signet1) à l'emplacement auquel vous souhaitez que l'insertion automatique (l'adresse) apparaisse. Cette section du document ne sera pas protégée de sorte que le résultat de l'insertion automatique puisse être insérée dans le document. Insérez des sauts de section continus au-dessus et en dessous de ce signet.

Word 98 Édition Macintosh

Procédez comme suit :
  1. Dans le menu Insertion, cliquez sur Signets.
  2. Tapez Signet1 sur la ligne Nom du signet.
  3. Cliquez sur Ajouter.

Word 6.x et 7.x

Procédez comme suit :
  1. Dans le menu Edition, cliquez sur Signets.
  2. Tapez Signet1 sur la ligne Nom du signet.
  3. Cliquez sur Ajouter.
REMARQUE : Vous ne pourrez pas utiliser de signets dans les en-têtes, les pieds de page, les annotations, les notes de bas de page ou notes de fin car la commande EditGoto de la macro ne reconnaîtra pas ces signets, et qu'ils ne peuvent pas ne pas être protégés dans votre formulaire.

Protection du formulaire

Pour protéger votre formulaire, procédez comme suit :
  1. Dans le menu Outils, cliquez sur protection du document, sélectionnez l'option Formulaires et cliquez sur Sections.
  2. Dans la boîte de dialogue Protection de sections, décochez la case correspondant à la section dans laquelle l'insertion automatique sera insérée et cliquez deux fois sur OK.
  3. Enregistrez le formulaire.

Références

" Kit de développement Microsoft Word " pour la version 6.0, pages 494 [GetFormResult() function], 681 (SetFormResult statement)

" Guide de l'utilisateur Microsoft Word ", version 6.0, pages 305-326 (section " Formulaires ") et 743-755 (" Enregistrement et exécution de macros ").
Propriétés

ID d'article : 117209 - Dernière mise à jour : 9 avr. 2013 - Révision : 1

Microsoft Word 95a, Microsoft Word 6.0 Édition Macintosh, Microsoft Word 6.01 for Macintosh, Microsoft Word 98 for Macintosh

Commentaires