Πώς να εκτυπώσετε μια λίστα γραμματοσειρών στο 2007

Πολύ νωρίς εκδόσεις του Microsoft Word περιείχαν ένα χαρακτηριστικό που δημιουργείται μια εκτυπώσιμη λίστα με όλες τις διαθέσιμες γραμματοσειρές του προγράμματος . Αυτή η λειτουργία δεν έχει στο Word στην προεπιλογή για πολλά χρόνια , αλλά είναι δυνατό να χρησιμοποιήσετε το Microsoft Office Word macro δυνατότητες κωδικοποίησης του 2007 για να προσθέσετε τον εαυτό σας . Πρόκειται για ένα μικρό προγραμματισμό της Visual Basic , αλλά ευτυχώς την ιστοσελίδα της Microsoft παρέχει έτοιμος κώδικα VB για να κάνει ακριβώς αυτό . Οδηγίες
Η

1 Επιλέξτε την καρτέλα "Προγραμματιστής " . Εάν δεν μπορείτε να το βρείτε , κάντε κλικ στο κουμπί του Office και, στη συνέχεια " Επιλογές του Word , " τότε " Popular " και επιλέξτε " Εμφάνιση καρτέλας Προγραμματιστής στην κορδέλα . " 2

Κάντε κλικ στο " Μακροεντολές ". Πληκτρολογήστε ένα όνομα για τη μακροεντολή σας - κάτι σαν " Λίστα γραμματοσειρών " θα ήταν σκόπιμο , αλλά μπορείτε να καλέσετε το ό, τι θέλετε . Επιλέξτε " Normal.dotm " από το " Μακροεντολές Στη " λίστα για να θέσει στη διάθεση μακρο σας δεν έχει σημασία τι το έγγραφο που επεξεργάζεστε . Τέλος , κάντε κλικ στο κουμπί "Δημιουργία " για να ανοίξετε το Visual Basic Editor.
Εικόνων 3

Αντιγράψτε το σύνολο του κώδικα που ακολουθεί, αρχής γενομένης με τη γραμμή " Sub ListFonts ( ) " και τελειώνει με " End Sub »και να το επικολλήσετε σε Visual Basic Editor σας :

Sub ListFonts ( )

Dim varFont Όπως Παραλλαγή

» ταχύτητες μακρο επεξεργασία και καταστέλλει την οθόνη

Application.ScreenUpdating = False

« Δημιουργία νέου εγγράφου

Documents.Add Πρότυπο : . = " κανονικό "

» . Loop μέσα από κάθε διαθέσιμη γραμματοσειρά

για Κάθε varFont Σε FontNames

Με επιλογής

« μορφή για το όνομα της γραμματοσειράς .

Font.Name = " Times New Roman "

. . Font.Bold = True

. Font.Underline = True

όνομα Εισαγωγή γραμματοσειράς .

. TypeText varFont

« Εισάγεται νέα παράγραφος μετά την . . γραμματοσειράς Όνομα

InsertParagraphAfter

« Μετακίνηση με τη νέα παράγραφο

MoveDown μονάδα: . . = wdParagraph , Count : = 1 , Επέκταση : = wdMove

' Format για τη γραμματοσειρά παράδειγμα .

. Font.Bold = False

. Font.Underline = False

. Font.Name = varFont

' Εισάγετε το κείμενο παράδειγμα ( Αλφαβητικός χαρακτήρες . )

. TypeText " abcdefghijklmnopqrstuvwxyz "

« Εισάγεται νέα παράγραφος .

. InsertParagraphAfter

' Μετακίνηση σε η νέα παράγραφος

MoveDown μονάδα: . . = wdParagraph , Count : = 1 , Επέκταση : ( . αριθμητικών χαρακτήρων, ) . = wdMove

« Εισαγωγή κείμενο παράδειγμα

TypeText " 0123456789 ; $ % & ( ) [ ] * _ - = + /<> "