Die Autokorrekturfunktion von Word kann beim Schreiben hilfreich sein, da sie Ihre „Fehlertypen“ durch das ersetzen kann, was Sie eigentlich beabsichtigt haben. AutoCorrect ist bereits mit vielen der häufigsten Tippfehler konfiguriert. Um das Tool jedoch wirklich hilfreich zu machen, müssen Sie Ihre eigenen AutoCorrect-Einträge hinzufügen, die Ihre persönlichen Tippgewohnheiten widerspiegeln.

Die normale Methode zum Hinzufügen von AutoCorrect-Einträgen besteht darin, sie einzeln über die Registerkarte AutoCorrect des Dialogfelds AutoCorrect (Extras | AutoCorrect) einzugeben. Was ist, wenn Sie einige AutoCorrect-Einträge importieren möchten, anstatt sie einzugeben? Nützliche Informationen zum Exportieren und Importieren von AutoCorrect-Einträgen finden Sie hier unter http://word.mvps.org [Word MVP-Site]:

http://wordmvp.com/FAQs/Customization/ExportAutocorrect.htm

Wie Sie der Site entnehmen können, gibt es unter dem Strich keine intrinsische Funktion in Word, mit der Sie AutoCorrect-Einträge importieren können. Sie müssen also ein Makro verwenden, um die Arbeit zu erledigen. Das folgende Makro importiert Einträge und platziert sie direkt in der Autokorrekturliste.

Sub AddToTheAutoCorrectList()

Dim r As Range, r1 As Range     Dim par As Paragraph, bo As Boolean     Dim pars As Paragraphs     Dim ACE As AutoCorrectEntry     Dim ACEs As AutoCorrectEntries     Dim ActD As Document

Set ActD = ActiveDocument     Set pars = ActD.Paragraphs     Set r1 = Selection.Range     Set r = Selection.Range     Set ACEs = Application.AutoCorrect.Entries

On Error Resume Next     For Each par In pars         If par.Range.End = ActD.Content.End Then Exit Sub         r1.Start = par.Range.Start         r1.End = r1.Start         r1.MoveEndUntil vbTab         r.Start = r1.End + 1         r.End = par.Range.End - 1         If Len(r1.Text) > 0 Or Len(r.Text) > 0 Then             If Len(ACEs(r1.Text).Value) > 0 Then                 bo = Repl(ACEs, r, r1)

Else                 bo = True             End If             If bo Then ACEs.Add r1.Text, r.Text         End If     Next End Sub
Private Function Repl(a As AutoCorrectEntries, _   r As Range, r1 As Range) As Boolean     If a(r1.Text).Value <> r.Text Then         Repl = MsgBox("To replace " & UCase(a(r1.Text).Value) & _           " with " & UCase(r.Text) & " click OK", vbYesNo + _           vbQuestion, "REPLACE ENTRY?") = vbYes     End If End Function

Um das Makro zu verwenden, stellen Sie einfach sicher, dass Sie einen Eintrag pro Absatz in einem Dokument platzieren. (Das Dokument sollte nichts anderes enthalten.) Der Abschnitt „Ersetzen“ des Eintrags sollte vom Abschnitt „Mit“

getrennt werden Teilung durch ein Tabulatorzeichen. Wenn das Makro auf einen vorgeschlagenen AutoCorrect-Eintrag stößt, der einen vorhandenen Eintrag überschreibt, werden Sie gefragt, ob Sie die Änderung vornehmen möchten.

_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 (1732) gilt für Microsoft Word 97, 2000, 2002 und 2003.