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から始まる赤い部分をすべて消してください。 |
 |
| ⑦ 左のマクロを、少し長いですが、すべて選択して、先ほど消したところにコピー、貼り付けしてください。 下のような画面になります。矢印の保存のところをクリックしてください。一番右上の×を押して終了です。 |
 |
| ⑧ 再びメニューの「表示」→「マクロ」→「マクロの表示」を順にクリックしていくと、登録されたマクロが表示されます。いずれかを選択して「実行」ボタンを押してください。数字やカタカナが全角や半角に変換されます。 |
 |