Supportnet / Forum / Textverarbeitung
Schriftarten microsoft word liste drucken
Frage
Möchte alle Schriftarten von Microsoft Word drucken, d.h. zur Ansicht auf Papier
Ich möchte schneller entscheiden können, welche für einen bestimmte Textzeile meine Wahl sein wird und nicht ewig ausprobieren...
ebenso fett, kursiv... eben alle Kombis
Antwort 1 von StilleQuelle
Antwort 2 von Cloud_X
da brauch man kein poggie für....geht auch mit nem Macro:
Sub Schriftliste()
Dim Schrift As Variant
Application.ScreenUpdating = False
Documents.Add Template:="normal"
For Each Schrift In FontNames
With Selection
.Font.Name = "times new roman"
.Font.Bold = True
.Font.Underline = True
.TypeText Schrift
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
.Font.Bold = False
.Font.Underline = False
.Font.Name = Schrift
.TypeText "abcdefghijklmnopqrstuvwxyz-äöüß"
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
.TypeText "0123456789?$%&()[]*_-=+/<>"
.InsertParagraphAfter
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
End With
Next Schrift
Application.ScreenUpdating = True
End Sub
Sub Schriftliste()
Dim Schrift As Variant
Application.ScreenUpdating = False
Documents.Add Template:="normal"
For Each Schrift In FontNames
With Selection
.Font.Name = "times new roman"
.Font.Bold = True
.Font.Underline = True
.TypeText Schrift
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
.Font.Bold = False
.Font.Underline = False
.Font.Name = Schrift
.TypeText "abcdefghijklmnopqrstuvwxyz-äöüß"
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
.TypeText "0123456789?$%&()[]*_-=+/<>"
.InsertParagraphAfter
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
End With
Next Schrift
Application.ScreenUpdating = True
End Sub
Antwort 3 von MUC8796
Hallo, gottseidank habe ich diesen Beitrag gefunden. Habe das auch mit dem Macro probiert. Bin aber anscheinend zu blöd. Vielleicht kann Cloud_X mir helfen?
Wäre echt super! Vielleicht gibts auch was neues.
Ich nutze XP Professionel und Word 2003.
Danke schon mal!
Wäre echt super! Vielleicht gibts auch was neues.
Ich nutze XP Professionel und Word 2003.
Danke schon mal!
Antwort 4 von Giftzwerg
Hi Muc!
Der Thread ist schon über 3 Jahre alt. Da gibt es sicherlich was neues.
Versuchs doch einfach mal
hiermit Das kleine Tool (141 kb) erstellt eine Word-Datei, die du anschl. ausdrucken kannst. Sollte auch unter Word 2003 laufen...
GZ
Der Thread ist schon über 3 Jahre alt. Da gibt es sicherlich was neues.
Versuchs doch einfach mal
hiermit Das kleine Tool (141 kb) erstellt eine Word-Datei, die du anschl. ausdrucken kannst. Sollte auch unter Word 2003 laufen...
GZ
Antwort 5 von MUC8796
Viiiiiiielen DANK!
Gruß
MUC
Gruß
MUC