Heidi tiene quince documentos, cada uno compuesto principalmente por una mesa larga.

Necesita crear una macro para buscar fila por fila y resaltar de alguna manera (ya sea sombreando, en negrita, cambiando la fuente, etc.) cualquier fila que no tenga un carácter entre paréntesis en ninguna parte de la fila. Alternativamente, también puede resaltar las filas que contienen un carácter de paréntesis; solo necesita poder distinguir entre las filas que lo hacen y las que no.

Hay muchas formas de abordar una macro de este tipo, pero una que busca un paréntesis de apertura o cierre es relativamente fácil. El siguiente ejemplo hará la búsqueda, fila por fila, y si se encuentra alguno de los caracteres, resaltará la fila haciendo que el fondo sea amarillo.

Sub HilightRows()

Dim TargetText1 As String     Dim TargetText As String     Dim oRow As Row     Dim iCol As Integer

'initialize the target characters to find     TargetText = "("

TargetText1 = ")"



'Make sure we're in a table     If Selection.Information(wdWithInTable) Then         'Clear all the old shading         Selection.Tables(1).Shading.BackgroundPatternColor = wdColorWhite         'do all the rows         For Each oRow In Selection.Tables(1).Rows             If InStr(oRow.Range.Text, TargetText) > 0 Then _               oRow.Shading.BackgroundPatternColor = wdColorYellow             If InStr(oRow.Range.Text, TargetText1) > 0 Then _               oRow.Shading.BackgroundPatternColor = wdColorYellow         Next oRow     End If End Sub

_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 (568) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Noting_Table_Rows_Containing_a_Character [Señalando las filas de la tabla que contienen un carácter].