Cum se cod tasta ENTER pentru a vă deplasa între câmpurile de formular dintr-un formular protejate în Word

Prima macrocomandă: Mutarea punctul de inserare în următorul câmp de formular

Această macrocomandă mută punctul de inserare în următorul câmp de formular. În cazul în care câmpul de formular curent este ultimul din document, mută punctul de inserare în primul câmp de formular.

Această macrocomandă utilizează colectarea marcaje în document pentru a regăsi numele curent câmp de formular. Numele de fiecare câmp de formular este, de asemenea, numele de un marcaj introdus pentru câmp de formular. Dacă aveți orice alte marcaje în document, trebuie să adăugați mai multe cod aici pentru a trata erori potențiale. Macrocomanda, de asemenea, se presupune că toate câmpurile de formular în documente permite introduse de utilizator. Dacă nu este cazul în document, trebuie să adăugaţi codul suplimentare în macrocomanda.

Macrocomanda controale pentru a vedea dacă secțiunea curentă este protejat sau neprotejate apoi se mută în următorul câmp de formular (într-o secțiune protejate) sau inserează un paragraf (dintr-o secțiune neprotejate). Această funcționalitate este necesar pentru documentele care conțin ambele secțiuni protejate pentru formular de intrare și neprotejate secțiuni.

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

Al doilea macrocomandă: Atribuirea macrocomanda EnterkeyMacro tasta ENTER

Această macrocomandă acordă macrocomanda EnterKeyMacro tasta ENTER, astfel reprogramarea funcția cheia atunci când este utilizat în câmpurile de formular document protejat. Când utilizați această macrocomandă într-un șablon particularizat, numele AutoNew. Acest lucru se schimbă funcționalitatea tasta ENTER în toate documentele noi formular bazat pe șablon.

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

Macrocomandă terțe: Atribuirea macrocomanda AutoOpen tasta ENTER

Adăugați o macrocomandă AutoOpen cu următorul cod. Acest lucru garantează că funcționalitatea cheie continuă atunci când deschideți un document bazat pe șablon formular în viitor.

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

Notă: execută aceste macrocomenzi pot dezactiva unele caracteristici, cum ar fi AutoCorecție și AutoText, și pot afecta alte caracteristici care depind de tasta ENTER pentru funcționarea corectă. Trebuie să executați macrocomanda a patra pentru a restaura funcţionalitatea implicit tasta ENTER, sau reporniți Microsoft Word.

A patra macrocomandă: Eliminarea comanda atribuită tasta ENTER

Această macrocomandă restabilește funcționalitatea implicit tasta ENTER. Când utilizați această macrocomandă într-un șablon particularizat, numele AutoClose.

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

Notă: proprietatea CustomizationContext setează locația unde panoul de particularizare a tastaturii este să fie salvate în acest caz șablonul atașat documentului activ.