Ako sa kód klávesu ENTER na presun medzi poľami formulára v chránených formulára v programe Word

Prvé makro: Presun kurzora na ďalšie pole formulára

Makro presunie kurzor na ďalšie pole formulára. Ak aktuálne pole formulára je posledný v dokumente, presunie kurzor na prvé pole formulára.

Toto makro používa kolekcii záložky na načítanie názov aktuálne pole formulára. Názov každého poľa formulára je tiež názov záložky vkladá pre pole formulára. Ak máte iné záložky v dokumente, budete musieť pridať viac kód tu spracovať potenciálne chyby. Makro sa tiež predpokladá, že všetky polia formulára v dokumentoch umožniť používateľ vstup. Ak to nie je v dokumente, musíte pridať doplnkový kód makra.

Makro skontroluje, či aktuálnej sekcie chránené alebo nechránené a presunie na ďalšie pole formulára (v chránenej časti) alebo vloží značka odseku (v nechránené časti). Táto funkcia je potrebné dokumenty obsahujúce oboch sekcií, ktoré sú chránené na forme vstupných a nechránené sekciách.

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

Druhé makro: Priradenie EnterkeyMacro makra zadajte kľúč

Toto makro prikladá makro EnterKeyMacro kláves ENTER, čím preprogramovania funkcia tlačidla, keď sa používa v zabezpečenom dokumente polia formulára. Keď použijete toto makro v vlastnú šablónu, to meno AutoNew. Zmení funkcie ENTER kľúča v všetky nové dokumenty formulár založený na šablóne.

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

Tretí makro: Priradenie EnterkeyMacro makra zadajte kľúč

Pridať AutoOpen makro s nasledujúcim kódom. Tým, že kľúčové funkcionality pokračuje, keď otvoríte dokument založený na šablóne formulára v budúcnosti.

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

Poznámka: spustené tieto makrá môže zakázať niektoré funkcie, napríklad Automatická oprava a automatický text, a môžu ovplyvniť iné funkcie, ktoré závisia od zadajte kľúč pre správne fungovanie. Musíte spustiť štvrtý makro na obnovenie predvolené funkcie kláves ENTER alebo reštartujte program Microsoft Word.

Štvrtý makro: Odstránenie príkaz priradený k zadajte kľúč

Makro obnoví predvolené funkcie kláves ENTER. Keď použijete toto makro v vlastnú šablónu, názov AutoClose.

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

Poznámka: vlastnosť CustomizationContext určuje miesto, kde prispôsobenie klávesnice sa uložia v tomto prípade šablóna k aktívneho dokumentu.