Question

在我的Word文档中，我有多个表位于不同的页面中。我需要在Excel中导入已经使用我在Macro to export MS Word tables to Excel sheets找到的示例代码完成的表格。

但是我打算将表的页码（在Word中）导入Excel并将其设置为工作表名称，但在搜索后数小时内我无法在Internet中找到任何内容。

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

我知道要将它设置为工作表名称，我们使用命令

Activesheet.Name="insert_page_number"

但是我们如何将从Word导入的表的页码导入Excel？

Answer 1

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

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表的页面编号导入Excel

1 个答案: