Πώς να προσθέσετε ένα ακίνητο σε ένα έγγραφο του Word σε VBA

Κάθε έγγραφο του Microsoft Word περιέχει περισσότερες πληροφορίες από ό, τι ο χρήστης ρητά τύπους ή πάστες σε αυτό . Οι επιπλέον πληροφορίες εμφανίζεται στις ιδιότητες του εγγράφου , το οποίο είναι ένα σύνολο από πεδία που υποδεικνύουν τη δημιουργία και τροποποίηση ημερομηνίες του εγγράφου , ο τίτλος , τα σχόλια των χρηστών και διοικητικών δεδομένων . Χρήστες του Word μπορούν να προσθέσουν νέες ιδιότητες του εγγράφου με το πρότυπο μενού του Word . Ή, μπορούν να χρησιμοποιούν τη γλώσσα scripting του Word , Visual Basic for Applications ( VBA ) . Χρησιμοποιώντας VBA για να προσθέσετε ένα ακίνητο καθιστά δυνατό να προστεθεί αυτόματα τα δεδομένα που σχετίζονται με το περιεχόμενο του εγγράφου . Για παράδειγμα , κώδικα VBA θα μπορούσε να αποστάξει το περιεχόμενο του εγγράφου σε μια λίστα λέξεων ετικέτα , για να κάνουν την εύρεση του εγγράφου αργότερα ευκολότερη . Οδηγίες
Προσθήκη νέου ακινήτου
Η

1 Ανοίξτε το Word και πατήστε το πλήκτρο "Alt - F11 " για να εισάγετε το Visual Basic ολοκληρωμένο περιβάλλον ανάπτυξης ( IDE ) . 2

Κάντε κλικ η "Εισαγωγή" μενού τίτλο , στη συνέχεια, κάντε κλικ στο κουμπί " ενότητα " για να προσθέσετε μια νέα ενότητα στην οποία να εισάγετε τον κωδικό του προγράμματος για τη δημιουργία ενός νέου ακινήτου .
εικόνων 3

πληκτρολογήστε τον ακόλουθο κώδικα στη νέα παράθυρο υπομονάδας :

AddProperty Public Sub ( )

ActiveDocument.CustomDocumentProperties.Add _

Όνομα : = " newproperty " , LinkToContent : = False , Αξία: = " SomeValue " , _

Τύπος: = msoPropertyTypeString

End Sub

Αυτός ο κωδικός πρόγραμμα καλεί τη μέθοδο "Προσθήκη" της συλλογής των υφιστάμενων ιδιοτήτων του εγγράφου για να προσθέσετε μια νέα ιδιοκτησία , " newproperty , "για τη συλλογή αυτή .
Η 4

Κάντε κλικ οπουδήποτε μέσα στο υποπρόγραμμα AddProperty , στη συνέχεια, πατήστε το πλήκτρο " F5 "για να εκτελέσετε το πρόγραμμα .
5

Πατήστε το πλήκτρο" Alt - F11 "για να επιστρέψετε στο Word. Κάντε κλικ στο κουμπί του Microsoft Office στην επάνω αριστερή γωνία της οθόνης , στη συνέχεια, τοποθετήστε το ποντίκι σας πάνω " Προετοιμασία ".
Η

6 Κάντε κλικ στο κουμπί "Ιδιότητες " και στη συνέχεια κάντε κλικ στην καρτέλα "Custom" για να εμφανίσετε τη λίστα των προσαρμοσμένων ιδιότητες για το έγγραφο . Η "Ιδιότητες" παράθυρο εμφανίζει το " newproperty " αγαθά και παρεπόμενα αξία του , " SomeValue ", το οποίο θα προστεθεί στα βήματα 3 και 4 .
Εικόνων Προτροπή στο χρήστη για ένα όνομα ιδιοκτησίας
7

Πιέστε το πλήκτρο " Alt - F8" για να εμφανίσετε μια λίστα των μακροεντολών ( δηλαδή , τα προγράμματα VBA ) . Κάντε κλικ στο " AddProperty " στοιχείο και στη συνέχεια κάντε κλικ στο κουμπί "Επεξεργασία " . Αυτή η ενέργεια που επιστρέφει στην υπορουτίνα που προσθέτει την προσαρμοσμένη ιδιότητα .
8

Επιλέξτε τις δηλώσεις μεταξύ του " Public Sub " και " End Sub" δηλώσεις , στη συνέχεια, πατήστε το κουμπί " Διαγραφή" για να τα διαγράψετε .
Τετάρτη 9

Πληκτρολογήστε τις ακόλουθες νέες δηλώσεις μεταξύ του " Public Sub " και " End Sub " δηλώσεις :

dim propertyname , PropertyValue ως σειρά

propertyname = InputBox ( " Παρακαλώ εισάγετε το όνομα για μια νέα ιδιοκτησία . " )

PropertyValue = InputBox ( " Παρακαλώ εισάγετε μια τιμή για τη νέα ιδιοκτησία . " )

ActiveDocument.CustomDocumentProperties.Add _

Όνομα : = propertyname , LinkToContent : = False , _

αξία : = PropertyValue , Τύπος: = msoPropertyTypeString

οι δηλώσεις αυτές προτρέπει το χρήστη για μια νέα ιδιοκτησία και την αξία του , στη συνέχεια, δημιουργήστε το νέο ακίνητο από την είσοδο του χρήστη .
Η 10

Press " Alt - F8" για να επιστρέψετε στο έγγραφο του Word , και στη συνέχεια πατήστε "Alt - F8 " για να εμφανίσετε τη λίστα των υπορουτίνες VBA .
Η 11

κάντε διπλό κλικ στο " AddProperty " στοιχείο για να εκτελεστεί αναθεωρημένη υπορουτίνα σας , το οποίο θα σας ζητήσει το όνομα και την αξία του νέου ακινήτου έγγραφο . Πληκτρολογήστε το κείμενο για τα δύο είδη .
Η 12

Επιβεβαιώστε την δημιουργία της νέας ιδιοκτησίας από ψάχνει για αυτό στο παράθυρο ιδιοτήτων του εγγράφου , όπως κάνατε στην παράγραφο 1 , το βήμα 6 .


εικόνων