自动使用 Word 2010 生成文档

Question

该网络应用程序已经在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 调试器查看其数据时，其数据为“空”而不是“{...}”
谁能告诉我我做错了什么
如果您需要更多代码，请告诉我。

Answer 1

来自 MSDN

应用此方法后，选择范围将扩大以包括新的
文本。

如果您将此方法用于引用整个内容的选择
段落，文本插入到结束段落标记（
文本将出现在下一段的开头）。插入
段落末尾的文本，确定结束点并
从此位置减 1（段落标记为一个字符）。

但是，如果选择以段落标记结束，也会发生这种情况
作为文档的结尾，Microsoft Word 在之前插入文本
最后的段落标记而不是创建一个新的段落
文档结束。

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

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

我想知道您是否可以执行 Selection Collapse(wdCollapseStart) 但这只是一个想法。