Het code-ENTER om te navigeren tussen velden in een beveiligd formulier in Word

Eerste Macro: De invoegpositie verplaatsen naar het volgende formulierveld

Deze macro wordt de invoegpositie verplaatst naar het volgende veld in het formulier. Als het huidige formulierveld de laatste in het document is, wordt de invoegpositie verplaatst naar het eerste veld in het formulier.

Deze macro wordt de Bookmarks-collectie op te halen van de naam van het huidige formulierveld. De naam van elk veld in het formulier is ook de naam van een bladwijzer ingevoegd voor het formulierveld. Als u een andere bladwijzers in uw document hebt, moet u wellicht hier meer code toevoegen om potentiële fouten. De macro wordt ervan uitgegaan dat alle formuliervelden in de documenten gebruikersinvoer toestaan. Als dit niet het geval is in uw document, moet u aanvullende code in uw macro toevoegen.

De macro wordt gecontroleerd of de huidige sectie is beveiligd of onbeveiligd en naar het volgende veld (in een beveiligde sectie verplaatst) of voegt een alineamarkering (in een niet-beveiligde sectie). Deze functionaliteit noodzakelijk is voor documenten met beide secties die zijn beveiligd formulier invoeren en onbeveiligd secties.

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

Tweede Macro: De EnterkeyMacro Macro toewijzen aan de ENTER-toets

Deze macro wordt de macro EnterKeyMacro gekoppeld op de ENTER-toets, waardoor herprogrammering tegen te gaan de functie van de toets wanneer het wordt gebruikt in een beveiligd document formuliervelden. Wanneer u deze macro in een aangepaste sjabloon gebruikt, geeft u de naam AutoNew. Hiermee wijzigt u de functionaliteit van de ENTER-toets in alle nieuwe formulier documenten op basis van de sjabloon.

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

Derde Macro: De AutoOpen-Macro toewijzen aan de ENTER-toets

Een AutoOpen-macro met de volgende code toevoegen. Dit zorgt ervoor dat de belangrijkste functionaliteit blijft bij het openen van een document op basis van de formuliersjabloon in de toekomst.

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

Opmerking: deze macro's uitgevoerd sommige functies, zoals AutoCorrectie en AutoTekst-fragmenten, kan worden uitgeschakeld en kan gevolgen hebben voor andere functies die afhankelijk van de ENTER-toets voor een juiste werking zijn. U moet de macro vierde zetten de standaardfunctionaliteit van de ENTER-toets of Microsoft Word opnieuw start.

Vierde Macro: Verwijderen van de opdracht die is toegewezen aan de toets ENTER

Deze macro wordt de standaardfunctionaliteit van de ENTER-toets hersteld. Wanneer u deze macro in een aangepaste sjabloon gebruikt, geeft u de naam AutoClose.

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

Opmerking: de eigenschap CustomizationContext stelt u de locatie waar het toetsenbord aanpassen in dit geval de sjabloon die is gekoppeld aan het actieve document opgeslagen.