如何通过VBA重定义Word中的内置Normal样式？

你遇到的报错原因很明确：Normal是Word的内置样式，不能使用Styles.Add方法去创建或覆盖它，直接引用已存在的内置样式进行修改即可。

以下是正确的VBA代码，无需依赖外部模板，直接在目标文档中修改内置样式：

Sub ModifyBuiltInNormalStyle()
    ' 直接引用内置的Normal样式
    With ActiveDocument.Styles(wdStyleNormal).Font
        .Name = "3Dumb"                     ' 测试用字体
        .Size = 10
        .Bold = True
        .Italic = True
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        ' 可根据需求添加更多字体属性设置
    End With
    
    ' 可选：开启样式自动更新
    ActiveDocument.Styles(wdStyleNormal).AutomaticallyUpdate = True
End Sub

补充说明 #

• 使用wdStyleXXX常量引用内置样式（如wdStyleHeading1对应标题1），比字符串名称更可靠，能避免因语言版本差异或拼写错误导致的问题
• 若要修改其他内置样式，只需替换代码中的样式常量即可
• 这段代码直接在当前文档内修改样式定义，完全不需要依赖外部模板，解决你部署时的模板缺失顾虑

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