请求优化Word宏：一键为文档所有数字执行LtrRun命令

我需要给文档里所有数字执行LtrRun命令，手动录制了EN_digits宏，但这个宏只能处理固定次数的数字，得多次运行才能覆盖全文档。现在需要修改宏，实现一键处理所有数字。

修改后的宏代码 #

Sub EN_digits()
    ' 一键为全文档所有数字应用LtrRun命令
    Dim findRange As Range
    Set findRange = ActiveDocument.Content
    
    With findRange.Find
        .ClearFormatting
        .Text = "[0-9]"
        .MatchWildcards = True
        .Forward = True
        .Wrap = wdFindStop ' 找到文档末尾即停止
    End With
    
    ' 循环查找所有数字并执行LtrRun
    Do While findRange.Find.Execute
        WordBasic.LtrRun
        ' 折叠查找范围，避免重复处理同一位置
        findRange.Collapse wdCollapseEnd
    Loop
End Sub

修改说明 #

原来录制的宏是手动重复了几十次查找和跳转操作，只能处理有限个数字，所以得多次运行。修改后的宏通过循环自动查找全文档所有数字，找到一个就执行一次LtrRun，直到把所有数字都处理完，真正实现一键操作：

• 以整个文档内容作为查找范围，确保不会漏掉任何数字
• 用循环替代重复代码，自动遍历所有匹配项
• 每次处理后调整查找位置，避免重复处理同一个数字

效果对比 #

• 运行前：数字未应用LtrRun命令，排版存在方向或对齐问题
• 运行后：所有数字都正确应用LtrRun命令，排版符合从左到右的规范

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