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

Diskutiere Word Schriftarten auf dem Computer als Liste anzeigen lassen mit Beispieltext - So geht’s mit Makro! im Windows 10 FAQ Forum im Bereich Windows 10 Foren; 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...
Zeiram

Zeiram

Administrator
Threadstarter
Mitglied seit
30.07.2015
Beiträge
1.345
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.

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...
 
Zuletzt bearbeitet:
#
Schau dir mal diesen Ratgeber an. Dort wird jeder fündig!
Registrieren bzw. einloggen, um diese und auch andere Anzeigen zu deaktivieren
Thema:

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

Sucheingaben

win 10 schriftarten anzeigen

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

  • Problem mit Schriftart NUR in Word (Mac)

    Problem mit Schriftart NUR in Word (Mac): Hallo zusammen! Ich habe ein MacBook Air (Catalina 10.15.1) und ein Problem mit der Schriftart Andron Mega Corpus in Word (Word für Mac, 16.31...
  • Schriftart zur Verarbeitung von booleschen Gleichungen in MS-Word Dateien

    Schriftart zur Verarbeitung von booleschen Gleichungen in MS-Word Dateien: Hallo, ich verwende MS-Office 2010 Home and Business unter Windows 10, auf ein 64-bit System. Ich bin auf der Suche nach einer Schriftart die...
  • Installierte Schriftart wird in Word angezeigt, aber nicht korrekt dargestellt

    Installierte Schriftart wird in Word angezeigt, aber nicht korrekt dargestellt: Hallo zusammen, ich benötige dringend eure Hilfe und bin für jede Unterstützung dankbar. Ich habe schon mehrere Stunden damit verbracht selbst...
  • Schriftart wird in Word nicht korrekt dargestellt

    Schriftart wird in Word nicht korrekt dargestellt: Hallo zusammen, leider habe ich ein Problem. In Word wird eine neu installierte Schriftart nicht korrekt dargestellt. In Excel ist diese aber...
  • Office 365, Win 10, Word: Voreinstellung der Schriftart

    Office 365, Win 10, Word: Voreinstellung der Schriftart: Hallo, unter Word/Optionen/ Erweitert habe ich als Schrftart Arial eingestellt. Öffne ich ein leeres Dokument, hat Word Calibri Light gewählt...
  • Ähnliche Themen

    Oben