我编写的字母数字全角半角转换VBA程序（word宏命令），请高手点评

Question

Sub A01_全角变半角()
    Selection.WholeStory
    For i = 0 To 9
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = Chr(-23632 + i)
        .Replacement.Text = Chr(48 + i)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Next i        For i = 0 To 25
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = Chr(-23583 + i)
        .Replacement.Text = Chr(97 + i)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Next i
    
    Selection.Find.Execute Replace:=wdReplaceAll
        For i = 0 To 25
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = Chr(-23615 + i)
        .Replacement.Text = Chr(65 + i)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Next i
    
    Selection.HomeKeyEnd SubSub A01_半角变全角()
    Selection.WholeStory
    For i = 0 To 9
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = Chr(48 + i)
        .Replacement.Text = Chr(-23632 + i)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Next i    For i = 0 To 25
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = Chr(97 + i)
        .Replacement.Text = Chr(-23583 + i)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Next i
    Selection.Find.Execute Replace:=wdReplaceAll
        
    For i = 0 To 25
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = Chr(65 + i)
        .Replacement.Text = Chr(-23615 + i)
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Next i
    
    Selection.HomeKeyEnd Sub