Wie Code die EINGABETASTE zwischen Formularfelder in einem geschützten Formular in Word

Erste Makro: Verschieben der Einfügemarke in das nächste Formularfeld

Dieses Makro verschiebt die Einfügemarke in das nächste Formularfeld. Ist das aktuelle Formularfeld einem Dokument, wird die Einfügemarke in das erste Formularfeld verschoben.

Dieses Makro verwendet die Bookmarks-Auflistung zum Abrufen des Namens des aktuellen Formularfeldes. Der Name jedes Formularfeld ist auch der Name einer Textmarke für das Formularfeld eingefügt. Haben Sie alle Lesezeichen im Dokument möglicherweise mehr Code hinzufügen, um Fehler zu behandeln. Das Makro wird davon ausgegangen, dass alle Formularfelder in den Dokumenten Benutzereingaben zulassen. Ist dies nicht der Fall in Ihrem Dokument, müssen Sie zusätzlichen Code in Ihrem Makro hinzufügen.

Das Makro überprüft, ob im aktuelle Abschnitt ist geschützt oder ungeschützt und das nächste Formularfeld (in einem geschützten Bereich verschiebt) oder eine Absatzmarke ein (in einem ungeschützten Abschnitt fügt). Diese Funktion ist für Dokumente, die beide Abschnitte enthalten, die für Formular eingeben und ungeschützt geschützt sind Abschnitte.

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

Zweites Makro: Die EINGABETASTE EnterkeyMacro Makro zuweisen

Dieses Makro fügt das EnterKeyMacro-Makro an EINGABETASTE die Funktion der Taste Dokument Formularfelder Verwendung und Anpassung. Wenn Sie dieses Makro in eine benutzerdefinierte Vorlage verwenden, nennen Sie es AutoNew. Dadurch wird die Funktionalität der EINGABETASTE in allen neuen Dokumenten basierend auf der Vorlage.

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

Dritte Makro: Die EINGABETASTE AutoOpen-Makro zuweisen

Fügen Sie ein AutoOpen-Makro durch den folgenden Code hinzu. Dadurch Schlüsselfunktionen weiterhin beim Öffnen eines Dokuments in Zukunft auf der Formularvorlage basiert.

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

Hinweis: Diese Makros ausführen können einige Funktionen AutoText, wie AutoKorrektur deaktivieren und beeinträchtigen andere Features, die EINGABETASTE für den ordnungsgemäßen Betrieb abhängig. Sie müssen die vierte Makro um die Standardfunktionen der EINGABETASTE wiederherzustellen, oder starten Sie Microsoft Word.

Vierte Makro: Entfernen des Befehls die EINGABETASTE zugewiesen

Dieses Makro stellt Standardfunktionen der EINGABETASTE. Wenn Sie dieses Makro in eine benutzerdefinierte Vorlage verwenden, nennen Sie es AutoClose.

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

Hinweis: die CustomizationContext -Eigenschaft wird der Speicherort, Tastatur anpassen, in diesem Fall speichernden Vorlage an das aktive Dokument.