การเขียนโค้ดการกดแป้น 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 กับแป้น ENTER

แมโครนี้แนบแมโค EnterKeyMacro แป้น ENTER ดังนั้นจึง reprogramming ฟังก์ชันของแป้นเมื่อมีใช้เขตข้อมูลแบบฟอร์มเอกสารที่ถูกป้องกัน เมื่อคุณใช้แมโครนี้ในแม่แบบกำหนดเอง ชื่อเป็น 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 กับแป้น ENTER

เพิ่มแมโครที่มี 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

แมโครนี้คืนค่าฟังก์ชันการทำงานเริ่มต้นของคีย์ ENTER เมื่อคุณใช้แมโครนี้ในแม่แบบกำหนดเอง ชื่อเป็น AutoClose

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

หมายเหตุ: ตำแหน่งที่ตั้งที่จะถูกบันทึกไว้ ในกรณีนี้แม่แบบแนบอยู่กับเอกสารที่ใช้งานแป้นพิมพ์แบบกำหนดเองที่ตั้งค่าคุณสมบัติCustomizationContext