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; Originalansicht: Word Schriftarten auf dem Computer als Liste anzeigen lassen mit Beispieltext - So geht’s mit Makro! Wenn man genauer sehen will welches Schriften auf ...


+ Antworten + Neues Thema erstellen
Ergebnis 1 bis 1 von 1
  1. #1

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

    Originalansicht: 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.

    Meinung des Autors: Wie man seine Word Fonts mit Beispieltext in einer Liste darstellen kann zeigt dieser kurze Ratgeber.

  2. Schau dir mal diesen Ratgeber an. Dort wird jeder fündig!

    Registrieren bzw. einloggen, um diese und auch andere Anzeigen zu deaktivieren

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

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


  1. Excel: Zwei Werte aus zwei Zellen in einer Zelle anzeigen lassen mit VERKETTEN - So geht es!: Damit man eine Spalte mit mehr Übersicht bei Ergebnissen hat wäre es doch manchmal ganz sinnvoll wenn man den Inhalt von zwei Excel Zellen in einer...



  2. Letztes Tabellenblatt als relativen Bezug als Formel für bedingte Formatierung angeben (Mit Makro): Hallo liebe Community, ich möchte gerne die bedingte Formatierung aus dem letzten Tabellenblatt mit einem Makro in ein neues Tabellenblatt...



  3. Windows 10: Taskleistenvorschau als Liste statt als Bild anzeigen - so gehts: Arbeitet man mit vielen geöffneten Anwendungen des selben Typs gleichzeitig, werden bei einem Mouseover in der Taskleiste diese unter Windows 10...



  4. Startmenü von Windows 10 als Vollbild auf dem gesamten Desktop anzeigen - so geht es: In den Grundeinstellungen von Windows 10 ist das Menü Start relativ kompakt gehalten, weshalb auch nur recht wenige Kacheln angezeigt werden....



  5. Microsoft Word 2013 statt „Mit Bing suchen“ lieber „Mit Google suchen“ lassen? So geht’s!: Auch wenn es Standard ist nutzen viele nicht Bing als Suchmaschine, Microsoft Word 2013 bietet ja quasi eine interne Suchfunktion an die aber eben...