☰

有沒有辦法在Word表格中的儲存格中新增頁首和頁尾？

tag-icon • tag-icon microsoft-word microsoft-word-2010 headers
有沒有辦法在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

相關內容