Excel VBA自动设置Word文档Lines (simple)格式求助

你可以通过Word对象模型的ApplyStyleSet2方法，直接在Excel VBA中为打开的Word文档应用“Lines (simple)”样式集。

完整代码示例 #

假设你已有打开Word文档的基础代码，只需添加样式应用的语句：

Sub OpenHTMLInWordAndApplyStyle()
    Dim objWord As Object
    Dim objDoc As Object
    Dim htmlFilePath As String
    
    ' 替换为你的HTML文件路径
    htmlFilePath = "C:\Temp\your_file.html"
    
    ' 创建Word对象并打开HTML文档
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Open(htmlFilePath)
    
    ' 将Word置于前台
    objWord.Visible = True
    objWord.Activate
    
    ' 应用"Lines (simple)"样式集
    objDoc.ApplyStyleSet2 "Lines (simple)"
    
    ' 释放对象（可选）
    Set objDoc = Nothing
    Set objWord = Nothing
End Sub

关键说明 #

• ApplyStyleSet2是Word对象模型中专门用于应用内置样式集的方法，参数需严格匹配样式集的名称（包括空格和括号）。
• 如果你的VBA项目引用了Microsoft Word xx.x Object Library（早期绑定），可以将变量类型声明为Word.Application和Word.Document，代码逻辑完全一致。
• 确保目标Word版本支持该样式集，“Lines (simple)”是Office主流版本（如2016及以后）的内置样式集。

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