自动化word 2010以生成文档

Question

网页应用程序已经在office2007上完成了，我需要转换它，这样它才能在office2010中工作。我能够转换代码的头生成器部分，但我对文档本身的正文有问题。代码从" data“文档复制数据并将其粘贴到生成的文档中。

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调试器查看它的数据时，它的数据是“空的”，而不是"{...}“

有人能告诉我我哪里做错了吗？

如果你需要更多的代码，请告诉我。

Answer 1

来自MSDN

应用此方法后，所选内容将扩展为包括新文本。

如果对引用整个段落的选定内容使用此方法，则文本将插入到结束段落标记之后(文本将显示在下一段落的开头)。要在段落末尾插入文本，请确定结束点并从此位置减去1(段落标记为一个字符)。

但是，如果所选内容以恰好也是文档末尾的段落标记结束，Microsoft Word会在最后一个段落标记之前插入文本，而不是在文档末尾创建新段落。

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

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

我想知道你是否可以做一个选择折叠(WdCollapseStart)，但这只是一个想法。