word宏代码之选中区域字母变为斜体

Sub 将选中内容中的英文字母转为斜体()
    
    Dim rng As Range
    Dim i As Long
    Dim char As String
    Dim originalStart As Long
    Dim originalEnd As Long
    
    ' 检查是否有选中内容
    If Selection.Type = wdSelectionIP Then
        MsgBox "请先选中要转换的内容！", vbExclamation, "未选中内容"
        Exit Sub
    End If
    
    ' 保存原始选区位置
    originalStart = Selection.Start
    originalEnd = Selection.End
    
    ' 设置选区范围
    Set rng = Selection.Range
    
    ' 禁用屏幕刷新以提高性能
    Application.ScreenUpdating = False
    
    ' 遍历选区中的每个字符
    For i = rng.Start To rng.End - 1
        ' 获取每个字符的范围
        Set rng = ActiveDocument.Range(i, i + 1)
        char = rng.text
        
        ' 检查是否是英文字母（A-Z 或 a-z）
        If (Asc(char) >= 65 And Asc(char) <= 90) Or (Asc(char) >= 97 And Asc(char) <= 122) Then
            ' 将英文字母设置为斜体
            rng.Font.Italic = True
        End If
    Next i
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
    
    ' 恢复原始选区
    ActiveDocument.Range(originalStart, originalEnd).Select
    
    MsgBox "已将选中内容中的英文字母转换为斜体！", vbInformation, "转换完成"
End Sub