Automation 自动生成word 2010文档

webapp已经在office2007上完成了，我需要将其转换为office2010。 我能够转换代码的标题生成器部分，但是我对文档本身的主体有问题。代码从数据文档复制数据并将其粘贴到生成的文档中

appword.activewindow.activepane.view.seekview = 0
    'set appsel1 = appword.activewindow.selection
    set appsel1 = appword.window(filepath).selection        -that is the original one
    appdoc1.bookmarks("b1").select
    appword.selection.insertafter("some text")
    appsel1.endkey(6)         -the code stops here
    appword.selection.insertafter("some other text")

iexplorer调试程序显示错误：需要appsel1对象。当我使用iexplorer调试器查看它的数据时，它的数据是空的，而不是{…} 谁能告诉我我做错了什么 如果您需要更多的代码，请告诉我。

来自

应用此方法后，选择将展开以包括新的 文本

如果将此方法用于引用整个 段落中，文本插入到结尾段落标记后 文本将出现在下一段的开头。插入 文本在段落末尾，确定结束点和 从该位置减去1，段落标记为一个字符

但是，如果选择以段落标记结束，也会发生这种情况 作为文档的结尾，Microsoft Word会在 最后一段标记，而不是在 文件结束

此外，如果所选内容是书签，Word将插入指定的 文本，但不扩展所选内容或书签以包含 新文本

所以我怀疑您仍然没有选定的文本

---

我想知道您是否可以选择CollapsewdCollapseStart，但这只是一个想法。

它应该选择word office 2007工作的文件中的所有文本