☰

Есть ли способ добавить верхние и нижние колонтитулы к ячейкам таблицы 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

Связанный контент