ワードの文章の一桁の数字を全角に、二桁以上の数字を半角に、全角カタカナを半角カタカナに、半角カタカナを全角カタカナに、一括して変換するワードのマクロ

Sub 一桁の数字を全角二桁以上の数字を半角()

Call 半角数字を全角へ一括変換
Call 二桁以上の全角数字を半角へ一括変換

End Sub

Sub 半角数字を全角へ一括変換()

Dim rng As Range: Set rng = ActiveDocument.Range(0, 0)
With rng.Find
.Text = "[0-9]"
.MatchWildcards = True
.MatchFuzzy = False
Do While .Execute
rng.CharacterWidth = wdWidthFullWidth
rng.Collapse wdCollapseEnd
Loop
End With
Set rng = Nothing

End Sub

Sub 二桁以上の全角数字を半角へ一括変換()

Dim rng As Range: Set rng = ActiveDocument.Range(0, 0)
With rng.Find
.Text = "[０-９]{2,}"
.MatchWildcards = True
.MatchFuzzy = False
Do While .Execute
rng.CharacterWidth = wdWidthHalfWidth
rng.Collapse wdCollapseEnd
Loop
End With
Set rng = Nothing

End Sub

Sub 全角カタカナを半角カタカナに変換()

Selection.WholeStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "[ア-ヾ]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With
Selection.Range.CharacterWidth = wdWidthHalfWidth

End Sub

Sub 半角カタカナを全角カタカナに変換()

Selection.WholeStory
Selection.Find.ClearFormatting
With Selection.Find
.Text = "[ｦ-ﾟ]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With
Selection.Range.CharacterWidth = wdWidthFullWidth

End Sub
左が一括して、一桁の数字を全角に、二桁以上の数字を半角に、全角カタカナを半角二、半角カタカナを全角に、変換するマクロです。このマクロをワードに一度入れれば、ずーっと使い続けることができます。 
①　ワードの一番上のメニューの「表示」をクリックしてください。 
 
②　右端の方にある「マクロ」をクリックしてください。 
 
③　「マクロの表示」を選択してください。 
 
④　「ルビ」「ふりがな」など適当な名前をマクロ名のところに入力してください。
 
⑤　「作成」ボタンを押してください。 
 
⑥　下のような画面が出てくるので、Subから始まる赤い部分をすべて消してください。 
 
⑦　左のマクロを、少し長いですが、すべて選択して、先ほど消したところにコピー、貼り付けしてください。 下のような画面になります。矢印の保存のところをクリックしてください。一番右上の×を押して終了です。
 
⑧　再びメニューの「表示」→「マクロ」→「マクロの表示」を順にクリックしていくと、登録されたマクロが表示されます。いずれかを選択して「実行」ボタンを押してください。数字やカタカナが全角や半角に変換されます。