日文系统下在MS中半角转全角 宏源代码

 sub main()
 '###########################################'
  '####Convert the half Char to Wide Char#####'
   '###########################################'
    Dim elemSet   as New MbeElementSet
    Dim elem      as New MbeElement
    Dim setMember as MbeSetMember
    Dim filePos   as Long
    Dim fileNum   as Long
    Dim Point as MbePoint
    dim status as integer
    Dim ws as string
    If elemSet.fromSelectionSet (1) <> MBE_Success Then
        If elemSet.fromFence () <> MBE_Success Then
        mbemessagebox "No Selections "
            MbeWriteStatus "Please Place Select"
            Exit Sub
        Else
            MbeWriteStatus "Found Fence!"
        End If
    Else
        MbeWriteStatus "Found Select"
    End If
MbeSendCommand "Mark"

dim ss as String
status=elemset.getfirst(setmember)
Do  while status=MBE_Success
filePos = elem.fromFile (setMember.filePos, setMember.fileNum)
if  elem.type=17 then
if elem.getstring(ss) = MBE_Success then
Dim s as String
dim Ck as long
dim Hi as long,Li as long
s=""
for i=1 to len(ss)
ck=asc(mid$(ss,i,1))

        if ( ck>=48 and  ck<= 57) or (ck>=64 and ck<=90) then
                ck=ck+33311
                hi=ck / 256
                li=ck mod 256
                s=s & chr$(hi) & chr$(li)
        elseif ck>=97 and ck <=123 then
                ck=ck+33312
                hi=ck / 256
                li=ck mod 256
                s=s & chr$(hi) & chr$(li)
        elseif ck = 126 then
                s=s & chr$(129) & chr$(96)
        elseif ck = 124 then
                s=s & chr$(129) & chr$(98)
        elseif ck = 96 then
                s=s & chr$(129) & chr$(77)
        elseif ck = 94 then
                s=s & chr$(129) & chr$(79)
        elseif ck = 95 then
                s=s & chr$(129) & chr$(81)
        elseif ck = 125 then
                s=s & chr$(129) & chr$(112)
        elseif ck = 63 then
                s=s & chr$(129) & chr$(72)
        elseif ck = 58 then
                s=s & chr$(129) & chr$(70)
        elseif ck = 59 then
                s=s & chr$(129) & chr$(71)
        elseif ck = 93 then
                s=s & chr$(129) & chr$(110)
        elseif ck = 91 then
                s=s & chr$(129) & chr$(109)
        elseif ck = 46 then
                s=s & chr$(129) & chr$(68)
        elseif ck = 32 then
                s=s & chr$(129) & chr$(64)
        elseif ck = 33 then
                s=s & chr$(129) & chr$(73)
        elseif ck = 40 then
                s=s & chr$(129) & chr$(105)
        elseif ck = 41 then
                s=s & chr$(129) & chr$(106)
        end if
        if ck = 61 then
                s=s & chr$(129) & chr$(129)
        elseif ck = 62 then
                s=s & chr$(129) & chr$(132)
        elseif ck = 60 then
                s=s & chr$(129) & chr$(131)
        elseif ck = 45 then
                s=s & chr$(129) & chr$(124)
        elseif ck = 43 then
                s=s & chr$(129) & chr$(123)
        elseif ck = 36 then
                s=s & chr$(129) & chr$(144)
        elseif ck = 42 then
                s=s & chr$(129) & chr$(150)
        elseif ck = 37 then
                s=s & chr$(129) & chr$(147)
        elseif ck = 38 then
                s=s & chr$(129) & chr$(149)
        elseif ck = 35 then
                s=s & chr$(129) & chr$(148)
        elseif ck = 39 then
                s=s & chr$(129) & chr$(86)
        elseif ck = 34 then
                s=s & chr$(129) & chr$(87)
end if
next i

if elem.setstring(s)=MBE_Success then
elem.font=0
status=elem.rewrite()
end if
end if
end if

status=elemset.GetNext(setmember)
Loop
end sub