0

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 调试器说 ERROR:appsel1 object required。当我使用 iexplorer 调试器查看它的数据时，它的数据是“空的”而不是“{...}” ， 如果你需要更多代码告诉我，
谁能告诉我我做错了什么。

4

1 回答 1

0

来自MSDN

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

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

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

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

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

我想知道您是否可以进行选择折叠（wdCollapseStart），但这只是一个想法。

于 2011-08-11T13:09:19.230 回答