Kā kods taustiņu ENTER, lai pārvietotos starp formas laukiem aizsargātu veidlapu programmā Word

Pirmais makro: Pārvietot iespraušanas punktu uz nākamo veidlapas lauks

Šis makro pārvieto iespraušanas punktu uz nākamo veidlapas lauks. Ja pašreizējais veidlapas lauks ir pēdējais dokuments, pārvieto iespraušanas punktu uz pirmo veidlapas lauku.

Šis makro izmanto grāmatzīmju kolekcija izgūt pašreizējā formas lauka nosaukumu. Katra formas lauka nosaukums ir arī ievieto veidlapas lauks grāmatzīmes nosaukums. Ja dokumentā ir citas grāmatzīmes, iespējams, vajadzēs pievienot papildu kodu šeit rīkoties iespējamās kļūdas. Makro pieņem arī visus laukus dokumentos atļautu lietotāja ievades. Ja tā nav dokumentā, ir jāpievieno papildu kodu makro.

Makro pārbauda, vai šīs sadaļas aizsargā vai neaizsargāts un tiek pārvietots uz nākamo veidlapas lauku (aizsargāts sadaļā) vai ievieto rindkopas atzīmi (sadaļā neaizsargātu). Šī funkcionalitāte ir nepieciešams dokumentiem, kuros ir gan apakšsadaļa, kas aizsargā ievades un neaizsargātu sadaļās.

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

Otrā makro: Piešķiršana EnterkeyMacro makro ievadiet atslēga

Šis makro pievieno makro EnterKeyMacro taustiņu ENTER, tādējādi pārplānošanu taustiņa funkciju, lietojot aizsargāta dokumenta veidlapas laukos. Lietojot šo makro pielāgotu veidni, nosaukums AutoNew. Tas maina funkcionalitāti visus jaunos formas dokumentus, kuru pamatā ir veidne taustiņu ENTER.

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šā makro: Piešķiršana AutoOpen makro ievadiet atslēga

Pievienojiet AutoOpen makro ar šādu kodu. Tas nodrošina atslēgas funkcionalitāte joprojām, atverot dokumentu, kura pamatā ir veidlapa nākotnē.

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

Piezīme: izpildīt šo makro var atspējot daži līdzekļi, piemēram, automātiskā koriģēšana un automātiskais teksts, un var ietekmēt citus līdzekļus, kas atkarīgi no taustiņu ENTER darbojas pareizi. Vēlaties atjaunot noklusējuma funkcionalitāti taustiņu ENTER vai Microsoft Word restartēšanas ceturtā makro palaišanas.

Ceturtā makro: Noņemot komandu piešķirt ievadiet atslēga

Šis makro atjauno noklusējuma funkcionalitāti taustiņu ENTER. Lietojot šo makro pielāgotu veidni, nosaukums AutoClose.

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

Piezīme: CustomizationContext rekvizīts nosaka vietu, kur jāsaglabā šis gadījums aktīvā dokumentam piesaistīto veidni tastatūras pielāgošana.