从excel VBA将目录添加到word Doc

Question

我正在尝试操作 Excel 中的单词，我很难在 excel 中建立单词范围。然后，一旦我建立了该范围，我想在该范围中插入一个目录。

这是我的代码的 sn-p：

Dim wordApp As Object
Set wordApp = CreateObject("word.application")
Set wDoc = wordApp.Documents.Open(fileName:=templateLocation, ReadOnly:=False)

Dim TOCRange As Word.Range                'establishing my word range
Set TOCRange = wDoc.Paragraphs(3).Range
    TOCRange.SetRange Start:=TOCRange.Start, End:=wDoc.Paragraphs(3).Range.End

'inserting the table of contents ERROR

wDoc.tableOfContents.Add Range:=TOCRange, RightAlignPageNumbers:=True, _
 UseHeadingStyles:=True, IncludePageNumbers:=True, UseHyperlinks:=False, _
 HidePageNumbersInWeb:=True, UseOutlineLevels:=False

这导致我收到运行时错误“438” -"对象不支持该属性或方法。

从 excel 中调用 word 宏时，我可以很好地使用此宏，但在这种情况下，我似乎无法识别文档对象。这需要完全从 Excel 表单中完成，因为我的模板文档中不能包含任何 vba 代码。

任何有关此主题的信息或资源将不胜感激。每天都在努力变得更好！

Answer 1

您需要在 Word 中区分文档和模板。这是行话。在 Word 中，模板是一种非常特殊的文件。您通常不打开模板，而是使用 Documents.Add 方法基于模板添加文档。这是该方法的参考。 https://docs.microsoft.com/en-us/office/vba/api/word.documents.add?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Den-US%26k%3Dk(vbawd10.chm158072846)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue%26f%3D255%26MSPPError%3D-2147217396

在这方面我确实有一个问题。为什么不直接在模板中添加一个 TOC 字段而不是使用代码添加它？

我对您的代码进行了一些操作，只是在一个新文档中创建了一个 TOC，然后我将其保存为 Deleteme.docx。我希望这有帮助。这需要引用 Word 对象模型。

    Sub AddTOC()
        Dim wordApp As Word.Application
        Dim TOCRange As Word.Range                'establishing my word range
        Dim wdoc As Word.Document
        '
        Set wordApp = GetObject(Class:="Word.Application")
        'Set wordApp = CreateObject("word.application")
        Set wdoc = wordApp.Documents.Add 'Open(Filename:=templateLocation, ReadOnly:=False)
        Set TOCRange = wdoc.Range
        TOCRange.Paragraphs.Add
        TOCRange.Paragraphs.Add
        TOCRange.Paragraphs.Add
        Set TOCRange = wdoc.Paragraphs(3).Range
        wdoc.TablesOfContents.Add Range:=TOCRange ' This does the same as your code
        wdoc.SaveAs2 Filename:="Deleteme.docx"
        wdoc.Close
        Set TOCRange = nothing
        Set wdoc = nothing
        Set wordApp = nothing
    '    Debug.Print wdoc.Name
    '    Set TOCRange = wdoc.Paragraphs(3).Range
    '        TOCRange.SetRange Start:=TOCRange.Start, End:=wdoc.Paragraphs(3).Range.End
    '
    '    'inserting the table of contents ERROR
    '
    '    wdoc.tableOfContents.Add Range:=TOCRange, RightAlignPageNumbers:=True, _
    '     UseHeadingStyles:=True, IncludePageNumbers:=True, UseHyperlinks:=False, _
    '     HidePageNumbersInWeb:=True, UseOutlineLevels:=False
    End Sub