Word宏从Excel复制范围并粘贴到第#页

Sub CopyRangeFromExcelToPage()
    Dim ExcelApp As Object
    Dim ExcelWorkbook As Object
    Dim ExcelWorksheet As Object
    Dim ExcelRange As Object
    Dim WordDoc As Document
    Dim TargetPage As Integer
    
    ' 创建Excel应用程序对象
    Set ExcelApp = CreateObject("Excel.Application")
    
    ' 打开Excel文件
    Set ExcelWorkbook = ExcelApp.Workbooks.Open("C:\Path\To\Excel\File.xlsx")
    
    ' 选择Excel工作表
    Set ExcelWorksheet = ExcelWorkbook.Worksheets("Sheet1")
    
    ' 定义要复制的范围
    Set ExcelRange = ExcelWorksheet.Range("A1:B10")
    
    ' 获取Word文档对象
    Set WordDoc = ThisDocument
    
    ' 指定要粘贴的页码
    TargetPage = 2
    
    ' 将Excel范围复制到Word文档的指定页
    ExcelRange.Copy
    WordDoc.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=TargetPage
    WordDoc.Bookmarks("\page").Range.Paste
    
    ' 关闭Excel文件
    ExcelWorkbook.Close SaveChanges:=False
    
    ' 退出Excel应用程序
    ExcelApp.Quit
    
    ' 释放对象变量
    Set ExcelRange = Nothing
    Set ExcelWorksheet = Nothing
    Set ExcelWorkbook = Nothing
    Set ExcelApp = Nothing
    Set WordDoc = Nothing
End Sub