Supportnet Computer
Planet of Tech

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


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!

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

Antwort 5 von MUC8796

Viiiiiiielen DANK!
Gruß
MUC

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: