[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