Word VBA：将All Caps格式文本转换为实际大写字符的问题

针对大型Word文档中，仅设置All Caps字体格式（底层字符为小写，显示为大写）的文本转换需求，以下是稳定可靠的VBA脚本，可解决之前脚本无法循环或导致崩溃的问题：

核心VBA代码 #

Sub ConvertAllCapsToActualUppercase()
    Dim rngFind As Range
    Dim strText As String
    
    ' 关闭屏幕更新，提升性能并避免崩溃
    Application.ScreenUpdating = False
    
    Set rngFind = ActiveDocument.Content
    ' 从文档末尾开始向前查找，避免替换后重复处理
    rngFind.Collapse Direction:=wdCollapseEnd
    
    With rngFind.Find
        .ClearFormatting
        .Font.AllCaps = True ' 仅查找设置了All Caps格式的文本
        .Text = "" ' 不限制文本内容，只匹配格式
        .Forward = False ' 向前（从后往前）查找
        .Wrap = wdFindStop ' 找到文档开头即停止，避免无限循环
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    
    ' 循环查找所有匹配项
    Do While rngFind.Find.Execute
        ' 获取当前匹配范围的文本，转换为大写
        strText = UCase(rngFind.Text)
        ' 替换文本为实际大写，同时取消All Caps格式
        rngFind.Text = strText
        rngFind.Font.AllCaps = False
        
        ' 将查找范围折叠到当前匹配项之前，继续查找下一个
        rngFind.Collapse Direction:=wdCollapseStart
    Loop
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "转换完成！", vbInformation
End Sub

关键优化点说明 #

• 从后往前查找：设置.Forward = False，避免替换文本后光标位置导致重复处理同一内容，确保所有匹配项都被遍历。
• 关闭屏幕更新：Application.ScreenUpdating = False减少大型文档处理时的资源消耗，有效避免Word崩溃。
• 限制查找终止条件：.Wrap = wdFindStop确保查找至文档开头即停止，不会陷入无限循环。
• 清理格式：替换后取消All Caps格式，避免后续重复匹配已处理的内容。

使用步骤 #

1. 打开目标Word文档，按下Alt + F11打开VBA编辑器。
2. 在左侧项目窗口中，右键点击当前文档，选择插入 > 模块。
3. 将上述代码粘贴到模块窗口中。
4. 按下F5运行宏，或回到Word界面，通过开发工具 > 宏选择ConvertAllCapsToActualUppercase执行。

内容的提问来源于stack exchange，提问作者LinguistLamar