移动光标到word文档末尾的问题

[jsg1978]

在实际中打开一个word文件后，需要将光标移动到文档末尾，插入空白页，在写入另外的内容。
现用代码如下：
wordapp.Documents.open(gs_filesavedir + "\合并文件.doc")
wordapp.Selection.endkey()
wordapp.Selection.insertbreak()
运行的结果是文件打开后，在文件头插入了空白页。
现在的问题是 wordapp.Selection.endkey()这个应该怎么写？或者该用什么办法将光标定位到文件末尾。

[A啦Dbit]

Selection.InsertNewPage() 应该用这个吧

[A啦Dbit]

这样试试 Selection.EndKey (6) Selection.InsertNewPage() Selection.TypeText ("456")

[WorldMobile]

这是WORD里，相当于按了END键。 Selection.EndKey 方法 将选定内容移动或扩展到指定单位的末尾。 语法 表达式.EndKey(Unit, Extend) 表达式 必选。一个代表 Selection 对象的变量。 参数 名称 必选/可选 数据类型 说明 Unit 可选 Variant 移动或扩展选定内容时基于的单位。可以是 WdUnits 常量之一。默认值为 wdLine。 Extend 可选 Variant 指定移动所选内容的方式。可以是任意 WdMovementType 常量。如果该参数值为 wdMove，则所选内容折叠到一个插入点中并移至指定单位的末尾。如果该参数值为 wdExtend，则所选内容的末尾扩展到指定单位的末尾。默认值为 wdMove。 说明 该方法返回表明选定内容或活动结尾实际移动的字符数的整数；如果移动不成功，则返回 0（零）。 示例 本示例将选定内容移动到当前行尾，然后把移动的字符数赋给 pos 变量。 Visual Basic for Applications pos = Selection.EndKey(Unit:=wdLine, Extend:=wdMove) 本示例将所选内容移至当前表格列的开始，然后将所选内容扩展至列的末尾。 Visual Basic for Applications If Selection.Information(wdWithInTable) = True Then Selection.HomeKey Unit:=wdColumn, Extend:=wdMove Selection.EndKey Unit:=wdColumn, Extend:=wdExtend End If 本示例将所选内容移至当前文字部分的末尾。如果所选内容位于文档正文部分，则本示例将所选内容移至文档的末尾。 Visual Basic for Applications Selection.EndKey Unit:=wdStory, Extend:=wdMove

[WorldMobile]

wordapp.Selection.endkey(6,0) wdStory 为 6 wdMove 为0