Як код клавіші ENTER для переміщення між полями форм, захищені форми, у програмі 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. Це призводить до зміни функціональних можливостей у всіх нових документів форми на основі шаблону, клавішу 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

Третій макросів:, Призначення макросу 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

Зверніть увагу: ОС ці макроси, можна вимкнути, деякі функції, такі як автовиправлення та Автотекст і може вплинути на інші функції, які залежать від клавіші ENTER для правильної роботи. Потрібно запускати четверта відновлення попередніх параметрів за промовчанням клавіші ENTER або перезавантаження Microsoft Word.

Четверта макросів: Видалення з команди, які призначено на введення ключа

Цей макрос, відновлює за промовчанням функціональність клавішу ENTER. Якщо використовується цей макрос, настроюваний шаблон, ім'я AutoClose.

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

Зверніть увагу: CustomizationContext властивість, визначає розташування, де є налаштування клавіатури для збереження, у цьому випадку, шаблон, що додається до активного документа.