全角の数字を半角に一括変換するマクロ（Word）

全角数字→半角数字の変換が一括でできるマクロ（自分用メモ）。Word用です。
以下手順。

※ここで紹介するのは「変更履歴の記録」機能を使用して変換をする方法です。「変更履歴の記録」機能を使用しないのであれば、全角英数→半角英数に変換したい範囲を選択し、「ホーム」タブ→「Aa」アイコンクリック→「半角（W）」クリック で変換できます。

＜マクロファイルの作成方法＞
1. Wordの新規ファイル作成
2. 「開発」タブ→「Visual Basic」をクリック
3.  左ウィンドウにある「ThisDocument」をダブルクリック（右側に何も入力されていないウィンドウが開く）
4. 下記コードを入力

Sub 全角数字を半角にする()

 Dim i As Integer
 Dim myRange As Range  '検索用のRangeオブジェクト


 '画面更新をオフ
 Application.ScreenUpdating = False

 Set myRange = ActiveDocument.Range(0, 0)

 For i = 0 To 9

   With myRange.Find
     .Text = StrConv(i, vbWide)  '検索する文字列
     .Replacement.Text = i    '置換後の文字列
     .Forward = True
     .Wrap = wdFindStop
     .Format = True              '書式の設定をオン
     .MatchCase = False          '大文字と小文字の区別する
     .MatchWholeWord = False     '完全に一致する単語だけを検索する
     .MatchAllWordForms = False  '英単語の異なる活用形を検索する
     .MatchSoundsLike = False    'あいまい検索（英）
     .MatchFuzzy = False         'あいまい検索（日）
     .MatchWildcards = False     'ワイルドカードを使用する
     .MatchByte = True           '半角と全角を区別する
     .Execute Replace:=wdReplaceAll
     DoEvents
   End With

 Next i


 '画面更新をオン
 Application.ScreenUpdating = True

 'myRangeを解放
 Set myRange = Nothing

End Sub

5. 「ファイル」→「（文書1）の上書き保存」をクリック
6. 「ファイル名」は任意の文字列を入力（ここでは仮に「数字全角→半角」とする）、「ファイルの種類」は「Wordマクロ有効テンプレート（*.dotm）を選択
7. ファイルの保存場所は任意のフォルダを選択（7→6の順でやってファイルが行方不明になった場合は「ドキュメント\Officeのカスタムテンプレート」にある可能性が高い）
8. 「保存」をクリック
これで「数字全角→半角.dotm」が作成される

＜マクロファイルの使用方法＞
1. 一括変換したいWord文書を開く
2. 「校閲」タブ→変更履歴の記録をオンにする
※どこが全角→半角に変換されたのか分からなくてもいい人は2を省略してOK
3. 「開発」タブ→「Wordアドイン」をクリック
4. 「テンプレートとアドイン」ウィンドウの「追加」をクリックし、作成したマクロファイルを選択→「OK」クリックで「テンプレートの追加」ウィンドウを閉じる
5. 「アドインとして使用できるテンプレート」欄に追加された「数字全角→半角.dotm」にチェックを入れて「OK」をクリック
（「セキュリティの警告」が表示されたら「コンテンツの有効化」をクリック）
6. 「開発」タブ→「マクロ」をクリック
7. 「マクロ」ウィンドウの「全角数字を半角にする」を選択して「実行」をクリック
これで全角の数字が半角に一括変換できるはず