Comment coder la touche ENTRÉE pour se déplacer entre les champs de formulaire dans un formulaire protégé dans Word

Première Macro : Déplacer le Point d’Insertion dans le champ de formulaire suivant

Cette macro déplace le point d’insertion dans le champ de formulaire suivant. Si le champ de formulaire actif est le dernier dans le document, il déplace le point d’insertion sur le premier champ de formulaire.

Cette macro utilise la collection Bookmarks pour récupérer le nom du champ de formulaire en cours. Le nom de chaque champ de formulaire est également le nom d’un signet inséré pour le champ de formulaire. Si vous disposez de tous les signets dans votre document, vous devrez peut-être ajouter davantage de code ici pour gérer les erreurs potentielles. La macro suppose également que tous les champs de formulaire dans les documents autorisent l’entrée d’utilisateur. Si ce n’est pas le cas dans votre document, vous devez ajouter du code dans votre macro.

La macro vérifie pour voir si la section en cours est protégée ou non protégé puis se déplace dans le champ de formulaire suivant (dans une section protégée) ou insère une marque de paragraphe (dans une section non protégée). Cette fonctionnalité est nécessaire pour les documents qui contiennent les deux sections qui sont protégées pour le formulaire d’entrée et sans protection sections.

Sub EnterKeyMacro()
' Check whether the document is protected for forms
' and whether the protection is active.
   If ActiveDocument.ProtectionType = wdAllowOnlyFormFields And _
   Selection.Sections(1).ProtectedForForms = True Then
      ' Retrieve the bookmark of the current selection.
      ' This is equivalent to the name of the form field.
      myformfield = Selection.Bookmarks(1).Name
      ' Go to the next form field if the current form field
      ' is not the last one in the document.
      If ActiveDocument.FormFields(myformfield).Name <> _
      ActiveDocument.FormFields(ActiveDocument.FormFields.Count) _
      .Name Then
         ActiveDocument.FormFields(myformfield).Next.Select
      Else
         ' If the current form field is the last one,
         ' go to the first form field in the document.
         ActiveDocument.FormFields(1).Select
      End If
   Else
   ' If the document is not protected for forms,
   ' insert a tab stop character.
      Selection.TypeText Chr(13)
   End If
End Sub

Deuxième Macro : Affectation de la Macro EnterkeyMacro pour la touche entrée

Cette macro s’attache à la macro EnterKeyMacro pour la touche entrée, reprogrammation ainsi la fonction de la clé lorsqu’il est utilisé dans les champs de formulaire de document protégé. Lorsque vous utilisez cette macro dans un modèle personnalisé, nommez-le AutoNew. Cela modifie la fonctionnalité de la touche entrée dans tous les nouveaux documents de formulaire basé sur le modèle.

Sub AutoNew()
 ' Do Not protect the template containing these macros.
   CustomizationContext = ActiveDocument.AttachedTemplate
   ' Bind the ENTER key to the EnterKeyMacro.
   KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
   KeyCategory:=wdKeyCategoryMacro, Command:="EnterKeyMacro"
   ' Reprotect the document with Forms protection.
   ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

Troisième Macro : Affecter la Macro AutoOpen à la touche entrée

Ajouter une macro AutoOpen par le code suivant. Cela garantit que les fonctionnalités clés continue lorsque vous ouvrez un document basé sur le modèle de formulaire à l’avenir.

Sub AutoOpen()
' This macro will reassign the ENTER key when you open an existing
' Word form fields document.
   CustomizationContext = ActiveDocument.AttachedTemplate
   ' Bind the Enter key to the EnterKeyMacro.
   KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
   KeyCategory:=wdKeyCategoryMacro, Command:="EnterKeyMacro"
End Sub

Remarque: ces macros en cours d’exécution peut désactiver certaines fonctionnalités, telles que la correction automatique et l’insertion automatique et peut affecter d’autres fonctionnalités qui dépendent de la touche entrée pour un fonctionnement correct. Vous devez exécuter la macro quatrième pour restaurer la fonctionnalité par défaut de la touche entrée, ou redémarrez Microsoft Word.

Quatrième Macro : Suppression de la commande associée à la touche entrée

Cette macro rétablit la fonctionnalité par défaut de la touche ENTRÉE. Lorsque vous utilisez cette macro dans un modèle personnalisé, nommez-le AutoClose.

Sub AutoClose()
   CustomizationContext = ActiveDocument.AttachedTemplate
   FindKey(KeyCode:=BuildKeyCode(wdKeyReturn)).Disable
   ' Disables prompt to save template changes.
   Templates(1).Save
End Sub

Remarque: la propriété CustomizationContext définit l’emplacement où la personnalisation du clavier doit être enregistré, dans ce cas, le modèle attaché au document actif.