Hur du koden på ENTER för att flytta mellan fälten i ett skyddat format i Word

Första makro: Flytta insättningspunkten till nästa formulärfält

Det här makrot flyttar insättningspunkten till nästa formulärfält. Om det aktuella formulärfältet är den sista i dokumentet, flyttas insättningspunkten till det första formulärfältet.

Det här makrot används samlingen bokmärken för att hämta namnet på det aktuella formulärfältet. Namnet på varje formulärfält är också namnet på ett bokmärke som infogas i formulärfältet. Om du har andra bokmärken i dokumentet kan kanske du lägga till mer kod här för att hantera potentiella fel. Makrot förutsätter också att alla formulärfält i handlingarna som tillåter indata från användaren. Om så inte är fallet i dokumentet måste du lägga till ytterligare kod i makrot.

Makrot kontrollerar om det aktuella avsnittet är skyddade eller oskyddade och sedan flyttar till nästa formulärfält (i ett skyddat avsnitt) eller infogar ett stycketecken (i ett oskyddat avsnitt). Den här funktionen krävs för dokument som innehåller båda delarna skyddas för formulär som indata och oskyddade avsnitt.

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

Andra makro: Tilldela tangenten RETUR makrot EnterkeyMacro

Detta makro bifogas på Enter omprogrammering därmed funktionen i nyckeln när den används i skyddade dokument formulärfält makrot EnterKeyMacro. När du använder det här makrot i en anpassad mall namnet AutoNew. Detta ändrar funktionen på RETUR i alla nya formulär-dokument baserat på mallen.

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: Tilldela tangenten RETUR AutoOpen-makro

Lägg till följande kod i ett AutoOpen-makro. Detta säkerställer att viktiga funktioner fortsätter när du öppnar ett dokument som baseras på formulärmallen i framtiden.

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

Obs: dessa makron körs kan inaktivera vissa funktioner som Autokorrigering och AutoText och kan påverka andra funktioner som är beroende på Enter för att fungera korrekt. Du måste köra fjärde makrot för att återställa standardfunktionaliteten i tangenten RETUR eller starta om Microsoft Word.

Fjärde makro: Ta bort kommandot som tilldelats på Enter

Det här makrot återställer standardfunktionaliteten i RETUR-tangenten. När du använder det här makrot i en anpassad mall namnet AutoClose.

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

Anmärkning: CustomizationContext -egenskapen anger den plats där Anpassa tangentbord ska sparas i detta fall mallen som är kopplad till det aktiva dokumentet.