supermemo2gmx宏代码

Sub supermemo2gmx()
'
' supermemo2gmx
'
'

'
Selection.Replace What:="0", Replacement:=Chr(6), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:="1", Replacement:=Chr(4), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:="2", Replacement:=Chr(16), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:="3", Replacement:=Chr(15), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:="4", Replacement:=Chr(11), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:="5", Replacement:=Chr(28), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:="6", Replacement:=Chr(29), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:="7", Replacement:=Chr(30), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:="8", Replacement:=Chr(25), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:="9", Replacement:=Chr(3), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:="/", Replacement:=Chr(2), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.Replace What:=" ", Replacement:=Chr(1), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True

End Sub