Jak kod klawisz ENTER, aby przechodzić między polami formularza w chronionym formularzu w programie Word

Pierwsze makro: Przenieść punkt wstawiania do następnego pola formularza

To makro przenosi punkt wstawiania do następnego pola formularza. Jeśli bieżące pole formularza jest ostatnią w dokumencie, przenosi punkt wstawiania do pierwszego pola formularza.

To makro jest używana jest kolekcja zakładek do pobierania nazwy bieżącego pola formularza. Nazwa każdego pola formularza jest również nazwę zakładki, dodaje się do pola formularza. Jeśli masz inne zakładki w dokumencie, może trzeba więcej tutaj należy dodać kod obsługi potencjalnych błędów. Makro zakłada, że wszystkie pola formularza w dokumentach zezwalanie na interwencję użytkownika. Jeśli nie jest to miejsce w dokumencie, należy dodać dodatkowy kod makra.

Makro sprawdza, czy bieżącej sekcji jest chroniony lub niezabezpieczone i następnie przechodzi do następnego pola formularza (w sekcji chronionych) lub wstawia znacznik akapitu (w niechronionych części). Ta funkcja jest niezbędna do dokumentów, które zawierają obie sekcje, które są chronione dla formularza wejściowe i bez ochrony sekcjach.

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

Drugiego makra: Przypisywanie makra EnterkeyMacro do klawisza ENTER

To makro dołączy makra EnterKeyMacro do klawisz ENTER, a tym samym przeprogramowanie funkcji klawisza, gdy jest używany w polach formularza chronionego dokumentu. Podczas korzystania z tego makra w szablonie niestandardowym, nadaj mu nazwę AutoNew. Zmienia funkcję klawisza ENTER we wszystkich nowych dokumentach formularz oparty na szablonie.

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

Drugiego makra: Przypisywanie makra Enterkeymacro do klawisza ENTER

Dodaj następujący kod makra AutoOpen. Gwarantuje to, że najważniejsze funkcje w dalszym ciągu po otwarciu dokumentu opartego na szablonie formularza w przyszłości.

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

Uwaga: uruchomienie tych makr mogą wyłączyć niektóre funkcje, takie jak Autokorekta i pozycji Autotekstu i może mieć wpływ na inne funkcje, które zależą od klawisza ENTER do prawidłowego działania. Musisz uruchomić makro czwartego przywracania domyślnie funkcja klawisza ENTER lub ponownego uruchomienia programu Microsoft Word.

Czwarty makro: Usuwanie przypisanego do klawisza ENTER

To makro przywraca domyślne funkcji klawisz ENTER. Podczas korzystania z tego makra w szablonie niestandardowym, nadaj mu nazwę AutoClose.

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

Uwaga: właściwość CustomizationContext Ustawia lokalizację, w której Dostosowywanie klawiatury ma być zapisane w tym przypadku szablon dołączony do aktywnego dokumentu.