Per Makro die Sprache der Rechtschreibprüfung wechseln

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 unten aufgeführte 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