WD2000: nasýl fazla 25 öðeler içeren bir açýlan kutu oluþturma

Bu makalede, bir UserForm birleþik giriþ kutusunun metin form alaný bir giriþ makro oluþturmak açýklamaktadýr. Bu makro açýlýr form alanlarý 25 öðesi kýsýtlamaya bir geçici çözüm olarak kullanýlabilir.

Not: Microsoft Access veritabaný kullanýyorsanýz, bunun nasýl yapýlacaðý hakkýnda ek bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn:

Microsoft, programlama örneklerini yalnýzca gösterim amacýyla saðlar; örtülü veya açýk garanti vermez. Buna satýlabilirlik veya belirli bir amaca uygunluk zýmni garantileri de dahildir, ancak bunlarla sýnýrlý deðildir. Bu makale, gösterilen programlama dilini ve yordamlarý oluþturmak ve hata ayýklamak amacýyla kullanýlan araçlarý kullanmayý bildiðinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamýn iþlevselliðinin açýklanmasýna yardýmcý olabilir, ancak gereksinimlerinizi karþýlamaya yönelik olarak ek iþlevsellik saðlamak veya yordamlar geliþtirmek amacýyla bu örnekleri deðiþtirmezler.
Bu makaledeki kod örneðini kullanma hakkýnda daha fazla bilgi için, Microsoft Bilgi Bankasý'ndaki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn: Word þablonunuzda, aþaðýdaki adýmlarý izleyin.

Not: (örneðin, bir kod penceresine veya Properties penceresinde) bir pencereyi kapatmak için pencerenin sað üst köþesindeki X ' i týklatýn.

UserForm açýlan kutu oluþturma

1. Araçlar menüsünden, makro ' nun üzerine gelin ve sonra Visual Basic Düzenleyicisi ' ni týklatýn.
2. Proje penceresi, sizin TemplateProject seçin.
   
   Not:Proje penceresi görünmüyorsa, Görünüm menüsünde Project Explorer ' ý týklatýn.
3. Ekle menüsünden UserForm ' ý týklatýn. Yeni bir UserForm ve Denetim Araç kutusu görünür. UserForm'ý sað týklatýn ve Kod Görüntüle</a1>'ý týklatýn. Aþaðýdaki kodu ekleyin

   Private Sub UserForm_Initialize()
   
     ComboBox1.ColumnCount = 1
   
     'Load data into ComboBox
   
     ComboBox1.List() = Array("Zero", "One", "Two", "Three")
   
   End Sub

   ve kod penceresini kapatýn.
4. UserForm'ý sað týklatýn ve sonra da kýsayol menüsünden Özellikler ' i týklatýn. Alfabetik sekmesinde (ad) için frmcombo yeniden adlandýrýn ve sonra Microsoft Word resim yazýsý yeniden adlandýrýn. UserForm özellikleri penceresini kapatýn.
5. Araç denetimleri sekmesinde, ComboBox seçin ve bunu sizin UserForm üzerinde yerleþtirin. ComboBox denetimi farenin sað düðmesiyle týklatýn ve sonra kýsayol menüsünden Kodu görüntüle seçeneðini týklatýn. ComboBox kod þu þekilde deðiþtirin:

   Private Sub ComboBox1_Change()
   
      ActiveDocument.FormFields("Text1").Result = ComboBox1.Value
   
   End Sub
   						

   ve kod penceresini kapatýn.
   
   Not: Metin1, bu makalenin "Create metin form alaný" Adým 2 yordamý þablonunuzda içine eklediðiniz metin form alaný yer iþaretinin adýdýr.
6. Araç kutusu denetimlerini sekmesinde, KomutDüðmesi seçin ve sizin UserForm Kapat düðmesi olarak yerleþtirin. KomutDüðmesi sað týklatýn ve sonra da kýsayol menüsünde View Code ' ý týklatýn. KomutDüðmesi kod þu þekilde deðiþtirin:

   Private Sub Cmdclose_Click()
   
     Unload Me
   
   End Sub
   						

   ve kod penceresini kapatýn. KomutDüðmesi ' ý sað týklatýn ve kýsayol menüsünden Özellikler ' i týklatýn. Alfabetik sekmesinde (Name) Cmdclose için yeniden adlandýrýn ve sonra baþlýk Kapat için yeniden adlandýrýn. KomutDüðmesi Özellikleri penceresini kapatýn.

UserForm birleþik giriþ kutusunun artýk büyük/küçük harf tamamlanmýþtýr. Giriþ makro oluþturmak için "Giriþi makro oluþturma" yordamýna devam edin.

Giriþ makro oluþturma

1. Proje penceresinde sizin TemplateProject seçin.
2. Ekle menüsünden modülü ' nü týklatýn. Bir <a0>boþ bir modüle</a0> kod sayfasý görüntülenir.
3. Aþaðýdaki kodu yazýn:

   Sub gocombobox()
   
      frmcombo.Show
   
   End Sub
   					

Giriþ makro artýk büyük/küçük harf tamamlanmýþtýr. Dosya menüsünde Kapat ve Microsoft Word'e Dön'ý týklatýn. Form alaný Word þablonunuzda oluþturmak için "metin form alaný oluþtur" yordamýna devam edin.

Metin Form alaný oluþturma

1. Þablonunuzda, Görünüm menüsünden araç çubuklarý ' nýn gelin ve Formlar ' ý týklatýn.
2. Sonucu eklenen a?a?? aç?lan listesinden, istediðiniz yere ekleme noktasýný yerleþtirin. Formlar araç çubuðunda, Metin Form alaný (soldaki ilk düðmesi) týklatýn. Metin Form alaný þablonunuza, Gri gölgelendirme olarak eklenecektir.
   
   Not: görürseniz, { FORMTEXT } alaný, alan kodlarýný kapatmak için ALT + F9 tuþlarýna basýn.
3. Metin form alaný sað týklatýn ve sonra da kýsayol menüsünden Özellikler ' i týklatýn.
4. Metin form alaný seçenekleri iletiþim kutusunda, Makro Çalýþtýr bölüm <a0>Giriþ</a0> kutusundaki aþaðý oku týklatýn, sonra da gocombobox makroyu seçin ve Tamam ' ý týklatýn.
   
   Not: kendi Metin Form alanýyer iþareti adý, bu makalenin "Create the UserForm açýlan kutunun" Adým 4 yordamda belirttiðiniz ayný olduðundan emin olun.
5. Formlar araç çubu?unda Koru ' ý týklatýn.
6. Kaydedip þablonunuzu kapatýn.

Þablon kullanmak için <a0></a0>, Dosya menüsünden Yeni ' yi týklatýn. Þablon seçin ve Tamam ' ý týklatýn. Þablonunuzu temel alan yeni BIR belge olarak görünür. Metin Form alaný taþýmak için SEKME tuþunu kullandýðýnýzda, maddelerinizi olan ComboBox içeren UserForm görüntülenir.