Kaip kodas ENTER klavišą, kad judėti tarp formos laukų, saugomų formų programoje "Word"

Pirmą kartą makro: Perkelti žymeklį į kitą formos lauką

Ši makrokomanda perkelia žymeklį į kitą formos lauką. Jei formos laukas yra naujausia dokumente, jis perkelia teksto žymeklį į pirmąjį formos lauką.

Ši makrokomanda naudoja žymelės rinkimo gauti esamo formos lauko pavadinimą. Kiekvieno formos lauko pavadinimą taip pat įtrauktas į formos lauką žymelės pavadinimą. Jei dokumente yra žymelių kitų, turite įtraukti daugiau kodą tvarkyti galimų klaidų. Makrokomandą taip pat manoma, kad visi formos laukai dokumentuose leisti vartotojo įvesties. Jei taip ir yra ne jūsų dokumente, jums reikia pridėti papildomą kodą makrokomandos.

Makrokomanda tikrina, ar sekcijoje yra apsaugotas ar neapsaugotus ir tada perkeliamas į kitą formos lauką (apsaugota sekcija) arba įterpia pastraipos žymę (į skyrius neapsaugotos). Ši funkcija yra reikalingi dokumentai, kuriuose yra abu skyriai, kurie saugomi formos įvesties ir neapsaugotus skyriuose.

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

Antras makro: Priskyrimas EnterkeyMacro makrokomandos, įveskite kodą

Ši makrokomanda suteikia EnterKeyMacro makrokomanda klavišą "ENTER", tokiu būdu pakeisti rakto funkciją, kai ji naudojama apsaugotą dokumentą formos laukus. Naudodami šią makrokomandą pasirinktinį šabloną, pavadinkite jį AutoNew. Tai pakeičia formos visuose naujuose dokumentuose, kuriamuose naudojant šabloną ENTER klavišo funkciją.

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

Trečioji makro: Priskyrimas AutoOpen makrokomandos, įveskite kodą

Įtraukti į AutoOpen makrokomandų kodas. Taip užtikrinama, kad klavišų funkcijas ir toliau atidarius dokumentą, atsižvelgiant į formos šablono ateityje.

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

Pastaba: šias makrokomandas išjungti kai kurias funkcijas, pvz., automatinės taisos ir automatinio teksto, ir gali paveikti kitas funkcijas, kurios priklauso nuo klavišą ENTER, kad tinkamai veiktų. Jums reikia atkurti numatytuosius funkcijos klavišą ENTER, arba paleisti iš naujo Microsoft Word ketvirtasis makrokomandos.

Ketvirtasis makro: Pašalinti priskirti komandą, įveskite kodą

Ši makrokomanda atkuria numatytuosius funkcijos klavišą ENTER. Naudodami šią makrokomandą pasirinktinį šabloną, pavadinkite jį AutoClose.

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

Pastaba: CustomizationContext ypatybė nustato vietą, kur klaviatūros pritaikymas yra įrašyti, šiuo atveju prie aktyvaus dokumento pridėtą šabloną.