EXCEL给WORD文件添加目录

ysjhxh

附件如下：
添加目录.zip (27.35 KB, 下载次数: 5)

2019-11-8 09:04 上传

点击文件名下载附件

想用excel打开同路径下的一个文件，并添加目录。用代码实现不了，请教大佬给纠正一下问题。
代码如下：
Private Sub CommandButton1_Click()
    Dim appWD As Word.Application
    Dim doc As Document
    Set appWD = CreateObject("Word.Application")
    appWD.Visible = True
    Set appWD = GetObject(, "Word.Application")
    Set doc = GetObject(ThisWorkbook.Path & "\" & "测试文档.docx")
    appWD.Visible = True
ActiveDocument.TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
            True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
            LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _
            UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
            True
ActiveDocument.TablesOfContents(1).TabLeader = wdTabLeaderDots
ActiveDocument.TablesOfContents.Format = wdIndexIndent
End Sub

ysjhxh

早上好，请教各位老师。

ysjhxh

额。。。。不要石沉大海啊。。。

ysjhxh

感觉是activedocument这里的问题，有老师可以解答一下吗？

jiangxiaoyun

这样？

ysjhxh

jiangxiaoyun 发表于 2019-11-8 12:10
这样？

对的！就是要普通目录就可以了

ysjhxh

jiangxiaoyun 发表于 2019-11-8 12:10
这样？

老师可以提供一下代码改了哪里吗？

jiangxiaoyun

ActiveDocument.TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
            True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
            LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _
            UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
            True
ActiveDocument.TablesOfContents(1).TabLeader = wdTabLeaderDots
ActiveDocument.TablesOfContents.Format = wdIndexIndent

代码不用改，直接放word里执行，搞个excel控制word，纯属多余。word又不是不能用vba

ysjhxh

jiangxiaoyun 发表于 2019-11-8 13:44
ActiveDocument.TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
            T ...

老师，我是用一个繁杂的EXCEL数据系统，导出各种环节的数据到WORD中，最终插入目录。所以需要把代码写到excel里。
是有这个需要。

ysjhxh

没有老师可以解答吗？请教各位