Zeichensatz ausdrucken
Jürgen Kretschmer
gibt es einen EINFACHEN Weg, einen kompletten Zeichensatz, z.B. Times New
Roman, auszudrucken.
Habe keine Übung im Umgang mit Makros, die dies vielleicht bewerkstelligen
könnten, also falls nur mit Makro möglich, bitte laienhaft erklärt, wie das
Ganze auszuführen ist.
DANKE an alle hilfreichen Geister
Jürgen Kretschmer
Lutz Gentkow
Hallo Jürgen,
ich hatte Dir auf Deine gleichlautende Frage vom Mittwoch bereits
mehrere Möglichkeiten genannt! Inzwischen habe ich noch folgende Quelle
gefunden: http://people.freenet.de/OfficeLine/Schriftarten.zip .
Du mußt die Datei noch entpacken (Entpacker ist hoffentlich vorhanden,
sonst schau unter http://www.winzip.com vorbei) und anschließend die
entstandene Datei Schriftarten.dot lediglich doppelklicken, der Rest
erfolgt per Dialogabfrage.
Viele Grüße vom Niederrhein
Lutz
Jürgen Kretschmer
ja, wie Du siehst kam ich mit dem Makro nicht klar, ich hoffe, mit der neu
aufgezeigten Möglichkeit wird´s klappen.
Gruß Jürgen
"Lutz Gentkow" <e...@kohlschein.de> schrieb im Newsbeitrag
news:3A17AE35...@kohlschein.de...
Thomas Löwe [MS MVP Word]
"Jürgen Kretschmer" <juergen.k...@t-online.de>
Bezug: news:8v89rf$461$04$1...@news.t-online.com...
> gibt es einen EINFACHEN Weg, einen kompletten Zeichensatz, z.B.
> Times New Roman, auszudrucken. Habe keine Übung im Umgang mit
> Makros, die dies vielleicht bewerkstelligen könnten, also falls nur mit
> Makro möglich, bitte laienhaft erklärt, wie das Ganze auszuführen ist.
in dem Thread
news:8utinh$hme$02$1...@news.t-online.com...
Betreff: Webdings + Wingdings ausdrucken
Datum: 15 November 2000 09:45:33
hat Lutz Gentkow eine Makrolösung beschrieben, wie ein Zeichensatz in einem
Dokument ausgegeben werden kann.
Gehe bitte wie folgt vor:
1)
Starte Microsoft Word und öffne ein leeres Dokument.
2)
Rufe über die Tastenkombination "Alt + F11" den Microsoft Visual Basic
Editor auf.
3)
Füge dort folgenden VBA-Code ein:
Sub ANSICode()
Dim Zähler1%, Zähler2%
Documents.Add
ActiveDocument.Tables.Add Range:= _
Selection.Range, NumRows:=24, _
NumColumns:=11
Selection.MoveRight unit:=wdCell
' Eine Tabelle mit 11 Spalten und 24 Zeilen wird erstellt.
For Zähler1% = 0 To 9
Selection.TypeText Text:=Zähler1%
Selection.MoveRight unit:=wdCell
Next Zähler1%
' Die Zahlen 0 bis 9 werden in die ersten Zellen geschrieben
For Zähler2% = 30 To 240 Step 10
Selection.TypeText Text:=Zähler2%
Selection.MoveRight unit:=wdCell
For Zähler1% = 0 To 9
Selection.TypeText Text:=Chr$(Zähler2% + Zähler1%)
Selection.MoveRight unit:=wdCell
Next Zähler1%
Next Zähler2%
' Während Zähler2% von 30 bis 240 in Zehnerschritten
' hochzählt, durchläuft Zähler1% jedes Mal die Werte
' von 0 bis 9. Beide Zahlen werden addiert und von der
' Summe das ANSI-Zeichen eingefügt.
Selection.TypeText Text:=250
Selection.MoveRight unit:=wdCell
For Zähler1% = 0 To 5
Selection.TypeText Text:=Chr(250 + Zähler1%)
Selection.MoveRight unit:=wdCell
Next Zähler1%
' In der letzten Zeile wird der Vorgang nur von 250
' bis 255 durchgeführt (Chr$(256) führt zu einer
' Fehlermeldung.
End Sub
4)
Beende den Microsoft Visual Basic Editor über die Tastenkombination "Alt +
Q".
5)
Das VBA-Makro kannst du über "Extras, Makro, Makros, ANSICode, Ausführen"
starten.
6)
In einem neuen Dokument wird eine Tabelle erstellt, die diesen Zeichensatz
enthält. Die Ausgabe erfolgt immer in der unter "Format, Zeichen,
Schriftart, Standard" bestimmten Schriftart. Um die Ausgabe in der
Schriftart "Times New Roman" zu erhalten, bestimme diese Schriftart unter
"Format, Zeichen, Standard" zur Schriftart in der Formatvorlage "Standard".
Du kannst die Schriftart auch manuell in der Tabelle verändern. Weise der
Tabelle (mit Ausnahme der Zeilen- und Spaltenbeschriftungen die gewünschte
Schriftart zu.
Lass uns bitte wissen, wenn du weitere Hilfe benötigst.
--
Schöne Grüße Thomas Löwe [Microsoft MVP Word]
Bitte alle Supportanfragen in die Newsgroup stellen.
Microsoft KB: englisch: http://support.microsoft.com/support/search/
Microsoft KB: deutsch : http://search.microsoft.com/germany/supportkb
Lutz Gentkow
eine engl. Kurzanleitung zum Thema Makros findest Du unter
http://www.mvps.org/word/FAQs/MacrosVBA.htm , dort direkt im ersten
Abschnitt unter "Beginners Tips".
Lutz Gentkow
Jürgen Kretschmer
nur eine Frage, wieso ist dieses Makro nach jedem Ausführen bzw. Neustart
von WORD nicht mehr in der Auswahl vorhanden ???
Muß ich es explizit abspeichern ? Wie und wo ???
Gruß Jürgen
"Thomas Löwe [MS MVP Word]" <suppor...@young-world.com> schrieb im
Newsbeitrag news:uZCo77h...@cppssbbsa02.microsoft.com...
Lutz Gentkow
meinst Du Schriftarten.dot ? Kopiere diese Vorlage in den
Autostart-Ordner von Word, dann steht das Makro *immer* zur Verfügung.
Thomas Löwe [MS MVP Word]
"Jürgen Kretschmer" <juergen.k...@t-online.de>
Bezug: news:8v8vn8$k81$02$1...@news.t-online.com...
> > news:8utinh$hme$02$1...@news.t-online.com...
> > Betreff: Webdings + Wingdings ausdrucken
> > Datum: 15 November 2000 09:45:33
> > hat Lutz Gentkow eine Makrolösung beschrieben, wie ein Zeichensatz in
> > einem Dokument ausgegeben werden kann.
> > Gehe bitte wie folgt vor:
> nur eine Frage, wieso ist dieses Makro nach jedem Ausführen bzw.
> Neustart von WORD nicht mehr in der Auswahl vorhanden ???
> Muß ich es explizit abspeichern ? Wie und wo ???
vielen Dank für deine Nachricht.
1)
Starte Microsoft Word und öffne ein leeres Dokument.
2)
Gehe zu "Extras, Makro, Makros" und bestimme unter "Makros in" dein
aktuelles Dokument als Speicherort des Makros und wähle als Name "ANSICode"
und gehe dann auf die Schaltfläche "Erstellen" und folge meinen Hinweisen ab
Lfd. Nummer 3.
Speichere das Dokument unter einen von dir gewählten Namen. Du findest
zukünftig hier die Makrolösung.