So drucken Sie eine Liste der im Jahr 2007

July 14

So drucken Sie eine Liste der im Jahr 2007

Sehr frühe Versionen von Microsoft Word enthalten ein Feature, das eine druckbare Liste der verfügbaren Schriftarten das Programm generiert. Diese Funktionalität wurde nicht in Word in Verzug seit vielen Jahren, aber es ist möglich, Microsoft Office Word 2007 Makro Programmierung Optionen verwenden, um es selbst hinzufügen. Es geht um ein kleines Visual Basic-Programmierung, aber glücklicherweise Microsofts Website bietet vordefinierte VB-Code um genau dies zu tun.

Anweisungen

1 Wählen Sie die Registerkarte "Entwicklertools". Wenn Sie es nicht finden können, klicken Sie auf die Office-Schaltfläche, dann "Word-Optionen", dann "Popular", und "Entwicklerregisterkarte in der Multifunktionsleiste anzeigen".

2 Klicken Sie auf "Makros". Geben Sie einen Namen für das Makro--so etwas wie "Schriftarten" angebracht wäre, aber man können es nennen, was Sie wollen. Wählen Sie "normal.dotm" aus der Liste "Makros In" Ihrem Makro zur Verfügung stellen, egal welches Dokument Sie bearbeiten. Abschließend klicken Sie auf "Erstellen", um den Visual Basic-Editor zu bringen.

3 Kopieren Sie die Gesamtheit des folgenden Codes, beginnend mit der Zeile "Sub ListFonts()" und endet mit "End Sub" zu, und fügen Sie ihn in Ihrem Visual Basic-Editor:

Sub ListFonts()

Dim VarFont As Variant

"Beschleunigt die Verarbeitung von Makros und unterdrückt die Anzeige.

Application.ScreenUpdating = False

' Neues Dokument erstellen.

Documents.Add Vorlage: = "normal"

' Schleife durch alle verfügbaren Schriften.

Für jede VarFont In FontNames

With Selection

' Format for name of font.

.Font.Name = "times new roman"

.Font.Bold = True

.Font.Underline = True

' Insert Font name.

.TypeText varFont

' Insert a new paragraph after the Font Name.

.InsertParagraphAfter

' Move to the new paragraph.

.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove

' Format for the font example.

.Font.Bold = False

.Font.Underline = False

.Font.Name = varFont

' Enter example text(Alphabetic characters.)

.TypeText "abcdefghijklmnopqrstuvwxyz"

' Insert a new paragraph.

.InsertParagraphAfter

' Move to the new paragraph.

.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove

' Insert example text(Numeric characters.)

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

' Insert two new paragraphs and move down.

.InsertParagraphAfter

.InsertParagraphAfter

.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove

End With

Nächste varFont

Application.ScreenUpdating = True

EndSub

Stellen Sie sicher, dass dieser Code kopiert macht sich den gesamten Inhalt Ihres Makros--löschen jeder Code, der von Anfang an gab. Klicken Sie auf alle "OK"-Tasten, um die Erstellung Ihres Makros abzuschließen.

4 Mit der rechten Maustaste auf die Symbolleiste für den Schnellzugriff--die Reihe von Icons rechts von der Office-Schaltfläche, die einschließen "Speichern" und "Öffnen". Klicken Sie "Symbolleiste für den Schnellzugriff anpassen."

5 Wählen Sie "Makros" aus dem Pulldown-Menü "Befehle wählen von" und dann das Makro, das Sie gerade gemacht aus der Liste, die angezeigt wird. Klicken Sie auf "Hinzufügen".

6 "Ändern", um ein Bild für die Schaltfläche auswählen klicken Sie auf "OK". Eine neue Schaltfläche erscheint nun in der Symbolleiste für den Schnellzugriff; Sie darauf klicken wird ein neues Worddokument erstellen und füllen Sie es mit einer Stichprobe von jeder verfügbare Schriftart. Sie können dann dieses Dokument drucken Sie wie jede andere.