オートコレクトやオートフォーマットっていらない項目が結構あります。
一気にオンにしたりオフにしたりできないものなのでしょうか。
ということで、以前からご要望をいただいておりました。
作ってみました。
このマクロでできること
[Alt] → [T] → [A] で開く[オートコレクト] ダイアログボックスの[オートコレクト] タブ、[数式オートコレクト] タブ、[入力オートフォーマット] タブ、[オートフォーマット] タブのチェックボックスをすべてオフにします。マクロの解説
オートコレクトの設定を一気にオフにします。
デフォルトの設定に戻す場合には、以前紹介いたしました「オートコレクトのデフォルト設定 」の記事を参考にして、項目を選びTrueとしてください。
マクロ
Sub オートコレクトのオフ() '■[オートコレクト]タブ With Application.AutoCorrect .CorrectInitialCaps = False '2文字目を小文字にする .CorrectSentenceCaps = False '文の先頭を大文字にする .CorrectTableCells = False '表のセルの先頭文字を大文字にする .CorrectDays = False '曜日の先頭文字を大文字にする .CorrectCapsLock = False 'CapsLockキーの押し間違いを修正する .ReplaceText = False '入力中に自動修正する .ReplaceTextFromSpellingChecker = False '入力中にスペルミスを自動修正する .DisplayAutoCorrectOptions = False '[オートコレクトオプション]ボタンを表示する End With '■[数式オートコレクト]タブ With Application.OMathAutoCorrect .UseOutsideOMath = False '数式エリア以外で数式オートコレクトを使用する .ReplaceText = False '入力中に自動修正する End With '■[入力オートフォーマット]タブ With Application.Options '入力中に自動で変更する項目 .AutoFormatAsYouTypeReplaceQuotes = False ' ''を＇’に変更する .AutoFormatAsYouTypeReplaceOrdinals = False '序数を上付き文字に変更する .AutoFormatAsYouTypeReplaceFractions = False '分数を分数文字（組み文字）に変更する .AutoFormatAsYouTypeReplaceSymbols = False 'ハイフンをダッシュに変更する .AutoFormatAsYouTypeReplacePlainTextEmphasis = False ''*'、'_'で囲んだ文字列を太字、斜体に書式設定する .AutoFormatAsYouTypeReplaceFarEastDashes = False '長音とダッシュを正しく使い分ける .AutoFormatAsYouTypeReplaceHyperlinks = False 'インターネットとネットワークのアドレスをハイパーリンクに変更する .AutoFormatAsYouTypeApplyFirstIndents = False '行の始まりのスペースを字下げに変更する '入力中に自動で書式設定する項目 .AutoFormatAsYouTypeApplyBulletedLists = False '箇条書き（行頭文字） .AutoFormatAsYouTypeApplyNumberedLists = False '箇条書き（段落番号） .AutoFormatAsYouTypeApplyBorders = False '罫線 .AutoFormatAsYouTypeApplyTables = False '表 .AutoFormatAsYouTypeApplyHeadings = False '規定の見出しスタイル .AutoFormatAsYouTypeApplyDates = False '日付スタイル .AutoFormatAsYouTypeApplyClosings = False '結語のスタイル '入力中に自動で行う処理 .AutoFormatAsYouTypeFormatListItemBeginning = False 'リストの始まりの書式を前のリストと同じにする .TabIndentKey = False 'Tab/Space/BackSpaceキーでインデントとタブの設定を変更する .AutoFormatAsYouTypeDefineStyles = False '設定した書式を新規スタイルとして登録する .AutoFormatAsYouTypeMatchParentheses = False 'かっこを正しく組み合わせる .AutoFormatAsYouTypeDeleteAutoSpaces = False '日本語と英数字の間の不要なスペースを削除する .AutoFormatAsYouTypeInsertOvers = False '記などに対応する以上を挿入する .AutoFormatAsYouTypeInsertClosings = False '頭語に対応する結語を挿入する End With '■[オートフォーマット]タブ With Application.Options '自動で適切なスタイルを設定する個所 .AutoFormatApplyHeadings = False '規定の見出しスタイル .AutoFormatApplyLists = False '箇条書き（行頭文字） .AutoFormatApplyBulletedLists = False 'リストのスタイル .AutoFormatApplyOtherParas = False 'その他の段落スタイル '自動で変更する項目 .AutoFormatReplaceQuotes = False '＇’を’’に変更する .AutoFormatReplaceOrdinals = False '序数を上付き文字に変更する .AutoFormatReplaceFractions = False '分数を分数文字（組み文字）に変更する .AutoFormatReplaceSymbols = False 'ハイフンをダッシュに変更する .AutoFormatReplacePlainTextEmphasis = False ''*'、'_'で囲んだ文字列を太字、斜体に書式設定する .AutoFormatReplaceHyperlinks = False 'インターネットとネットワークのアドレスをハイパーリンクに変更する .AutoFormatApplyFirstIndents = False '行の始まりのスペースを字下げに変更する .AutoFormatMatchParentheses = False 'かっこを正しく組み合わせる .AutoFormatDeleteAutoSpaces = False '日本語と英数字の間の不要なスペースを削除する .AutoFormatReplaceFarEastDashes = False '長音とダッシュを正しく使い分ける '変更しない項目 .AutoFormatPreserveStyles = False '常に自動で書式設定する項目 .AutoFormatPlainTextWordMail = False End With End Sub
関連記事
オートコレクトのデフォルト設定
日経パソコン 連載第５回目 「さらば、Wordの“おせっかい”機能」（最終回）
さらば、Wordの“おせっかい”機能 （PC Online）
