Cara kode tombol ENTER untuk berpindah antara bentuk kolom dalam bentuk yang dilindungi di Word

Makro pertama: Memindahkan titik penyisipan ke kolom selanjutnya formulir

Makro ini akan memindahkan titik penyisipan ke bidang formulir berikutnya. Jika bidang formulir saat ini adalah yang terakhir dalam dokumen, memindahkan titik penyisipan ke bidang formulir pertama.

Makro ini menggunakan koleksi bookmark untuk mendapatkan lagi nama kolom formulir saat ini. Nama setiap bidang formulir juga adalah nama bookmark yang dimasukkan ke kolom formulir. Jika Anda memiliki bookmark lainnya di dokumen Anda, Anda mungkin harus menambahkan lebih kode berikut untuk menangani kesalahan potensial. Makro juga menganggap bahwa semua kolom formulir di dokumen memungkinkan input pengguna. Jika hal ini tidak terjadi di dokumen Anda, Anda harus menambahkan kode tambahan di makro Anda.

Makro memeriksa untuk melihat apakah bagian saat ini dilindungi atau tidak dilindungi dan kemudian bergerak ke bidang formulir berikutnya (di bagian dilindungi) atau menyisipkan tanda paragraf (pada bagian yang tidak dilindungi). Fungsionalitas ini diperlukan untuk dokumen yang berisi bagian kedua yang dilindungi untuk formulir masukan dan tidak dilindungi bagian.

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

Kedua makro: Menetapkan EnterkeyMacro makro untuk memasukkan kunci

Makro ini menempel makro EnterKeyMacro tombol ENTER, sehingga pemrograman fungsi tombol saat digunakan di bidang formulir dokumen yang dilindungi. Ketika Anda menggunakan makro ini template kustom, nama AutoNew. Perubahan ini fungsi tombol ENTER di semua dokumen formulir baru yang didasarkan pada template.

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

Ketiga makro: Menetapkan AutoOpen makro untuk memasukkan kunci

Tambahkan makro AutoOpen dengan kode berikut ini. Hal ini memastikan bahwa fungsi tombol terus saat Anda membuka dokumen yang didasarkan pada template formulir di masa mendatang.

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

Catatan: menjalankan makro berikut ini akan menonaktifkan beberapa fitur, seperti AutoCorrect dan AutoText, dan dapat mempengaruhi fitur yang tergantung pada tombol ENTER untuk pengoperasian yang benar. Anda harus menjalankan makro keempat untuk memulihkan fungsionalitas asali tombol ENTER, atau memulai ulang Microsoft Word.

Keempat makro: Menghapus perintah yang ditetapkan untuk memasukkan kunci

Makro ini mengembalikan fungsionalitas asali tombol ENTER. Ketika Anda menggunakan makro ini template kustom, nama AutoClose.

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

Catatan: properti CustomizationContext menetapkan lokasi di mana kustomisasi keyboard yang disimpan, dalam hal ini template dilampirkan ke dokumen yang sedang aktif.