VBA 将 Word table 的页码导入 Excel

Question

在我的 Word 文档中，我有多个 table，它们位于不同的页面中。我需要在 Excel 中导入 table，这已经用我从 Macro to export MS Word tables to Excel sheets.

找到的示例代码完成了

但是我打算将 table（在 Word 中）的页码导入 Excel 并将其设置为 Sheet 名称，但我根本找不到任何东西经过数小时的搜索后在互联网上。

如何将Word中table的页码导入Excel？

我知道要将其设置为 Sheet 名称，我们使用命令

Activesheet.Name="insert_page_number"

但是我们如何将我们从Word中导入的table的页码导入到Excel中呢？

Answer 1

您可以使用 Range.Information(wdActiveEndPageNumber) 阅读页码。在您 link 的示例中，这将如下所示：

Dim pageNumber as Integer
Dim wdRange as Range
With .tables(TableNo)
    'copy cell contents from Word table cells to Excel cells
    For iRow = 1 To .Rows.Count
        For iCol = 1 To .Columns.Count
            Cells(iRow, iCol) = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text)
        Next iCol
    Next iRow

    ' get the page number of the first paragraph in the table
    pageNumber = .Range.Paragraphs(1).Range.Information(wdActiveEndPageNumber)

    ' write the page number below the table
    Cells(iRow + 1, 1) = "Page " & pageNumber
End With

VBA 将 Word table 的页码导入 Excel

VBA Import page number of Word table into Excel

excel

vba

ms-word

ms-office