¿Existe alguna forma de agregar encabezados y pies de página a las celdas de una tabla de Word?

Question

Tengo datos en una tabla que me gustaría imprimir y recortar. Sin embargo, quiero realizar un seguimiento de dónde estaban en la tabla después de cortarlos. ¿Hay alguna manera de agregar un encabezado/pie de página dentro de una celda para poder poner "1a"/"1b"/etc. en cada celda? Tengo cientos de celdas de datos, así que si hay una manera de escribirlos como una fórmula (como números de página en encabezados/pies de página para páginas completas), ¡realmente me encantaría hacerlo también!

¡Gracias!

Answer 1

NONo hay manera de hacer eso en Word.

Ni siquiera el concepto de dirección de celular existe en Word.

Incluso con una macro sería todo un desafío ya que VBA no funciona bien con tablas en Word.

Answer 2

Si bien es cierto que las celdas de las tablas no tienen pies de página en Word, el siguiente código inserta coordenadas de celda cableadas (es decir, no actualizables) en la esquina inferior derecha de cada celda en la primera tabla de una selección. ADVERTENCIA: Solo he ejecutado el código en tablas simples no anidadas. Además, el código haceNOincluya cualquier manejo de errores, así que asegúrese de hacer una copia de seguridad de su trabajo, 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