Slik kode ENTER-tasten til å flytte mellom felt i et beskyttet skjema i Word

Første makro: Flytte innsettingspunktet til neste skjemafelt

Denne makroen, flyttes innsettingspunktet til neste skjemafelt. Hvis gjeldende skjemafelt er den siste i dokumentet, flytter du innsettingspunktet til det første skjemafeltet.

Denne makroen bruker bokmerker-samlingen til å hente navnet på gjeldende skjemafelt. Navnet på hvert skjemafelt er også navnet på et bokmerke som er satt inn for skjemafeltet. Hvis du har andre bokmerker i dokumentet, må du kanskje legge til mer kode her for å håndtere potensielle feil. Makroen forutsetter også at alle skjemafelt i dokumenter tillater at inndata fra brukeren. Hvis dette ikke er tilfellet i dokumentet, må du legge til ekstra kode i makroen.

Makroen kontrollerer om den gjeldende inndelingen er beskyttet eller ubeskyttet og deretter flytter til neste skjemafelt (i en beskyttet inndeling) eller setter inn et avsnittsmerke (i en ubeskyttet delen). Denne funksjonaliteten er nødvendig for dokumenter som inneholder begge inndelingene som er beskyttet for skjema-inngang og ubeskyttet inndelinger.

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

Ny makro: Tilordne makroen EnterkeyMacro ENTER-tasten

Denne makroen fester EnterKeyMacro makroen til ENTER-tasten, og dermed omprogrammere funksjonen tasten når den brukes i beskyttede dokumentet skjemafelt. Når du bruker denne makroen i en egendefinert mal, gi den navnet AutoNy. Dette endrer funksjonaliteten for ENTER-tasten i alle nye skjema dokumenter basert på malen.

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

Tredje makro: Tilordne AutoOpen-makro til ENTER-tasten

Legge til en AutoOpen-makro med følgende kode. Dette sikrer at nøkkelfunksjonalitet for fortsetter når du åpner et dokument som er basert på skjemamalen i fremtiden.

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

Merknad: kjører disse makroene kan deaktivere enkelte funksjoner som Autokorrektur og Autotekst, og kan påvirke andre funksjoner som er avhengige av ENTER-tasten for ordentlig. Du må kjøre fjerde makroen hvis du vil gjenopprette standardfunksjonaliteten for ENTER-tasten, eller Start Microsoft Word på nytt.

Fjerde makro: Fjerne kommandoen som er tilordnet ENTER-tasten

Denne makroen gjenoppretter standardfunksjonaliteten for ENTER-tasten. Når du bruker denne makroen i en egendefinert mal, gi den navnet AutoClose.

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

Merknad: CustomizationContext -egenskapen angir stedet der tilpassing av tastaturet skal lagres, i dette tilfellet malen som er knyttet til det aktive dokumentet.