Winword 6.0
Per Makro die Sprache der Rechtschreibprüfung wechseln
Antwort
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