如何将Word文档选区移至末尾，避免新增页面时文本移位？

我有一个包含文本的Word文档，打开时选区位于文档第一行，运行下方代码添加新页面时全部文本会移至新页面。请问如何将选区移至文档末尾，使新增页面时文本不会移位？

补充：尝试了以下代码但无效：

• objSelection.EndKey Unit:=wdStory, Extend:=wdMove
• objWord.Documents("letters.docx").Selected.EndKey Unit:=wdStory, Extend:=wdMove

Sub exceltoword()

Dim objWord As Object

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open "C:\Users\WORK\Desktop\letters.docx"
objWord.Activate
Set objSelection = objWord.Selection

'**MOVE TO END OF DOCUMENT BEFORE ADDING NEW PAGE**
'tried objSelection.EndKey Unit:=wdStory, Extend:=wdMove --- does not work
'tried objWord.Documents("letters.docx").Selected.EndKey Unit:=wdStory, Extend:=wdMove --- does not work
objSelection.InsertNewPage

objWord.Application.Quit
Set objWord = Nothing

End Sub

问题核心是你用了后期绑定（CreateObject），这种模式下Word的内置常量（比如wdStory、wdMove）不会被VBA自动识别，会被当作未定义变量（默认值为0），导致EndKey方法执行失效。

提供两种可行解决办法：

方法1：手动定义常量数值 #

在代码开头添加Word内置常量的对应数值（wdStory为6，wdMove为0），让后期绑定的代码能正确识别常量：

Sub exceltoword()
    ' 手动定义Word内置常量（后期绑定必须）
    Const wdStory As Integer = 6
    Const wdMove As Integer = 0
    
    Dim objWord As Object
    Dim objDoc As Object
    Dim objSelection As Object

    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    ' 保存文档对象引用，避免重复调用Documents集合
    Set objDoc = objWord.Documents.Open("C:\Users\WORK\Desktop\letters.docx")
    objWord.Activate
    Set objSelection = objWord.Selection

    ' 移动选区到文档末尾
    objSelection.EndKey Unit:=wdStory, Extend:=wdMove
    ' 在末尾插入新页面
    objSelection.InsertNewPage

    ' 可选：保存文档，根据需求决定是否添加
    objDoc.Save
    objWord.Quit
    ' 释放对象避免内存泄漏
    Set objSelection = Nothing
    Set objDoc = Nothing
    Set objWord = Nothing
End Sub

方法2：改用早期绑定 #

如果你的开发环境可以引用Word对象库，用早期绑定能直接识别内置常量，代码更简洁：

1. 打开VBA编辑器 → 顶部菜单「工具」→「引用」→ 勾选「Microsoft Word xx.x Object Library」（xx.x对应你的Word版本）
2. 修改代码如下：

Sub exceltoword()
    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim objSelection As Word.Selection

    Set objWord = New Word.Application
    objWord.Visible = True
    Set objDoc = objWord.Documents.Open("C:\Users\WORK\Desktop\letters.docx")
    objWord.Activate
    Set objSelection = objWord.Selection

    objSelection.EndKey Unit:=wdStory, Extend:=wdMove
    objSelection.InsertNewPage

    objDoc.Save
    objWord.Quit
    Set objSelection = Nothing
    Set objDoc = Nothing
    Set objWord = Nothing
End Sub

另外需要注意：你之前尝试的objWord.Documents("letters.docx").Selected是错误写法，Word文档对象没有Selected属性，正确获取选区的方式是objWord.Selection。

内容的提问来源于stack exchange，提问作者k1dr0ck