Wordには、入力内容を自動的に合理化できる優れた機能が含まれています。オートコレクトと呼ばれるこの機能は、選択した特定のルールに合わせて、入力内容を自動的に変更します。たとえば、Wordで文の最初の単語を大文字にしたり、日の名前を自動的に大文字にしたりできます。

（[ツール]メニューから[オートコレクト]を選択すると、オートコレクトの設定を表示できます。）

オートコレクトが入力内容の邪魔になる場合があります。これは、技術資料を入力する場合に特に当てはまります。

ただし、オートコレクト機能をオフにできる「マスタースイッチ」はありません。代わりに、ダイアログボックスを表示し、各チェックボックスを順番にオフにする必要があります。後で再びオンにしたい場合は、同じプロセスを再度実行する必要があります。

次のマクロを使用すると、オートコレクトの設定をすばやくオフにできます。マクロを2回実行すると、オートコレクト設定が元の値に戻されます。マクロはツールバーに追加されるように設計されており、ツールをクリックしてオートコレクトを変更できます。

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

注：

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

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

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

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