Как код клавиши ВВОД для перемещения между полями формы в зашифрованном виде в Word

Первый макрос: Перемещение курсора к следующему полю формы

Этот макрос перемещает курсор к следующему полю формы. Если текущее поле формы является последним в документе, его перемещение курсора к первому полю формы.

Этот макрос использует коллекцию закладок для извлечения имени текущего поля формы. Имя каждого поля формы является также именем закладки для поля формы. Если имеются другие закладки в документе, может потребоваться добавление дополнительных кода для обработки возможных ошибок. Макрос также предполагается, что все поля формы в документах ввода данных пользователем. Если это не так в документе, необходимо добавить дополнительный код в макрос.

Макрос проверяет ли текущий раздел защищен или незащищенной и переходит к следующему полю формы (в защищенный раздел) или Вставка знака абзаца (в открытом разделе). Эта функция необходима для документов, содержащих оба разделы, защищенные паролем для формы ввода и защиту разделов.

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

Второй макрос: Назначение макросов EnterkeyMacro клавишу ВВОД

Этот макрос присоединяет макрос EnterKeyMacro клавиша ENTER, тем самым перепрограммирования функцию ключа при его использовании в полях формы защищенного документа. При использовании этого макроса в пользовательский шаблон, присвойте ему имя AutoNew. При этом изменяется клавиши ВВОД во всех новых документах формы на основе шаблона.

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

Третий макрос: Назначение макроса AutoOpen клавиши ВВОД

Добавьте следующий код макроса AutoOpen. Это гарантирует, что основные функциональные возможности по-прежнему при открытии документа, основанного на шаблоне формы в будущем.

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

Примечание: выполнение этих макросов может отключить некоторые возможности, например автозаменой и автотекстом и может повлиять на другие возможности, которые зависят от клавиши ВВОД для правильной работы. Необходимо запустить четвертый макрос для восстановления функциональности по умолчанию клавиши ВВОД или перезапустите Microsoft Word.

Четвертый макроса: Удаление команды, назначенные клавиши ВВОД

Этот макрос восстанавливает функциональность по умолчанию клавиши ВВОД. При использовании этого макроса в пользовательский шаблон имен AutoClose.

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

Примечание: свойство CustomizationContext задает расположение для сохранения, в данном случае шаблон присоединен к активному документу Настройка клавиатуры.