Word enthält eine großartige Funktion, mit der Sie Ihre Eingabe automatisch optimieren können. Diese Funktion namens AutoCorrect nimmt automatisch Änderungen an Ihrer Eingabe vor, um sie an bestimmte von Ihnen ausgewählte Regeln anzupassen. Sie können beispielsweise veranlassen, dass Word das erste Wort Ihrer Sätze großschreibt oder die Namen von Tagen automatisch großschreibt.

(Sie können Ihre AutoKorrektur-Einstellungen anzeigen, indem Sie im Menü Extras die Option AutoKorrektur auswählen.)

Es gibt Zeiten, in denen die automatische Korrektur die Eingabe beeinträchtigen kann. Dies gilt insbesondere dann, wenn Sie technisches Material eingeben.

Es gibt jedoch keinen „Hauptschalter“, mit dem Sie die Autokorrekturfunktion deaktivieren können. Stattdessen müssen Sie das Dialogfeld anzeigen und jedes Kontrollkästchen nacheinander deaktivieren. Wenn Sie es später wieder aktivieren möchten, müssen Sie denselben Vorgang erneut ausführen.

Das folgende Makro kann Ihre AutoKorrektur-Einstellungen schnell deaktivieren. Wenn Sie das Makro ein zweites Mal ausführen, werden die AutoKorrektur-Einstellungen auf ihre ursprünglichen Werte zurückgesetzt. Das Makro soll einer Symbolleiste hinzugefügt werden. Anschließend können Sie auf das Werkzeug klicken, um die automatische Korrektur zu ändern.

Sub ToggleAC()

Dim State As String     Dim ACVal As Integer     Dim VarPass As Variant     Dim VarNum As Integer

VarNum = 0     For Each VarPass In ActiveDocument.Variables         If VarPass.Name = "ACState" Then VarNum = VarPass.Index     Next VarPass

If VarNum <> 0 Then         State = ActiveDocument.Variables.Item(VarNum).Value         ACVal = Val(Mid$(State$, 1, 1))

If ACVal <> 0 Then AutoCorrect.CorrectInitialCaps = True         ACVal = Val(Mid$(State$, 2, 1))

If ACVal <> 0 Then AutoCorrect.CorrectSentenceCaps = True         ACVal = Val(Mid$(State$, 3, 1))

If ACVal <> 0 Then AutoCorrect.CorrectDays = True         ACVal = Val(Mid$(State$, 4, 1))

If ACVal <> 0 Then AutoCorrect.CorrectCapsLock = True         ACVal = Val(Mid$(State$, 5, 1))

If ACVal <> 0 Then AutoCorrect.ReplaceText = True         ACVal = Val(Mid$(State$, 6, 1))

If ACVal <> 0 Then Options.AutoFormatAsYouTypeReplaceQuotes = True         ActiveDocument.Variables.Item(VarNum).Delete     Else         State = ""

State = State & Mid(Str(Abs(AutoCorrect.CorrectInitialCaps)), 2)

State = State & Mid(Str(Abs(AutoCorrect.CorrectSentenceCaps)), 2)

State = State & Mid(Str(Abs(AutoCorrect.CorrectDays)), 2)

State = State & Mid(Str(Abs(AutoCorrect.CorrectCapsLock)), 2)

State = State & Mid(Str(Abs(AutoCorrect.ReplaceText)), 2)

State = State & Mid(Str(Abs(Options.AutoFormatAsYouTypeReplaceQuotes)), 2)

ActiveDocument.Variables.Add "ACState", State         With AutoCorrect             .CorrectInitialCaps = False             .CorrectSentenceCaps = False             .CorrectDays = False             .CorrectCapsLock = False             .ReplaceText = False         End With         Options.AutoFormatAsYouTypeReplaceQuotes = True     End If End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (1738) gilt für Microsoft Word 97, 2000, 2002 und 2003.