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

2014年2月11日

,

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

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

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

作ってみました。

このマクロでできること

[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）

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

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

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

-コード
-,