Làm thế nào để mã phím ENTER để di chuyển giữa các biểu mẫu trong biểu mẫu được bảo vệ trong Word

Đầu tiên Macro: Di chuyển điểm chèn trường biểu mẫu tiếp theo

Macro này di chuyển điểm chèn trường biểu mẫu tiếp theo. Nếu trường biểu mẫu hiện tại là cuối cùng trong tài liệu, nó di chuyển điểm chèn trường mẫu đầu tiên.

Macro này sử dụng bộ sưu tập đánh dấu để truy xuất tên trường mẫu hiện tại. Tên của mỗi trường mẫu là tên của một dấu chèn trường biểu mẫu. Nếu bạn có bất kỳ dấu khác trong tài liệu của bạn, bạn có thể phải thêm thêm mã ở đây để xử lý lỗi tiềm năng. Macro cũng giả định rằng tất cả các trường biểu mẫu trong tài liệu cho phép người dùng nhập. Nếu điều này không xảy ra trong tài liệu của bạn, bạn phải thêm các mã macro của bạn.

Macro kiểm tra xem xem phần hiện tại được bảo vệ hoặc không được bảo vệ và sau đó chuyển tới trường tiếp theo mẫu (trong một bảo vệ) hoặc chèn một dấu phân đoạn (trong một tình). Chức năng này là cần thiết cho các tài liệu có chứa cả hai phần được bảo vệ cho hình thức đầu vào và không được bảo vệ phần.

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

Macro thứ hai: Gán Macro EnterkeyMacro để các phím ENTER

Macro này coi EnterKeyMacro macro phím ENTER, do đó reprogramming chức năng phím khi sử dụng biểu mẫu tài liệu được bảo vệ. Khi bạn sử dụng macro này một khuôn mẫu tuỳ chỉnh, đặt tên là AutoNew. Thay đổi chức năng phím ENTER, tất cả tài liệu mẫu mới dựa trên khuôn mẫu.

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

Macro thứ ba: Gán Macro AutoOpen để các phím ENTER

Thêm một macro AutoOpen với mã sau. Điều này đảm bảo rằng các chức năng chính tiếp tục khi bạn mở tài liệu dựa trên khuôn mẫu trong tương lai.

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

Lưu ý: chạy các macro có thể vô hiệu hoá một số tính năng như tự sửa văn bản tự động, và có thể ảnh hưởng đến các tính năng phụ thuộc vào phím ENTER để hoạt động đúng. Bạn phải chạy macro 4 để khôi phục chức năng mặc định của phím ENTER hoặc khởi động Microsoft Word.

Macro thứ tư: Xóa lệnh gán các phím ENTER

Macro này khôi phục chức năng mặc định của phím ENTER. Khi bạn sử dụng macro này một khuôn mẫu tuỳ chỉnh, tên tự.

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

Chú ý: nhà CustomizationContext đặt vị trí bàn phím tùy chỉnh ở đâu được lưu trong trường hợp này, mẫu đính kèm vào tài liệu hiện hoạt.