• Word Schriftarten auf dem Computer als Liste anzeigen lassen mit Beispieltext - So geht’s mit Makro!

    Wenn man genauer sehen will welches Schriften auf dem PC für Word genutzt werden können ist die kleine Vorschau im Reiter Start bei den Schriften vielleicht nicht für jeden so komfortabel wie er das gern hätte. Wie man seine Word Fonts mit Beispieltext in einer Liste darstellen kann zeigt dieser kurze Ratgeber.



    Der Tipp ist zugegebenermaßen nicht wirklich neu, funktioniert aber eben immer noch. Öffnet ein leeres Dokument und drückt zuerst ALT+F11 um den VBA Editor für Makros öffnen zu können. Oben links im Fenster sollte der Dokumentname zu sehen sein und oben im Menü wählt Ihr über Extras dann die Makros aus. Vergebt einen Namen, erstellt das leere Makro und kopiert folgenden Code für das nötige Makro ein:


    Code:
    Sub Fonts()
     Selection.InsertAfter "Ausdruck aller installierten Fonts" + String$(2, 13)
     Selection.Paragraphs.Alignment = wdAlignParagraphCenter
     With Selection.Font
     .Size = 18
     .Bold = True
     .Italic = True
     End With
     Selection.Collapse direction:=wdCollapseEnd
     Set Tabelle = ActiveDocument.Tables.Add(Selection.Range, 1, 2)
     Tabelle.Cell(1, 1).SetWidth ColumnWidth:=InchesToPoints(2), RulerStyle:=wdAdjustNone
     Selection.InsertAfter "Schriftart"
     Tabelle.Cell(1, 2).SetWidth ColumnWidth:=InchesToPoints(4), RulerStyle:=wdAdjustNone
     Tabelle.Cell(1, 2).Range.InsertAfter "Beispiel in Schriftgröße 12"
     Beispiel = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz € ÄäÖöÜüߧ0123456789" _
     + Chr$(34) + Chr$(132) + Chr$(147) + "@#$%&?!*"
     Anzahl = FontNames.Count - 1
     ReDim Schrift(Anzahl)
     For z = 0 To Anzahl
     Schrift(z) = FontNames(z + 1)
     Next
     For x = 0 To Anzahl
     Selection.Tables(1).Rows.Add
     Tabelle.Cell(x + 2, 1).Range.InsertAfter Schrift(x)
     Tabelle.Cell(x + 2, 2).Range.InsertAfter Beispiel
     With Tabelle.Cell(x + 2, 2).Range.Font
     .Name = Schrift(x)
     .Size = 12
     End With
     Next x
     End Sub


    Speichert das Dokument so ab und wenn die Frage kommt ob man das Dokument ohne Makros speichern soll muss die Dateiendung umgestellt werden. Wählt dann statt .doc oder .docx die Dateierweiterung .docm aus.



    Öffnet dann wieder ein leeres Dokument und dort den VBA Editor erneut mit ALT+F11 und geht dann in den Extras über Makros in die Liste der Makros, klickt das gerade erstellte Makro an und bestätigt mit dem Button Ausführen. Das leere Dokument wird nun mit allen Schriften und einer Textausgabe gefüllt. Je nach Menge der Fonts und der Leistung des PCs kann dies durchaus länger dauern oder den PC für einen Moment unbenutzbar machen.

    Gefällt dir der Artikel

    Word Schriftarten auf dem Computer als Liste anzeigen lassen mit Beispieltext - So geht’s mit Makro!

    ?

    Meinung des Autors
    So könnt Ihr alle Fonts in einer Liste anzeigen lassen wenn Ihr wollt. Man weiß ja nie wann man es einmal gebrauchen kann...Jetzt kommentieren!
    Hinweise & Tipps:

    1. Lade dir unsere Windows-10-App herunter, um bei einem neuen Artikel eine Push-Benachrichtung auf deinem Smartphone / Tablet / Desktop-PC zu erhalten
    2. Oder folge uns auf Facebook, Google oder Twitter um keinen News- oder Tipp-Artikel mehr zu verpassen
    3. Besuche unseren Artikel Windows 10 Fragen und Antworten für Neueinsteiger
    4. Sofern du eine bestimmte Frage zu Windows 10 hast, stelle sie einfach direkt hier
    « Word Dokumente automatisch nach unerwünschten Wörtern filtern - So verhindert man UnwörterOutlook Kontakte als Liste nach Wahl sortieren und drucken - So einfach geht es »
    Ähnliche News zum Artikel

    Word Schriftarten auf dem Computer als Liste anzeigen lassen mit Beispieltext - So geht’s mit Makro!

    Word Dokument nur teilweise sperren - So gibt man nur bestimmte Bereiche zur Bearbeitung frei
    Ein Word Dokument gegen Bearbeitung sperren ist nicht so schwer aber was ist, wenn man nur Teile eines Dokuments zur Bearbeitung frei geben... mehr
    Outlook Erinnerung genau anlegen - So legt man genaue Minuten- oder andere Zeitangaben fest
    In Outlook kann man sich praktische Erinnerungen anlegen lassen, aber auf den ersten Blick eben nur mit fest vorgegebenen Werten. Was aber,... mehr
    Word Dokument in klassischer Ansicht speichern oder öffnen - So holt man die alten Fenster zurück
    In den aktuelleren Word Versionen klickt man sich durch Screens und Menüs um zum Speicherort seiner Wahl zu gelangen oder um die Dokumente... mehr
    Word - Ganze Absätze im Text oder Zeilen in einer Tabelle nach oben oder unten verschieben
    Da hat man nun seinen Text oder seine Tabelle in Word eigentlich komplett fertig und dann sieht man, dass man einen bestimmten Absatz oder... mehr
    Windows 10 Taskleiste erweitern mit 7+ Taskbar Tweaker - So bekommt die Taskleiste mehr Leistung
    Ein Tool das so mancher sicher schon gerne nutzt, aber das viele noch nicht kennen, ist der 7+ Taskbar Tweaker. Mit diesem Freeware Tool... mehr

    Word Schriftarten auf dem Computer als Liste anzeigen lassen mit Beispieltext - So geht’s mit Makro!

    – deine Meinung ?
    Kommentar schreiben

    z.B. "Gast" oder "Mike"