WORD OLE与TOC

Question

在使用ole-自动化将内容插入到现有word文档中时，我遇到了一个有趣的问题，使用如下代码：

WordApp.Selection.HomeKey(unit := wdStory);
if FileExists(s) then
  WordApp.Selection.InsertFile(Filename := s, ConfirmConversions := false, 
  Link := false, Attachment := false);

这在大多数word文档中运行得很好，除了我们在文档中获得“自动内容表”作为第一个元素的那些文档。在这种情况下，自动化崩溃的原因是：

此操作在块级XML之外无效。

我尝试过其他一些功能，比如：

WordApp.Selection.InsertText('Test') / (#13#10)
WordApp.Selection.InsertBreak(Page/Line)

结果也是一样的。当第一个元素是自动表时，光标位置似乎是无效的。

有什么办法帮我解决这个问题吗？

Answer 1

您需要确保在文档的开头插入内容，并且第一段不包含内容控件(围绕ToC的内容)。

家庭钥匙并不总是把你带到最开始的地方。在文档开头有一个目录的情况下，按主键将您带到包含内容表的content控件的开头。为了取得领先地位，您可以将End (和Start)属性的Selection设置为0。此外，你必须在目录前插入一个段落：

WordApp.Selection.Start = 0
WordApp.Selection.End = 0
WordApp.Selection.InsertParagraphBefore