求助：修复Word VBA宏复制指定页面N次却复制全文档的问题

你的代码核心问题在于选中目标页面的逻辑错误：Selection.Extend无法精准选中整页内容，导致后续复制操作错误地覆盖了文档剩余部分。以下是修复后的完整代码及关键修改说明：

修复后的代码 #

Sub DuplicatePage()
    Dim numOfCopies As Integer
    Dim pageNumber As Integer
    Dim i As Integer
    Dim targetRange As Range
    
    ' 询问用户复制次数
    numOfCopies = InputBox("请输入要复制的次数:")
    ' 询问用户目标页码
    pageNumber = InputBox("请输入要复制的页码:")
    
    ActiveDocument.Activate
    
    ' 验证页码有效性
    If pageNumber > ActiveDocument.ComputeStatistics(wdStatisticPages) Then
        MsgBox "输入的页码超过文档总页数，请输入有效页码。"
        Exit Sub
    End If
    
    ' 精准选中目标页面内容
    Set targetRange = ActiveDocument.Content
    With targetRange
        ' 定位到目标页开头
        .GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=pageNumber
        ' 定位到下一页开头的前一个字符，即当前页末尾
        .GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=pageNumber + 1
        .MoveStart wdCharacter, -1
        ' 调整范围为当前页的完整内容
        .SetRange .Start - (.End - .Start), .Start
    End With
    targetRange.Copy
    
    ' 循环执行复制操作
    For i = 1 To numOfCopies
        ' 在文档末尾插入分页符并粘贴内容
        ActiveDocument.Content.End.InsertBreak Type:=wdPageBreak
        ActiveDocument.Content.End.PasteAndFormat (wdFormatOriginalFormatting)
    Next i
End Sub

关键修改点 #

• 替换选中逻辑：用Range对象替代Selection，通过定位页面边界精准选中目标页内容，避免误选其他部分。
• 优化页面定位：通过两次GoTo指令确定目标页的起止位置，确保只选中指定页面的所有内容。
• 调整粘贴位置：每次复制后将内容粘贴到文档末尾，避免干扰原有内容的格式和结构。

内容的提问来源于stack exchange，提问作者Sujith Gopakumar Dhanalekshmi