如何通过VBA适配Word XP 为文档内希伯来语字符设置指定字号

原代码报错原因 #

原代码直接调用未限定上下文的Range对象，Word XP的VBA对象模型中没有默认绑定到活动文档内容，因此触发"对象未选中"报错。

核心修改点 #

• 显式指定操作范围，支持自定义选中区域或处理整个活动文档，兼容Word XP对象调用规范
• 移除无关的其他语种检测逻辑，仅匹配指定的无元音基础希伯来语Unicode范围（十进制1488-1514）
• 将原高亮逻辑替换为字号设置，可自行调整目标字号参数
• 优化字符编码判断逻辑，适配Word XP的VBA语法特性，避免低版本不兼容的属性调用

完整可运行代码 #

' 主运行入口，调整希伯来语文本字号
Sub SetHebrewFontSize()
    Dim docRange As Range
    Dim charRange As Range
    Dim targetFontSize As Single
    Dim charCode As Long
    
    ' 自定义参数：设置希伯来语目标字号，单位为磅，可自行修改数值
    targetFontSize = 14
    
    Application.ScreenUpdating = False
    
    ' 如需仅处理选中内容，将下一句替换为 Set docRange = Selection.Range 即可
    Set docRange = ActiveDocument.Content
    
    For Each charRange In docRange.Characters
        charCode = AscW(charRange.Text)
        ' 判断是否为基础希伯来语字符
        If charCode >= 1488 And charCode <= 1514 Then
            charRange.Font.Size = targetFontSize
        End If
    Next
    
    Application.ScreenUpdating = True
    MsgBox "希伯来语字符字号调整完成", vbInformation
End Sub

使用说明 #

• 打开目标文档后按Alt+F11打开VBA编辑器，插入模块后粘贴上述代码即可运行
• 可修改targetFontSize的数值自定义需要的目标字号
• 仅处理部分内容时，先选中对应区域，再将范围绑定代码替换为Set docRange = Selection.Range即可
• 代码无高版本专属API调用，可直接在Word XP环境下运行

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