Hallo Leute,
wie schafft man es mit word, alle versch. Schriftzeichen (Time roman,…) eines Buchstabens, z.B. U, zugleich auf den Bildschirm zu bringen und ausdrucken zu lassen, oder muss man jeden einzelnen ausdrucken lassen, um zu sehen, wie er aussieht?
Danke und viele Grüsse aus Chemnitz 
Hallo Franzo
So, wie Deine Frage gestellt ist, kannst Du aus einem U kein X machen
Wenn Du meinst, dass Du die verschiedenen Schriftschnitte sehen
möchtest, bleibt Dir mit Word nur die Möglichkeit, den jeweiligen
Buchstaben (oder das ganze Alphabet) in der betreffenden Schrift zu
formatieren.
Es gibt Programme, die Dir aus den bei Dir installierten Fonts eine
Übersicht machen können. Dazu müsste man Dein Betriebssystem kennen,
um Dir zu helfen.
Vielleicht wolltest Du aber ganz was anderes wissen?
Gruss
Heinz
wie schafft man es mit word, alle versch. Schriftzeichen (Time
roman,…) eines Buchstabens, z.B. U, zugleich auf den
Bildschirm zu bringen und ausdrucken zu lassen, oder muss man
jeden einzelnen ausdrucken lassen, um zu sehen, wie er
aussieht?
Hi Franzo,
geh auf ide Seite im bretteingang, dort zu Schriftarten o.ä und suche auf der Seite nach "Beispieltext, dann erhälste sowas:
http://mypage.bluewin.ch/reprobst/Grafiken/SProbe1.gif
Gruß
Reinhard
Hallo franzo,
das Problem ist schon älter als der Computer an sich, die Lösungen auch:
„Quick brown fox jumps over the lazy dog“
enthält alle Buchstaben des englischen Alphabets und wurde für Fernschreiber zur täglichen Inbetriebnahme verwendet (anfangs gab es nur Grossbuchstaben).
In anderen Sprachen gibt es ähnliche, aber nicht so berühmte Sätze.
Gruss Reinhard
Hallo franzo,
mit folgendem Makro (angewendet unter Word97, Windows98) kannst du einen Mustertext in allen in Word verfügbaren Schriften in ein leeres Dokument schreiben. Das Makro sollte auch mit neueren Wordversionen funktionieren.
Sub AlleFonts()
On Error Resume Next
' Stellt den eingegebenen Text in allen verfügbaren Schriftarten dar
Vorgabetext = "ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ 1234567890"
Vorgabetext = Vorgabetext & " abcdefghijklmnopqrstuvwxyz"
Vorgabetext = Vorgabetext & " !§$%&/()=?)| ,;.:-\_+\*#'{[]}\~€^°²³"
Mustertext = InputBox("Mustertext", "Schriftarten anzeigen", Vorgabetext)
'Leeres Dokument öfnen
Documents.Add Template:="Normal.dot", NewTemplate:=False
'Font-Grundeinstellungen setzen
With Selection.Font
.Name = ""
.Size = 12
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.ColorIndex = wdAuto
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
' Mustertext wird eintragen
For Each Schriftart In Word.FontNames
Selection.Font.Name = "Arial"
Selection.TypeText Text:=Schriftart & Chr(11) 'Zeilenschaltung
Selection.Font.Name = Schriftart
Selection.TypeText Text:=Mustertext
GoTo weiter1
'Diese Alternative, zeigt kompletten Zeichensatz an
For I = 32 To 255
Selection.TypeText Text:=Chr(I)
Next
weiter1:
Selection.TypeParagraph
Next
' Zeilenhöhe einstellen
Selection.WholeStory
With Selection.ParagraphFormat
.SpaceBefore = 0
.SpaceAfter = 12
.LineSpacingRule = wdLineSpaceAtLeast
.LineSpacing = 14
End With
' Sortieren nach Schriftart-Name
Selection.Sort ExcludeHeader:=False, FieldNumber:="Absätze", SortFieldType \_
:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 \_
:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= \_
wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= \_
wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= \_
wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID \_
:=wdLanguageNone
Selection.HomeKey Unit:=wdStory
End Sub
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]