自动化word 2010以生成文档

Question

webapp已经在office2007上完成了，我需要转换它以便它可以在office2010中运行。 我能够转换代码的头生成器部分，但我有doc本身的问题。代码从“数据”文档复制数据并将其粘贴到生成的文档中。

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 debuger说ERROR：需要appsel1对象。当我使用iexplorer调试器查看其数据时，其数据为“空”而不是“{...}” 任何人都可以告诉我我做错了什么 如果您需要更多代码告诉我。

Answer 1

来自MSDN

  

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

     

如果您将此方法与引用整个选项的选项一起使用   段落，文本插入结束段落标记后（   文本将出现在下一段的开头）。要插入   段落末尾的文字，确定结束点和   从此位置减去1（段落标记是一个字符）。

     

但是，如果选择结束时也会出现段落标记   作为文档的结尾，Microsoft Word之前插入文本   最后一段标记而不是创建一个新的段落   文件的结尾。

     

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

所以我怀疑你还没有选定的文字。

我想知道你是否可以选择崩溃（wdCollapseStart），但这只是一个想法。