Word能否自动识别标题并应用对应样式，实现HTML转Word后生成带页码目录？

• 打开目标Word文档，按Ctrl+H调出「查找和替换」面板，点击「更多」，勾选「使用通配符」选项
• 应用Heading 1样式：
  • 查找内容输入^13[0-9]{1,}、（匹配以数字加顿号开头的段落，即1、2、这类一级标题格式）
  • 点击「替换为」输入框，无需输入内容，点击面板下方「格式」-「样式」，选择「标题1（Heading 1）」后确认，点击「全部替换」
• 应用Heading 2样式：
  • 查找内容输入^13[0-9]{1,}.[0-9]{1,}、（匹配1.1、2.1这类二级标题格式）
  • 重复上一步操作，替换样式选择「标题2（Heading 2）」后点击全部替换
• 更高层级标题以此类推，Heading3对应查找^13[0-9]{1,}.[0-9]{1,}.[0-9]{1,}、，匹配1.1.1这类三级标题格式，替换为对应层级的标题样式即可
• 所有样式应用完成后，在文档开头插入目录，按F9选择「更新整个目录」，即可自动生成带页码的完整目录

无VBA基础也可直接按步骤操作：

• 按Alt+F11打开VBA编辑器，在左侧项目面板右键点击你的文档名称，选择「插入」-「模块」
• 将以下代码完整粘贴到弹出的模块编辑窗口中：

Sub 自动应用标题样式()
    Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs
        '匹配一级标题：数字+顿号开头
        If para.Range.Text Like "#、*" Or para.Range.Text Like "##、*" Then
            para.Style = wdStyleHeading1
        '匹配二级标题：数字.数字+顿号开头
        ElseIf para.Range.Text Like "#.#、*" Or para.Range.Text Like "##.#、*" Or para.Range.Text Like "#.##、*" Or para.Range.Text Like "##.##、*" Then
            para.Style = wdStyleHeading2
        '匹配三级标题：数字.数字.数字+顿号开头
        ElseIf para.Range.Text Like "#.#.#、*" Then
            para.Style = wdStyleHeading3
        '需要更高层级可按以上语法自行新增规则
        End If
    Next para
    MsgBox "所有标题样式应用完成"
End Sub

• 按F5直接运行宏，650页文档预计10-20秒即可处理完成，收到完成提示后关闭VBA编辑器回到Word即可
• 如需导出PDF，直接选择「另存为」，文件格式选PDF即可，导出的PDF会自动保留目录、页码和所有样式

注意：如果你的标题编号后没有顿号，是空格或其他分隔符，将查找内容或VBA代码里的「、」替换为实际的分隔符即可

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