VBA将Word表格的页码导入Excel

Sub ImportPageNumbers()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim wordTable As Object
    Dim excelSheet As Worksheet
    Dim pageNum As Integer
    Dim row As Integer
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("C:\Path\To\Your\Word\File.docx")
    
    ' 获取Word文档中的第一个表格
    Set wordTable = wordDoc.Tables(1)
    
    ' 在Excel中创建一个新工作表
    Set excelSheet = ThisWorkbook.Sheets.Add
    
    ' 设置Excel工作表的标题
    excelSheet.Range("A1").Value = "页码"
    
    ' 从Word表格中提取页码并导入Excel
    row = 2 ' 从第二行开始，第一行是标题
    For Each wordRow In wordTable.Rows
        pageNum = wordRow.Range.Information(wdActiveEndPageNumber)
        excelSheet.Cells(row, 1).Value = pageNum
        row = row + 1
    Next wordRow
    
    ' 关闭并保存Word文档
    wordDoc.Close SaveChanges:=False
    
    ' 退出Word应用程序
    wordApp.Quit
    
    ' 释放对象变量
    Set wordTable = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Set excelSheet = Nothing
    
    MsgBox "页码已成功导入Excel。"
End Sub