Schriftarten sortieren

Forumthread: Schriftarten sortieren

Axel

Hallo, eigendlich ist das ja das falsche Forum aber Ihr seid immer so schnell und gut.
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Schriftarten sortieren

Luschi
AW: Schriftarten sortieren

Axel

AW: Schriftarten sortieren

03.11.2009 12:19:25

Luschi

Hallo Alex,
versuch es mal so:

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
Call QuickSort(Schrift, LBound(Schrift), UBound(Schrift))
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

Sub QuickSort(aDaten, a As Long, e As Long)
'rlx
Dim x As Long, y As Long, varTemp As Variant, varPivot As Variant
x = a
y = e
varPivot = aDaten((a + e) \ 2)
Do While x  varPivot
y = y - 1
Loop
If x

Gruß von Luschi
aus klein-Paris

AW: Schriftarten sortieren

03.11.2009 12:53:18

Axel

Danke, Funktioniert teilweise.
Er sortiert erst Großbuchstaben und dann Kleinbuchstaben.
Kriegste das hin, egal ob Groß oder Klein?
Aber Danke schon mal dafür, Axel

Forumthread: Schriftarten sortieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread