Schriftarten sortieren
Axel
Ich habe einen VBA Code für Word. Der ist auch eigendlich in Ordnung bis auf das ich die Schriftarten gerne Alphabetisch geordnet habe möchte.
Wo könnte ich da was einfügen?
Danke für eure Hilfe, Axel
Anbei der Code:
Sub Schriftarten()
Selection.InsertAfter "Ausdruck der verfügbaren Schriftarten" + 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