【コード】オートコレクト、オートフォーマットをオフにするWordマクロ

オートコレクトやオートフォーマットっていらない項目が結構あります。

一気にオンにしたりオフにしたりできないものなのでしょうか。

ということで、以前からご要望をいただいておりました。

作ってみました。

このマクロでできること

[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

関連記事

オートコレクトのデフォルト設定

日経パソコン 連載第5回目 「さらば、Wordの“おせっかい”機能」(最終回)

さらば、Wordの“おせっかい”機能  (PC Online)

URLやメールアドレスにリンクを追加させないマクロ

日経パソコンの連載記事の解説

Wordでテキパキ! 定型処理&日常業務 (書籍紹介)

トップへ戻る