Tomando nota de filas de tabla que contiene un carácter

November 13

Heidi tiene quince documentos, cada uno compuesto principalmente de una mesa larga. Ella necesita para crear una macro para buscar fila por fila y de alguna manera resaltar (ya sea por el sombreado, la negrita, el cambio de la fuente, etc.) cualquier fila que no tiene un carácter de paréntesis en cualquier parte de la fila. Alternativamente, también puede resaltar filas que contienen un paréntesis personaje, ella sólo tiene que ser capaz de distinguir entre filas y filas que hacen que no lo hacen.

Hay muchas maneras de que un macro como podría abordarse, pero uno que busca una apertura o el cierre de paréntesis es relativamente fácil. El siguiente ejemplo se va a hacer la búsqueda, fila por fila, y si no se encuentra ninguno de los personajes, se destacará la fila, haciendo que el fondo amarillo.

HilightRows Sub ()
Dim TargetText1 As String
Dim TargetText As String
Dim oRow Como Fila
Dim iCol As Integer

'Inicializar los caracteres de destino para encontrar
TargetText = "("
TargetText1 = ")"

"Asegúrese de que estamos en una mesa
Si Selection.Information (wdWithInTable) A continuación,
'Borrar todo el viejo sombreado
Selection.Tables (1) .Shading.BackgroundPatternColor = wdColorWhite
"Hacer todas las filas
Para Cada oRow En Selection.Tables (1) .Rows
Si InStr (oRow.Range.Text, TargetText)> 0 Then _
oRow.Shading.BackgroundPatternColor = wdColorYellow
Si InStr (oRow.Range.Text, TargetText1)> 0 Then _
oRow.Shading.BackgroundPatternColor = wdColorYellow
Siguiente oRow
End If
End Sub

WordTips es su fuente de formación de Microsoft Word rentable. (Microsoft Word es el procesador de textos más popular en el mundo.) Esta punta (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í: Observando filas de tabla que contiene un carácter.