Word宏开发求助：将选中内容中化学公式的数字设为下标

我太懂这种需求了——处理化学文档时，总得把H2O改成H₂O、H2SO4改成H₂SO₄，手动一个个改下标真的崩溃😅。你写宏的思路完全对，只是在代码细节上踩了两个小坑，我帮你修正过来：

先说说你原来代码的问题 #

1. 一开始把Char定义成String不行：Selection.Characters返回的是Word的字符Range对象，不是单纯的字符串，所以For Each循环的控制变量必须是能容纳对象的类型（比如Range或Variant）。
2. 改成Variant后没效果，是因为你写的Char = Char.Font.Subscript逻辑错了——这行代码是把Font.Subscript的布尔值（True/False）赋值给变量Char，根本没修改字符的格式属性。

修正后的可用代码 #

Sub SubscriptNumbers()
    Dim charObj As Range
    '遍历选中内容里的每一个字符对象
    For Each charObj In Selection.Characters
        '判断当前字符是否为数字
        If IsNumeric(charObj.Text) Then
            '将该字符设置为下标
            charObj.Font.Subscript = True
        End If
    Next charObj
End Sub

代码说明 #

• 用Range类型的变量charObj来接收每个字符，这样才能直接操作它的格式属性
• IsNumeric函数比直接判断字符范围（Char >= "0" And Char <= "9"）更稳妥，能识别所有标准数字字符
• 直接给charObj.Font.Subscript赋值True，这才是真正修改字符格式的正确写法

额外小提示 #

你担心的“文档里其他不应设为下标的数字”完全不用怕——这个宏只会处理你选中的内容，选哪改哪，精准控制范围，完美适配你的需求。

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