Existe uma maneira de adicionar cabeçalhos e rodapés às células de uma tabela do Word?

Question

Tenho dados em uma tabela que gostaria de imprimir e recortar. No entanto, quero acompanhar onde eles estavam na mesa depois de cortá-los. Existe uma maneira de adicionar um cabeçalho/rodapé dentro de uma célula para que eu possa colocar "1a"/"1b"/etc. em cada célula? Eu tenho centenas de células de dados, então se houver uma maneira de escrevê-los como uma fórmula (como números de páginas em cabeçalhos/rodapés para páginas inteiras), eu adoraria fazer isso também!

Obrigado!

Answer 1

NÃOnão há como fazer isso no Word.

Nem mesmo o conceito de endereço de célula existe no Word.

Mesmo com uma macro seria bastante desafiador, pois o VBA não funciona bem com tabelas no Word.

Answer 2

Embora seja verdade que as células da tabela não têm rodapés no Word, o código a seguir insere coordenadas de células conectadas (ou seja, não atualizáveis) no canto inferior direito de cada célula na primeira tabela de uma seleção. CAVEAT: Só executei o código em tabelas simples não aninhadas. Além disso, o código fazNÃOinclua qualquer tratamento de erros, portanto, faça backup do seu trabalho, etc.

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