ワードの文字変換の一括処理のことで

質問

ワードで全角英数文字を全て半角英数に変換するマクロ・ＶＢＡを教えて下さい。
宜しくお願いいたします。

回答No.2

imogasi · ベストアンサー

変換（＝置換）したい、全角数字がある文章範囲を範囲指定して下記を実行してください。
標準モジュールに貼りつけること。
Sub test01()
nz = Array("０", "１", "２", "３", "４", "５", "６", "７", "８", "９")
nh = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
For i = 0 To 9
With Selection.Find
.Text = nz(i)
.Replacement.Text = nh(i)
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub
Arrayの行（２個所）は１行にしてください。（ＯＫＷＥＢでは強制改行されてしまいますので復元してください。）
なお、この手のＶＢＡは、ただこうすれば出きると言うことであって、あまりワードのＶＢＡに深入りしないほうが良いでしょう。学習のための情報が本やＷＥＢで少ないからです。

お礼

有難うございました。
ワードのＶＢＡには深入りしない方が良さそうですね。

回答No.1

akubihime212

マイクロソフトワード用マクロ。

カタカナと英数字の半角全角変換。文字色変換。数字をすべて半角に変換。

こんなフリーソフトはいかがでしょうか？

参考URL：

http://www.geocities.com/Tokyo/Bay/1211/freesoft.htm

お礼

有難うございました。
早速試してみましたが、
rr$ = Mid$(r$, 1, I)
EditReplace .Find = rr$, .Replace = ww$,
の .Find のところでコンパイルエラーになってしまいました。