多区域Word安装环境下VBA检测内置样式的方法问询

在多语言区域的Word环境中，内置样式的显示名称会随语言变化（如英文的Normal在德语中显示为Standard），直接对比样式名称会导致代码失效。可靠的解决方案是利用**WdBuiltinStyle枚举的固定标识**，而非样式的本地化显示名称。

方法1：直接对比WdBuiltinStyle枚举成员 #

WdBuiltinStyle枚举的每个成员对应一个内置样式的唯一系统标识，其数值和绑定的样式在所有语言版本的Word中保持一致。直接用枚举成员与选区样式对比即可：

Sub CheckIfNormalStyle()
    ' 检测当前选区是否为Normal/Standard样式
    If Selection.Range.Style = wdStyleNormal Then
        MsgBox "当前选区使用内置的Normal/Standard样式"
    Else
        MsgBox "当前选区未使用该内置样式"
    End If
End Sub

方法2：通过Style.Index匹配枚举数值 #

如果需要更严谨的判断（比如先确认是内置样式），可以结合Style.BuiltIn属性和Style.Index（内置样式的Index值等于对应WdBuiltinStyle枚举的数值）：

Sub VerifyBuiltInStyle()
    Dim targetStyle As WdBuiltinStyle
    targetStyle = wdStyleHeading1 ' 指定要检测的内置样式
    
    With Selection.Range.Style
        If .BuiltIn Then
            ' 对比Index与目标枚举值
            If .Index = targetStyle Then
                MsgBox "当前选区是内置标题1样式"
            Else
                MsgBox "当前选区为内置样式，但不是标题1"
            End If
        Else
            MsgBox "当前选区使用的是自定义样式"
        End If
    End With
End Sub

关键说明 #

• 避免使用Style.NameLocal（本地化名称）进行判断，该属性会随Word区域设置变化。
• WdBuiltinStyle枚举覆盖了所有Word内置样式（如标题、正文、列表等），可在VBA编辑器的对象浏览器中查看完整成员列表。

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