Winword 6.0
Tip: Verfaßt man häufig Texte
in verschiedenen Sprachen, ist
es ziemlich umständlich, jedesmal
zuerst mit »Extras |
Sprache« die gewünschte Sprache
einzustellen und dann mit
»Extras | Rechtschreibprüfung«
oder einem Klick auf
die Schaltfläche »Rechtschreibung«
dieselbe zu starten. Viel
komfortabler erledigt diesen
Vorgang das im Kasten rechts
abgedruckte Makro. Es präsentiert
eine Dialogbox, in der
Sie mit einem Mausklick die
gewünschte Sprache festlegen,
und startet danach die Rechtschreibprüfung.
Nach getaner
Arbeit setzt das Makro die
Standardsprache wieder auf
Deutsch zurück.
Das Makro kann auf mehrere
Sprachen ausgeweitet und
mit einer anderen Standardsprache
als Deutsch belegt
werden. Möchten Sie es besonders
komfortabel starten,
binden Sie es am besten als
Schaltfläche in Ihre Symbolleiste
ein. Nach einem rechten
Mausklick auf die Symbolleiste
wählen Sie »Anpassen«
und im Bereich »Kategorien«
des Registers »Symbolleisten«
den Eintrag »Makro«. Ziehen
Sie Ihr Makro per Drag and
Drop an die gewünschte Stelle
in der Symbolleiste und weisen
Sie ihm eines der angebotenen
Schaltflächenlayouts zu.
Sagt Ihnen keines zu, können
Sie auch mit »Anpassen« Ihre
persönliche Schaltfläche gestalten.
Makro-Listing zum Wechseln der Sprache für die Rechtschreibprüfung:
Sub MAIN
Dim Pruefung$(2)
Pruefung$(0) = "Deutsch"
Pruefung$(1) = "English (UK)"
Pruefung$(2) = "Français"
Begin Dialog BenutzerDialog 290, 64, "Rechschreibpüfung"
OptionGroup .Auswahl
OptionButton 19, 6, 92, 16, "Deutsch", .R_Deutsch
OptionButton 19, 23, 93, 16, "Englisch", .R_Englisch
OptionButton 19, 40, 119, 16, "Französisch", .R_Französisch
OKButton 164, 7, 98, 21
CancelButton 164, 34, 98, 21
End Dialog
Dim dlg As BenutzerDialog
GetCurValues dlg
Dialog dlg
ExtrasSprache .Sprache = Pruefung$(dlg.Auswahl), .Standard
ExtrasSprache .Sprache = Pruefung$(dlg.Auswahl)
ExtrasRechtschreibung
ExtrasSprache .Sprache = "Deutsch", .Standard
ExtrasSprache .Sprache = "Deutsch"
End Sub