Πώς να εκτυπώσετε ένα άρθρο Εμφάνιση των στυλ στο Microsoft Word 2007

Μπορείτε να δείτε τι στυλ είναι διαθέσιμα σε ένα έγγραφο κάνοντας κλικ στην καρτέλα " Home" του Word . Αλλά η μετάβαση σε αυτήν την καρτέλα μπορείτε να τραβήξει μακριά από την καρτέλα είστε σήμερα εργάζονται σε , το οποίο διακόπτει τη ροή της εργασίας σας . Μπορείτε να αποτρέψετε αυτό το πρόβλημα , έχοντας μια εκτυπωμένη λίστα των ονομάτων στυλ του εγγράφου σας . Είναι δυνατόν να δημιουργήσετε αυτή τη λίστα , πληκτρολογώντας τον , αλλά γλώσσα προγραμματισμού Visual Basic του Word μπορεί να δημιουργήσει πιο γρήγορα . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί του μενού "Αρχείο " του " Open" εντολή , στη συνέχεια, περιηγηθείτε και κάντε διπλό κλικ σε ένα αρχείο του οποίου στυλ που θέλετε στη λίστα . Το Word θα ανοίξει το αρχείο . 2

Κάντε κλικ στο " Visual Basic " εντολή της καρτέλας "Προγραμματιστής " , τότε επικολλήστε το ακόλουθο κομμάτι του προγράμματος στο παράθυρο στο κέντρο της οθόνης . Επαναλαμβάνει αυτό το θραύσμα από κάθε ένα από τα στυλ στο τρέχον έγγραφο . Το Word αποθηκεύει αυτά τα στυλ σε ένα εικονικό αντικείμενο που ονομάζεται " στυλ ", το οποίο αποτελεί μέρος του « ActiveDocument " εικονικό αντικείμενο .

Public Sub showStyles2 ( )

Dim instring , outstring , s , i , pos

s = " "

Για i = 1 Για να ActiveDocument.Styles.Count

Next i

Documents.Add

ActiveDocument.Content = s

End Sub
εικόνων 3

Αντιγράψτε τις ακόλουθες δηλώσεις μετά το " Για i » δήλωση που αναφέρονται στο προηγούμενο βήμα . Αυτές οι νέες δηλώσεις διαβάστε το στυλ του σημερινού στυλ , και καταγράφουν το βασικό στυλ σε μια σειρά , εκτός αν αυτό το στυλ είναι ήδη στη συμβολοσειρά . Κάθε στυλ στο " στυλ " συλλογή έχει το δικό του όνομα . Ωστόσο , η ονομασία αυτή είναι μόνο ένα κωδικό όνομα . Το αληθινό όνομα του στυλ είναι το " BaseStyle " ιδιοκτησίας

instring = ActiveDocument.Styles ( i ) . BaseStyle

outstring = s

pos = InStr ( 1 . , outstring , instring )

Αν ( pos = 0 ) τότε

s = s & instring & " , "

End If
Η 4

Κάντε κλικ σε οποιαδήποτε από τις δηλώσεις στο πρόγραμμα που μόλις επικολληθεί , στη συνέχεια, κάντε κλικ στο κουμπί του μενού " Run " του " Run " εντολή για να εκτελέσετε το πρόγραμμα . Κάντε κλικ στο εικονίδιο του Word νέο έγγραφο που εμφανίστηκε στη γραμμή εργασιών των Windows . Παράθυρο του εγγράφου , θα εμφανιστεί και θα εμφανίσει τα ονόματα στυλ του όλα τα στυλ στο έγγραφο που ανοίξατε στο βήμα 1 .
5

Πατήστε " Control" και "P" ταυτόχρονα για να εκτυπώσετε την παράγραφο ονομάτων των στυλ .
Η
εικόνων