Αναγν. άρθρου: 198561 - Τελευταία αναθεώρηση: Κυριακή, 18 Σεπτεμβρίου 2011 - Αναθεώρηση: 4.0

WD2000: Τρόπος δημιουργίας ενός σύνθετου πλαισίου που περιέχει περισσότερα από 25 στοιχεία

Συμβουλή συστήματοςΑυτό το άρθρο ισχύει για διαφορετικό λειτουργικό σύστημα από αυτό που χρησιμοποιείτε. Το περιεχόμενο του άρθρου που ενδέχεται να μην σας αφορά έχει απενεργοποιηθεί.
Για μια έκδοση του Microsoft Word 2002 αυτού του άρθρου, ανατρέξτε στην ενότητα306258  (http://support.microsoft.com/kb/306258/EN-US/ ) .
Για μια έκδοση του Microsoft Word 97, αυτού του άρθρου, ανατρέξτε στην ενότητα194026  (http://support.microsoft.com/kb/194026/EN-US/ ) .

Σε αυτήν τη σελίδα

Ανάπτυξη όλων | Σύμπτυξη όλων

Περίληψη

Αυτό το άρθρο περιγράφει τον τρόπο δημιουργίας και χρήσης ενός UserForm σύνθετου πλαισίου ως μια εγγραφή μακροεντολών για ένα πεδίο φόρμας κειμένου. Αυτή η μακροεντολή μπορεί να χρησιμοποιηθεί ως λύση για τον περιορισμό του στοιχείου 25 στα πεδία φόρμας αναπτυσσόμενο.

ΣΗΜΕΙΩΣΗ:Για πρόσθετες πληροφορίες σχετικά με το πώς μπορείτε να το κάνετε αυτό, όταν χρησιμοποιείτε μια βάση δεδομένων της Microsoft Access, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
253542  (http://support.microsoft.com/kb/253542/EN-US/ ) WD2000: Τρόπος δημιουργίας ενός σύνθετου πλαισίου που περιέχει περισσότερα από 25 στοιχεία από μια βάση δεδομένων της Access

Περισσότερες πληροφορίες

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για λόγους επεξήγησης, χωρίς να παρέχει καμία εγγύηση, σιωπηρή ή ρητή. Σε αυτά περιλαμβάνονται, ενδεικτικά, οι σιωπηρές εγγυήσεις εμπορευσιμότητας ή/και καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων κώδικα διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα, για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες, για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.
Για περισσότερες πληροφορίες σχετικά με τη χρήση του δείγματος κώδικα σε αυτό το άρθρο, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο στη Γνωσιακή Βάση της Microsoft (Knowledge Base):
212536  (http://support.microsoft.com/kb/212536/EN-US/ ) OFF2000: Τρόπος για την εκτέλεση του δείγματος κώδικα από άρθρα της Γνωσιακής Βάσης
Στο πρότυπο του Word, ακολουθήστε τα εξής βήματα.

ΣΗΜΕΙΩΣΗ: Για να κλείσετε ένα παράθυρο (για παράδειγμα, ένα παράθυρο κώδικα ή του παραθύρου Properties), κάντε κλικ στοXστην επάνω δεξιά γωνία του παραθύρου.

Δημιουργήστε το UserForm σύνθετο πλαίσιο

  1. Στο διακομιστήΕργαλείαμενού, σημείοMacroκαι, στη συνέχεια, κάντε κλικ στο κουμπίΕπεξεργασία της Visual Basic.
  2. ΣτοΠαράθυρο "έργο", επιλέξτε TemplateProject σας.

    ΣΗΜΕΙΩΣΗ:Αν υπάρχει ήδη ο φάκελοςΠαράθυρο "έργο"δεν εμφανίζεται, κάντε κλικ στο κουμπίΕξερεύνηση έργουΣτο διακομιστήViewΜενού (Menu).
  3. Στο διακομιστήINSERTμενού, κάντε κλικ στο κουμπίUserForm. Εμφανίζεται μια νέα UserForm και την εργαλειοθήκη στοιχείων ελέγχου. Κάντε δεξιό κλικ στο UserForm και, στη συνέχεια, κάντε κλικ στο κουμπίΠροβολή κώδικα. Προσθέστε τον ακόλουθο κώδικα
    Private Sub UserForm_Initialize()
    
      ComboBox1.ColumnCount = 1
    
      'Load data into ComboBox
    
      ComboBox1.List() = Array("Zero", "One", "Two", "Three")
    
    End Sub
    και, στη συνέχεια, κλείστε το παράθυρο "κώδικας".
  4. Κάντε δεξιό κλικ στο UserForm και, στη συνέχεια, κάντε κλικ στο κουμπίΙδιότητες (Properties)από το μενού συντόμευσης. Στο διακομιστήΑλφαβητικήκαρτέλα, μετονομάστε (όνομα)frmcombo, και στη συνέχεια μετονομάστε λεζάντα γιαMicrosoft Word. Κλείστε το παράθυρο διαλόγουΙδιότητες UserFormπαράθυρο.
  5. Στο διακομιστή"Φόρμες του Office" (Office Forms)καρτέλα της εργαλειοθήκης, επιλέξτεΣύνθετο πλαίσιοκαι τοποθετήστε το στον UserForm σας. Κάντε δεξιό κλικ στοΣύνθετο πλαίσιοέλεγχος και, στη συνέχεια, κάντε κλικ στο κουμπίΠροβολή κώδικααπό το μενού συντόμευσης. Αλλάξτε τον κωδικό σύνθετο πλαίσιο με το ακόλουθο:
    Private Sub ComboBox1_Change()
    
       ActiveDocument.FormFields("Text1").Result = ComboBox1.Value
    
    End Sub
    						
    και, στη συνέχεια, κλείστε το παράθυρο "κώδικας".

    ΣΗΜΕΙΩΣΗ: Κείμενο1 είναι το όνομα του σελιδοδείκτη του το πεδίο φόρμας κειμένου που εισάγετε στο πρότυπο στο βήμα 2 της διαδικασίας "Δημιουργία το πεδίο φόρμας κειμένου" αυτού του άρθρου.
  6. Στο διακομιστή"Φόρμες του Office" (Office Forms)καρτέλα της εργαλειοθήκης, επιλέξτε τοΣτοιχείο CommandButtonκαι να τοποθετήσετε σε σας UserForm ως έναClose (Κλείσιμο)το κουμπί. Κάντε δεξιό κλικ στοΣτοιχείο CommandButtonκαι, στη συνέχεια, κάντε κλικ στο κουμπίΠροβολή κώδικααπό το μενού συντόμευσης. Αλλάξτε τον κωδικό στοιχείο CommandButton τα εξής:
    Private Sub Cmdclose_Click()
    
      Unload Me
    
    End Sub
    						
    και, στη συνέχεια, κλείστε το παράθυρο "κώδικας". Κάντε δεξιό κλικ στοΣτοιχείο CommandButtonκαι κάντε κλικ στο κουμπίΙδιότητες (Properties)από το μενού συντόμευσης. Στο διακομιστήΑλφαβητικήκαρτέλα, μετονομάστε (όνομα)Cmdclose, και στη συνέχεια μετονομάστε λεζάντα γιαClose (Κλείσιμο). Κλείσιμο του παραθύρου Ιδιότητες: στοιχείο CommandButton.
Τώρα έχει ολοκληρωθεί το UserForm σύνθετο πλαίσιο. Συνεχίστε τη διαδικασία "Δημιουργία η μακροεντολή για την καταχώρηση" για να δημιουργήσετε την εγγραφή μακροεντολών.

Δημιουργήστε την εγγραφή μακροεντολών

  1. Στο παράθυρο του έργου, επιλέξτε το TemplateProject.
  2. Στο διακομιστήINSERTμενού, κάντε κλικ στο κουμπίModule. Θα εμφανιστεί μια κενή λειτουργική μονάδα φύλλο κώδικα.
  3. Πληκτρολογήστε τον ακόλουθο κώδικα:
    Sub gocombobox()
    
       frmcombo.Show
    
    End Sub
    					
Η εγγραφή μακροεντολών τώρα έχει ολοκληρωθεί. Στο διακομιστήFILEμενού, κάντε κλικ στο κουμπίΚλείσιμο και επιστροφή στο Microsoft Word. Συνεχίστε τη διαδικασία "Δημιουργία το πεδίο φόρμας κειμένου" για να δημιουργήσετε το πεδίο φόρμας στο πρότυπο του Word.

Δημιουργήστε το πεδίο φόρμας κειμένου

  1. Στο πρότυπο, από τοViewμενού, σημείοΓραμμές εργαλείωνκαι, στη συνέχεια, κάντε κλικ στο κουμπίΦόρμες.
  2. Τοποθετήστε το σημείο εισαγωγής όπου θέλετε το αποτέλεσμα της αναπτυσσόμενης λίστας που έχει εισαχθεί. Στο διακομιστήΦόρμεςγραμμή εργαλείων, κάντε κλικ στο κουμπίΠεδίο φόρμας κειμένου(το πρώτο κουμπί στα αριστερά). Το πεδίο φόρμας κειμένου θα εισαχθούν στο πρότυπο ως γκρι σκίαση.

    ΣΗΜΕΙΩΣΗ: Αν δείτε το{FORMTEXT}πεδίο, πατήστε ALT + F9 για να απενεργοποιήσετε τους κωδικούς πεδίων.
  3. Κάντε δεξιό κλικ στοΠεδίο φόρμας κειμένου, και στη συνέχεια κάντε κλικ στο κουμπίΙδιότητες (Properties)από το μενού συντόμευσης.
  4. ΣτοΕπιλογές πεδίου φόρμας: κείμενοπαράθυρο διαλόγου, κάτω από τοΕκτέλεση μακροεντολής σεενότητα, κάντε κλικ στο κάτω βέλος τουΚαταχώρηση (Entry)πλαίσιο, επιλέξτε τοgocomboboxμακροεντολή και στη συνέχεια κάντε κλικOk.

    ΣΗΜΕΙΩΣΗ: Βεβαιωθείτε ότι ηΌνομα σελιδοδείκτηαπό τοΠεδίο φόρμας κειμένουείναι το ίδιο με το που καθορίσατε στο βήμα 4 της διαδικασίας "Δημιουργία του UserForm σύνθετο πλαίσιο" παραπάνω σε αυτό το άρθρο.
  5. Στο διακομιστήΦόρμεςγραμμή εργαλείων, κάντε κλικ στο κουμπίΠροστασία φόρμας.
  6. Αποθηκεύστε και κλείστε το πρότυπο.
Για να χρησιμοποιήσετε το πρότυπο, κάντε κλικ στο κουμπίΝέαΣτο διακομιστήFILEΜενού (Menu). Επιλέξτε το πρότυπο και στη συνέχεια κάντε κλικ στο κουμπίOk. Εμφανίζεται ένα νέο έγγραφο που βασίζεται στο πρότυπο. Εμφανίζεται το UserForm που περιέχει το σύνθετο πλαίσιο με τα στοιχεία σας όταν χρησιμοποιείτε το πλήκτρο TAB για να μετακινηθείτε σε τοΠεδίο φόρμας κειμένου.

Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Word 2000 Standard Edition
Λέξεις-κλειδιά: 
kbhowto kbmt KB198561 KbMtel
Μηχανικά μεταφρασμένοΜηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:198561  (http://support.microsoft.com/kb/198561/en-us/ )