有没有办法在 Word 表格的单元格中添加页眉和页脚?

有没有办法在 Word 表格的单元格中添加页眉和页脚?

我想要打印并剪切表格中的数据。但是,剪切后我想跟踪它们在表格中的位置。有没有办法在单元格内添加页眉/页脚,以便我可以在每个单元格中输入“1a”/“1b”/等?我有数百个单元格的数据,所以如果有办法将其写成公式(例如在页眉/页脚中输入整页的页码),我也很乐意这样做!

谢谢你!

答案1

在 Word 中没有办法实现这一点。

Word 中甚至不存在单元格地址的概念。

即使使用宏,这也将非常具有挑战性,因为 VBA 不能很好地处理 Word 中的表格。

答案2

虽然 Word 中的表格单元格确实没有页脚,但以下代码会在所选的第一个表格中的每个单元格的右下角插入硬连线(即不可更新)单元格坐标。注意:我只针对简单的非嵌套表格运行了该代码。此外,该代码确实不是包括任何错误处理,因此请确保备份您的工作等。

Sub InsertCellCoordinates()

    If Selection.Tables.count = 0 Then Exit Sub

    Dim tbl As Table
    Set tbl = Selection.Tables(1)

    Dim RowCntr As Integer
    Dim CellCntr As Integer
    Dim rran As Range

    For RowCntr = 1 To tbl.Rows.count
        For CellCntr = 1 To tbl.Rows(RowCntr).Cells.count
            Set rran = tbl.Rows(RowCntr).Cells(CellCntr).Range.Characters.Last
            rran.Collapse wdCollapseStart

            rran.InsertParagraph

            rran.InsertAfter Chr(RowCntr + &H40) & "." & CellCntr

            rran.Paragraphs.Last.Format.Alignment = wdAlignParagraphRight
        Next
    Next

End Sub

相关内容