Michael tiene una mesa bastante larga. Una columna de la tabla contiene caracteres de codificación como las letras c, b, x, etc. Se pregunta si hay alguna manera cuando imprime la tabla para imprimir solo aquellas filas que tienen un carácter de codificación específico en la columna. Por ejemplo, es posible que desee imprimir solo aquellas filas que contienen el código «c» en la columna de codificación.

Hay un par de enfoques que puede utilizar para abordar este problema.

Quizás el método más fácil sería copiar la tabla en una hoja de cálculo de Excel y luego filtrar los datos según los caracteres de la columna de codificación. Luego puede imprimir la hoja de trabajo filtrada y tener justo lo que desea.

Por supuesto, puede haber ocasiones en las que trabajar en Excel en lugar de Word no sea práctico o deseable. Por ejemplo, es posible que no tenga Excel o que tenga necesidades de formato que excedan lo que Excel puede proporcionar. En ese caso, simplemente podría ordenar su tabla en Word según el contenido de la columna de codificación. Luego, seleccione las filas de la tabla que contienen el código que desea imprimir (todas deben ser contiguas ya que ordenó la tabla) y elija imprimir. Sin embargo, al especificar qué imprimir, imprima solo la selección.

Otro posible enfoque es utilizar su tabla como fuente de datos para una combinación de correspondencia. No entraré en los pasos exactos que se deben usar al diseñar la combinación de correspondencia (se han tratado en otros WordTips), pero puede especificar que la combinación incluya solo aquellos que tengan el carácter deseado en la columna de codificación.

Por último, si necesita realizar esta impresión selectiva con bastante frecuencia, es posible que desee crear una macro para manejar la tarea. La forma más sencilla de hacer esto es que la macro cree un nuevo documento y copie las filas deseadas en ese documento.

Sub CopyTableRows()

Dim SourceDoc As Document     Dim r As Row     Dim iCol As Integer     Dim sPCode As String     Dim sTemp As String

iCol = 3        ' Set the coding column     sPCode = "C"    ' Set code to select (must be uppercase)



ScreenRefresh = False

Set SourceDoc = ActiveDocument      ' Get active document's name     Documents.Add       ' Create a new document

' Find all rows that have correct code in the coding column     For Each r In SourceDoc.Tables(1).Rows         sTemp = UCase(r.Cells(iCol).Range)

sTemp = Left(sTemp, Len(sTemp) - 2)     ' Remove cell overhead                  If sTemp = sPCode Then             r.Range.Copy             Selection.PasteAndFormat wdFormatOriginalFormatting         End If     Next r

ScreenRefresh = True End Sub

Para usar la macro, debe asegurarse de que iCol esté configurado en la columna utilizada como su columna de codificación y que sPCode contenga el código que desea elegir. (Todo debe estar en mayúsculas). Cuando termine la macro, tendrá un documento que contiene solo las filas que desea imprimir y, a continuación, podrá imprimir ese documento.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (3511) se aplica a Microsoft Word 2007, 2010, 2013 y 2016.