Wordのオートコレクト機能は、「ミスタイプ」を最初に意図したものに置き換えることができるため、執筆時に役立ちます。オートコレクトには、よくある入力ミスの多くがすでに構成されていますが、ツールを本当に役立つものにするには、個人の入力習慣を反映した独自のオートコレクトエントリを追加する必要があります。

オートコレクトエントリを追加する通常の方法は、[オートコレクト]ダイアログボックスの[オートコレクト]タブ（[ツール]、[オートコレクト]）を使用して、一度に1つずつ入力することです。入力するのではなく、かなりの数のオートコレクトエントリをインポートしたい場合はどうなりますか？オートコレクトエントリのエクスポートとインポートに関する有用な情報は、http：//word.mvps.org [Word MVPサイト]にあります：

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

このサイトからわかるように、重要なのは、オートコレクトのエントリをインポートできる組み込み関数がWord内にないということです。したがって、マクロを使用して作業を行う必要があります。以下はそのようなマクロの1つで、エントリをインポートしてオートコレクトリストに直接配置します。

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

マクロを使用するには、ドキュメントの段落ごとに1つのエントリを配置するようにしてください。 （ドキュメントには他に何も含まれていないはずです。）エントリの「置換」部分は「あり」から分離する必要があります

タブ文字による部分。マクロが既存のエントリを上書きする提案されたオートコレクトエントリを検出した場合、変更を加えるかどうかを尋ねられます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（1732）は、Microsoft Word 97、2000、2002、および2003に適用されます。