Update CHIP 11/2003
Liste installierter Schriftarten mit Beispielen erzeugen, Ausgabe 07/2003, Tipp 10, Seite 190: Dieser Tipp beschreibt, wie Sie per Word-Makro automatisch eine Liste aller auf Ihrem System installierten Schriftarten mit Beispieltexten erzeugen. CHIP-Leser Gerd Lang möchte die Schriftarten nach Namen zusätzlich sortieren. Word bietet dazu eine Sortierfunktion für Absätze, die sich direkt im Makro oder nachträglich zum manuellen Sortieren nutzen lässt. Zunächst müssen Sie im Makro einige Zeilenumbrüche ([Return]) durch manuelle Zeilenumbrüche ([Shift]+[Return]) ersetzen. Wählen Sie »Extras | Makro | Makros«, markieren Sie den betreffenden Eintrag in der Liste und klicken Sie auf »Bearbeiten«. Innerhalb der For-Each-Schleife stehen insgesamt vier Zeilen mit der Anweisung ».InsertParagraph After«. Ersetzen Sie die ersten drei durch ».TypeText Chr(11)«. Wenn Sie die Sortierfunktion gleich im Makro aufrufen möchten, ergänzen Sie vor der Anweisung »Application.ScreenUpdating = True« folgenden Code:
Selection.WholeStoryUm die Liste nachträglich zu sortieren, markieren Sie den gesamten Text mit dem Befehl »Bearbeiten | Alles markieren« oder der Tastenkombination [Strg]+[A]. Dann rufen Sie den Befehl »Tabelle | Sortieren« auf und bestätigen im Dialog die Voreinstellungen mit »OK«.
Selection.Sort ExcludeHeader:=False, FieldNumber:="Absätze", SortFieldType _
:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending
Selection.MoveUp Unit:=wdLine, Count:=1