s

s

 

Sub  f()
Dim ss1( 100 ) As String ,  ss2( 100 ) As String ,  ddd1 As String ,  ddd2 As String
ddd1  =   " １２３４５６７８９０ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ，．／＜＞？；＇： "" ［］｛｝＼｜＝－＋＿）（＊％＄＃＠！｀～＆　 "
For  i  =   0  To Len(ddd1)  -   1
ss1(i)  =  Mid(ddd1 ,  i  +   1 ,   1 )
Next  i
ddd2  =   " 1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,./<>?;': "" []{}\|=-+_)(*%$#@!`~&  "
For  i  =   0  To Len(ddd2)  -   1
ss2(i)  =  Mid(ddd2 ,  i  +   1 ,   1 )
Next  i
For  i  =   0  To Len(ddd1)  -   1
Selection . Find . ClearFormatting
Selection . Find . Replacement . ClearFormatting
With Selection . Find
. Text  =  ss1(i)
. Replacement . Text  =  ss2(i)
. Wrap  =  wdFindContinue
End With
Selection . Find . Execute Replace := wdReplaceAll
Next  i
End  Sub