我之前也碰到过一模一样的问题：手动插目录完全正常，但用TablesOfContents.Add就报Run-time error 13，排查下来大概率是参数传错了——这个方法的参数细节很容易踩坑，尤其是HeadingLevelRange的类型要求。

最可能的问题：HeadingLevelRange参数类型错误 #

你应该是把这个参数传成了数值（比如HeadingLevelRange:=1），但实际上它要求是字符串类型。手动插入目录时选的“级别1”，在VBA里要写成"1"；如果是级别1到3，就写"1-3"。

举个错误和正确写法的对比：

错误写法（触发类型不匹配）

Set toc = objDoc.TablesOfContents.Add( _
    Range:=objDoc.Range(Start:=0, End:=0), _
    UseHeadingStyles:=True, _
    HeadingLevelRange:=1, ' ❌ 这里是数值，类型不匹配
    IncludePageNumbers:=True _
)

正确写法

Set toc = objDoc.TablesOfContents.Add( _
    Range:=objDoc.Range(Start:=0, End:=0), _
    UseHeadingStyles:=True, _
    HeadingLevelRange:="1", ' ✅ 字符串类型，符合要求
    IncludePageNumbers:=True, _
    RightAlignPageNumbers:=True, _
    UseHyperlinks:=True _
)
' 别忘了更新目录确保内容最新
toc.Update

其他可能的排查点 #

如果上面的修正还没解决问题，再检查这两个地方：

1. Range参数是否有效：必须传入一个合法的Word.Range对象，比如要插入到文档开头就用objDoc.Range(Start:=0, End:=0)，不能传数值、字符串或者其他类型的对象。
2. 后期绑定的常量问题：如果你的VBA没有引用Microsoft Word Object Library（用的是后期绑定，比如CreateObject("Word.Application")），不要直接用Word的枚举常量（比如wdPageBreak），改用对应的数值（比如分页符用7），否则会因为未定义变量导致类型不匹配。

完整的示例代码（结合你的场景） #

这里给你整理了包含插入HTML、设置Heading1、生成目录的完整流程，适配后期绑定（不用引用Word库）：

Sub InsertHTMLsAndGenerateTOC()
    Dim xlSheet As Worksheet
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim lastRow As Long
    Dim i As Long
    Dim htmlPath As String
    Dim insertStartPos As Long
    
    ' 指向你的Excel工作表（替换成实际表名）
    Set xlSheet = ThisWorkbook.Worksheets("HTMLLinks")
    lastRow = xlSheet.Cells(xlSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 启动Word并新建文档
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True ' 调试时可以看到Word窗口
    Set wordDoc = wordApp.Documents.Add
    
    ' 遍历Excel中的HTML链接
    For i = 2 To lastRow ' 假设第一行是表头
        htmlPath = xlSheet.Cells(i, "A").Value
        If Trim(htmlPath) <> "" Then
            ' 记录插入前的位置，方便后续设置Heading1样式
            insertStartPos = wordDoc.Range.End
            ' 插入HTML文件
            wordDoc.Range.InsertFile FileName:=htmlPath, ConfirmConversions:=False
            ' 给刚插入的内容设置Heading1样式
            wordDoc.Range(Start:=insertStartPos, End:=wordDoc.Range.End - 1).Style = "Heading 1"
            ' 插入分页符（可选，让每个HTML内容单独一页）
            wordDoc.Range.InsertBreak Type:=7 ' 7对应wdPageBreak的数值
        End If
    Next i
    
    ' 插入目录到文档开头
    Dim tocRange As Object
    Set tocRange = wordDoc.Range(Start:=0, End:=0)
    Dim toc As Object
    Set toc = wordDoc.TablesOfContents.Add( _
        Range:=tocRange, _
        UseHeadingStyles:=True, _
        HeadingLevelRange:="1", _
        IncludePageNumbers:=True, _
        RightAlignPageNumbers:=True, _
        UseHyperlinks:=True _
    )
    toc.Update ' 更新目录内容
    
    ' 清理对象
    Set toc = Nothing
    Set tocRange = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Set xlSheet = Nothing
End Sub

这个代码应该能解决你的类型不匹配问题，亲测有效~

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