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

2014年2月13日

,

先日の「オートコレクト、オートフォーマットをオフにする」に続き、Wordのオートコレクトをデフォルト設定に戻すマクロです。

このマクロでできること

Wordのオートコレクトをデフォルトの設定に戻します。

マクロの解説

オートコレクトのデフォルト設定 にそって、オンとオフを設定します。

マクロ


Sub オートコレクトをデフォルト設定にする()

　'■[オートコレクト]タブ
　With Application.AutoCorrect
　　.CorrectInitialCaps = True　'2文字目を小文字にする
　　.CorrectSentenceCaps = True '文の先頭を大文字にする
　　.CorrectTableCells = True　'表のセルの先頭文字を大文字にする
　　.CorrectDays = True　'曜日の先頭文字を大文字にする
　　.CorrectCapsLock = True　'CapsLockキーの押し間違いを修正する
　　.ReplaceText = True　'入力中に自動修正する
　　.ReplaceTextFromSpellingChecker = True　'入力中にスペルミスを自動修正する
　　.DisplayAutoCorrectOptions = True '[オートコレクトオプション]ボタンを表示する
　End With

　'■[数式オートコレクト]タブ
　With Application.OMathAutoCorrect
　　.UseOutsideOMath = False '数式エリア以外で数式オートコレクトを使用する
　　.ReplaceText = True　'入力中に自動修正する
　End With

　'■[入力オートフォーマット]タブ
　With Application.Options
　　'入力中に自動で変更する項目
　　.AutoFormatAsYouTypeReplaceQuotes = True　' ''を＇’に変更する
　　.AutoFormatAsYouTypeReplaceOrdinals = True　'序数を上付き文字に変更する
　　.AutoFormatAsYouTypeReplaceFractions = False '分数を分数文字（組み文字）に変更する
　　.AutoFormatAsYouTypeReplaceSymbols = True 'ハイフンをダッシュに変更する
　　.AutoFormatAsYouTypeReplacePlainTextEmphasis = False　''*'、'_'で囲んだ文字列を太字、斜体に書式設定する
　　.AutoFormatAsYouTypeReplaceFarEastDashes = True '長音とダッシュを正しく使い分ける
　　.AutoFormatAsYouTypeReplaceHyperlinks = True　'インターネットとネットワークのアドレスをハイパーリンクに変更する
　　.AutoFormatAsYouTypeApplyFirstIndents = False　'行の始まりのスペースを字下げに変更する
　　
　　'入力中に自動で書式設定する項目
　　.AutoFormatAsYouTypeApplyBulletedLists = True　'箇条書き（行頭文字）
　　.AutoFormatAsYouTypeApplyNumberedLists = True　'箇条書き（段落番号）
　　.AutoFormatAsYouTypeApplyBorders = True '罫線
　　.AutoFormatAsYouTypeApplyTables = True　'表
　　.AutoFormatAsYouTypeApplyHeadings = False '規定の見出しスタイル
　　.AutoFormatAsYouTypeApplyDates = False　　'日付スタイル
　　.AutoFormatAsYouTypeApplyClosings = True　'結語のスタイル
　　　　　　　
　　'入力中に自動で行う処理
　　.AutoFormatAsYouTypeFormatListItemBeginning = True 'リストの始まりの書式を前のリストと同じにする
　　.TabIndentKey = True 'Tab/Space/BackSpaceキーでインデントとタブの設定を変更する
　　.AutoFormatAsYouTypeDefineStyles = False '設定した書式を新規スタイルとして登録する
　　.AutoFormatAsYouTypeMatchParentheses = True　'かっこを正しく組み合わせる
　　.AutoFormatAsYouTypeDeleteAutoSpaces = False　'日本語と英数字の間の不要なスペースを削除する
　　.AutoFormatAsYouTypeInsertOvers = True '記などに対応する以上を挿入する
　　.AutoFormatAsYouTypeInsertClosings = True '頭語に対応する結語を挿入する
　End With

　'■[オートフォーマット]タブ
　With Application.Options
　　'自動で適切なスタイルを設定する個所
　　.AutoFormatApplyHeadings = True　'規定の見出しスタイル
　　.AutoFormatApplyLists = True　'箇条書き（行頭文字）
　　.AutoFormatApplyBulletedLists = True　'リストのスタイル
　　.AutoFormatApplyOtherParas = True　'その他の段落スタイル
　　
　　'自動で変更する項目
　　.AutoFormatReplaceQuotes = True　'＇’を’’に変更する
　　.AutoFormatReplaceOrdinals = True　'序数を上付き文字に変更する
　　.AutoFormatReplaceFractions = False　'分数を分数文字（組み文字）に変更する
　　.AutoFormatReplaceSymbols = True　'ハイフンをダッシュに変更する
　　.AutoFormatReplacePlainTextEmphasis = True ''*'、'_'で囲んだ文字列を太字、斜体に書式設定する
　　.AutoFormatReplaceHyperlinks = True 'インターネットとネットワークのアドレスをハイパーリンクに変更する
　　.AutoFormatApplyFirstIndents = True '行の始まりのスペースを字下げに変更する
　　.AutoFormatMatchParentheses = True 'かっこを正しく組み合わせる
　　.AutoFormatDeleteAutoSpaces = True　'日本語と英数字の間の不要なスペースを削除する
　　.AutoFormatReplaceFarEastDashes = True '長音とダッシュを正しく使い分ける
　　
　　'変更しない項目
　　.AutoFormatPreserveStyles = True 'スタイル
　　　　
　　'常に自動で書式設定する項目
　　.AutoFormatPlainTextWordMail = True　'電子メール経由で受信したメッセージ
　End With

End Sub

 

-コード
-,