Bagaimana kode tombol ENTER untuk bergerak di antara kolom formulir dalam bentuk dilindungi di Word

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 211219 - Melihat produk di mana artikel ini berlaku.
Untuk versi Microsoft Word 97 artikel ini, lihat 187985.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini berisi empat Microsoft Visual Basic untuk Macro aplikasi yang dapat Anda gunakan untuk meniru Microsoft Word 6.0 untuk Fungsi tombol ENTER untuk pindah antara kolom formulir di Windows dokumen-dokumen yang dilindungi.

INFORMASI LEBIH LANJUT

Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat, termasuk, namun tidak terbatas pada, jaminan tersirat mengenai keadaan yang dapat diperjualbelikan dan/atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan bahasa pemrograman yang ditunjukkan dan alat-alat yang digunakan untuk membuat dan memperbaiki prosedur. Profesional dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah contoh tersebut untuk menyediakan fungsionalitas tambahan atau membuat prosedur untuk memenuhi kebutuhan spesifik Anda.
Jika Anda memiliki terbatas pengalaman pemrograman, Anda mungkin ingin menghubungi Microsoft Certified Partner atau Microsoft Advisory Services. Untuk informasi lebih lanjut, kunjungi situs Web Microsoft ini:

Microsoft Certified Partner- https://Partner.Microsoft.com/global/30000104

Microsoft Advisory Services- http://support.Microsoft.com/GP/advisoryservice

Untuk informasi lebih lanjut tentang opsi dukungan yang tersedia dan tentang cara menghubungi Microsoft, kunjungi Website Microsoft berikut:http://support.Microsoft.com/default.aspx?scid=Fh;EN-US;CNTACTMS
Untuk informasi tambahan tentang menjalankan kode contoh, klik nomor artikel di bawah ini untuk melihat artikel di Basis Pengetahuan Microsoft:
212536 OFF2000: Bagaimana untuk menjalankan kode contoh dari artikel Basis Pengetahuan

Masukkan kunci fungsi di Word 6.0

Di Word 6.0 untuk Windows, jika Anda menekan tombol ENTER dalam sebuah dokumen yang dilindungi untuk bentuk, titik penyisipan bergerak ke bidang bentuk berikutnya. Sebaliknya, dalam versi Word, tombol ENTER tidak bergerak ke depan membentuk bidang tetapi sebaliknya menyisipkan tanda paragraf, sama seperti itu tidak dokumen tidak dilindungi. Hal ini memungkinkan Anda untuk memasukkan beberapa baris teks ke bidang bentuk teks.

Makro

Berikut adalah empat Visual Basic untuk aplikasi makro yang Anda dapat digunakan bersama-sama untuk meniru Word 6.0 untuk Windows fungsionalitas ENTER Masukkan bidang dokumen dilindungi bentuk baru berdasarkan template. Berikut ini adalah deskripsi singkat tentang fungsi makro masing-masing:
  • Makro pertama bergerak titik penyisipan ke form selanjutnya lapangan.
  • Makro kedua menetapkan makro pertama ENTER kunci.
  • Makro ketiga menjamin bahwa fungsi tombol berlanjut ketika Anda membuka dokumen berdasarkan bentuk template di masa depan.
  • Makro keempat menghilangkan makro ditetapkan dari ENTER tombol, memulihkan fungsionalitas standar tombol ENTER.
PENTING: Untuk kode ini bekerja seperti yang ditulis, template tidak boleh dilindungi. Jika template dilindungi, Anda menerima galat berikut pesan:
Konteks tidak dapat diubah.
Pada perlindungan template, ikuti langkah berikut:
  1. Membuka template yang berisi makro yang dijelaskan dalam Artikel ini.
  2. Pada Alat menu, klik Perlindungan dokumen.
  3. Pada Berkas menu, klik Simpan.
  4. Pada Berkas menu, klik Tutup.

Makro pertama: Memindahkan titik penyisipan ke kolom formulir berikutnya

Makro ini bergerak titik penyisipan ke kolom formulir berikutnya. Jika bentuk lapangan saat ini adalah yang terakhir dalam dokumen, bergerak penyisipan Arahkan ke bidang bentuk pertama.

Makro ini menggunakan penanda Koleksi untuk mengambil nama bidang bentuk saat ini. Nama masing-masing bentuk lapangan juga merupakan nama bookmark dimasukkan untuk bentuk lapangan. Jika Anda memiliki penanda lainnya dalam dokumen Anda, Anda mungkin harus menambahkan lebih banyak kode di sini untuk menangani potensi kesalahan. Makro juga mengasumsikan bahwa semua bentuk bidang dalam dokumen memungkinkan input pengguna. Jika hal ini tidak terjadi di dokumen Anda, Anda perlu untuk menambahkan kode tambahan di makro Anda.

Makro memeriksa untuk melihat apakah bagian yang sekarang adalah dilindungi atau tidak dilindungi dan kemudian baik bergerak ke berikutnya bentuk lapangan (di bagian dilindungi) atau menyisipkan tanda paragraf (di bagian tidak dilindungi). Fungsi ini diperlukan untuk dokumen yang berisi bagian kedua yang dilindungi untuk bentuk 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 makro EnterkeyMacro untuk memasukkan kunci

Ini makro makro EnterKeyMacro melekat tombol ENTER, dengan demikian pemrograman ulang fungsi kunci ketika digunakan dalam dilindungi kolom formulir dokumen. Ketika Anda menggunakan makro ini dalam template kustom, nama AutoNew. Hal ini akan mengubah fungsi tombol ENTER dalam semua bentuk baru dokumen-dokumen yang berdasarkan 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
				

Makro ketiga: Menetapkan makro AutoOpen untuk memasukkan kunci

Tambahkan makro AutoOpen dengan kode berikut. Hal ini menjamin bahwa fungsi tombol berlanjut ketika Anda membuka dokumen berdasarkan bentuk template di masa depan.
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 ini dapat menonaktifkan beberapa fitur, seperti AutoCorrect dan AutoTeks, dan dapat mempengaruhi fitur lain yang tergantung pada Masukkan kunci untuk operasi yang tepat. Anda harus menjalankan makro keempat untuk memulihkan standar fungsi tombol ENTER, atau me-restart Microsoft Word.

Makro keempat: Mengeluarkan perintah yang ditugaskan untuk memasukkan kunci

Makro ini mengembalikan fungsi default tombol ENTER. Ketika Anda menggunakan makro ini dalam 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: CustomizationContext properti menetapkan lokasi di mana kustomisasi keyboard adalah untuk diselamatkan, dalam hal ini template melekat pada dokumen yang sedang aktif.

REFERENSI

Untuk informasi tambahan tentang sumber daya yang tersedia untuk menciptakan solusi kustom menggunakan Visual Basic untuk aplikasi dan Microsoft Word 2000, klik nomor artikel di bawah ini untuk melihat artikel di Basis Pengetahuan Microsoft:
212623 WD2000: Makro pemrograman sumber daya
226118 OFF2000: Pemrograman sumber daya untuk Visual Basic untuk aplikasi
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Properti

ID Artikel: 211219 - Kajian Terakhir: 19 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Word 2002
  • Microsoft Word 2000
Kata kunci: 
kbautomation kbmacro kbprogramming kbhowto kbinfo kbinterop kbmt KB211219 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:211219

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com