查找文本并添加到TOC

Question

我在Excel中有两列，包含多个报表的报表位置和标题，我在VBA代码中加载到一个数组中，然后我循环浏览这些文件并将它们插入到word文档中，接下来我想找到每个标题使用word文件，将样式更改为标题1，以便将其添加到TOC（是否可以在不更改样式的情况下添加到TOC？）。以下是代码，它不能像我预期的那样工作。

For i = 1 To numfiles
      wd.Selection.Find.Execute FindText:=ArTOC(i, 3)
       wd.Selection.Style = ("Heading 1")
       wd.Selection.TypeParagraph
Next

我非常感谢有关如何使其发挥作用的任何指示。

由于