Cara membuat kotak combo yang berisi lebih dari 25 item di Word 2002

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 306258 - Melihat produk di mana artikel ini berlaku.
Untuk versi Microsoft Word 2000 artikel ini, Lihat 198561.
Untuk Microsoft Word 97 Versi artikel ini, lihat 194026.
Untuk Microsoft Word 98 Versi artikel ini, lihat 194027.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini menjelaskan cara membuat dan menggunakan UserForm Combo box sebagai catatan makro untuk lapangan bentuk teks. Makro ini dapat digunakan sebagai solusi untuk pembatasan 25-item dalam kolom formulir drop-down.


CATATAN: Untuk informasi tambahan tentang bagaimana melakukan ini ketika Anda menggunakan Microsoft Access database, klik berikut artikel nomor untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
253542WD: Cara membuat kotak Combo dengan lebih dari 25 item dari Microsoft Access Database

INFORMASI LEBIH LANJUT

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.
Untuk informasi lebih lanjut tentang bagaimana menggunakan sampel kode dalam artikel ini, klik nomor artikel di bawah ini untuk melihat artikel pada Basis Pengetahuan Microsoft:
290140OFFXP: Bagaimana untuk menjalankan kode contoh dari artikel Basis Pengetahuan
Dalam template kata Anda, ikuti langkah berikut ini.

CATATAN: Untuk menutup jendela (misalnya, kode jendela atau properti jendela), klik X di sudut kanan atas jendela.

Membuat UserForm Combo Box

  1. Pada Alat menu, titik Makro kemudian klik Penyunting Visual Basic.
  2. Dalam Proyek jendela, pilih TemplateProject Anda.

    CATATAN: Jika Proyek jendela tidak muncul, klik Proyek Explorer pada Lihat menu.
  3. Pada Masukkan menu, klik UserForm. UserForm baru dan toolbox kontrol muncul. Klik kanan UserForm, dan kemudian klik Lihat kode. Tambahkan kode berikut:
    Private Sub UserForm_Initialize()
    
      ComboBox1.ColumnCount = 1
    
      'Load data into ComboBox
    
      ComboBox1.List() = Array("Zero", "One", "Two", "Three")
    
    End Sub

    Tutup jendela kode.
  4. Klik kanan UserForm, dan kemudian klik Properti pada menu jalan pintas. Pada Abjad tab, mengubah nama (Nama) untuk UserForm, dan kemudian mengubah nama Keterangan untuk Microsoft Word. Tutup jendela UserForm properti.
  5. Pada Kontrol tab toolbox, pilih ComboBox dan kemudian tempat itu di UserForm Anda. Klik kanan ComboBox kontrol, dan kemudian klik Lihat kode pada menu jalan pintas. Perubahan ComboBox kode berikut
    Private Sub ComboBox1_Change()
    
       ActiveDocument.FormFields("Text1").Result = ComboBox1.Value
    
    End Sub
    						
    dan kemudian tutup jendela kode.

    CATATAN: Text1 adalah nama bookmark bidang bentuk teks yang Anda akan Masukkan ke dalam template Anda dalam langkah 2 pada "Membuat the bentuk bidang teks" prosedur nanti dalam artikel ini.
  6. Pada Kontrol tab toolbox, pilih CommandButton, dan kemudian tempat itu pada Anda UserForm sebagai Tutup tombol. Klik kanan CommandButton, lalu klik Lihat kode pada menu jalan pintas. Mengubah kode CommandButton untuk Berikut
    Private Sub Cmdclose_Click()
    
      Unload Me
    
    End Sub						
    dan kemudian tutup jendela kode. Klik kanan CommandButton, lalu klik Properti pada menu jalan pintas. Pada Abjad tab, mengubah nama (Nama) untuk Cmdclose, dan kemudian mengubah nama Keterangan untuk Tutup. Tutup jendela CommandButton properti.
UserForm Combo box sekarang lengkap. Lanjutkan untuk "membuat Catatan makro"bagian dari artikel ini.

Membuat catatan makro

  1. Di jendela proyek, pilih Anda TemplateProject.
  2. Pada Masukkan menu, klik Modul. Lembar kode kosong modul muncul.
  3. Ketik kode berikut:
    Sub gocombobox()
    
       UserForm.Show
    
    End Sub
    					
Catatan makro sekarang lengkap. Pada Berkas menu, klik Menutup dan mengembalikan ke Microsoft Word. Melanjutkan ke bagian "Buat the bentuk bidang teks" ini artikel untuk menciptakan lapangan bentuk dalam template kata Anda.

Menciptakan lapangan bentuk teks

  1. Dalam template Anda, pada Lihat menu, titik Toolbar kemudian klik Bentuk.
  2. Posisi titik penyisipan di mana Anda ingin hasil daftar drop-down yang dimasukkan. Pada Bentuk toolbar, klik Bidang bentuk teks (tombol pertama di sebelah kiri). Bidang bentuk teks dimasukkan ke template Anda sebagai shading abu-abu.

    CATATAN: Jika Anda melihat {FORMTEXT} lapangan, tekan ALT + F9 mematikan kode lapangan.
  3. Klik kanan Bidang bentuk teks, lalu klik Properti pada menu jalan pintas.
  4. Dalam Teks bentuk lapangan pilihan dialog kotak, di bawah Menjalankan makro bagian, Klik tanda panah di Catatan kotak, pilih gocombobox makro, dan kemudian klik Oke.

    CATATAN: Pastikan Nama bookmark dari Anda Bidang bentuk teks sama seperti apa yang Anda tentukan pada langkah 4 dari "Buat UserForm Combo Box"bagian sebelumnya dalam artikel ini.
  5. Pada Bentuk toolbar, klik Melindungi bentuk.
  6. Simpan dan tutup template Anda.
Menggunakan template Anda, klik Baru pada Berkas menu, dan kemudian klik Jenderal template dalam Dokumen baru tugas jendela. Dalam Pola acu kotak dialog, pilih template Anda dan kemudian klik Oke. Dokumen baru yang didasarkan pada template Anda muncul. UserForm mengandung ComboBox dengan item Anda akan ditampilkan ketika Anda menggunakan tombol TAB untuk pindah ke Bidang bentuk teks.
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: 306258 - Kajian Terakhir: 24 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Word 2002
Kata kunci: 
kbcontrol kbprogramming kbvba kbhowto kbmt KB306258 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:306258

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