[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
(DTPtechNote:386) Re: MS WordのVBA(全角英数字をすべて半角英数字に置き換え)
ちっとマクロずいてます(笑)
マクロといえば、MIFES以来か...(爆)
あながち、この閉鎖的な感じは、ヒデマルやMIFESとどっこいかなぁ。。。
Sub zen2han()
'
' 全角英数字をすべて半角英数字に置き換えます
' 作成日 03.2.18
'(c)2003 www.seuzo.jp
'
'全文を選択
With Application.Selection
.HomeKey Unit:=wdStory
.EndKey Unit:=wdStory, Extend:=wdExtend
End With
'検索置換すべきテーブル(対応する多byte文字が存在していなければ無効でつ)
my_array = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
'配列のひとつひとつの項目について
For Each i In my_array
'置換
With Application.Selection.Find
.Text = StrConv(i, vbWide)
.Replacement.Text = CStr(i)
.Wrap = wdFindStop
.Execute Replace:=wdReplaceAll
End With
Next
End Sub