Sam tiene un documento que contiene algunas tablas en las que quiere eliminar algunas filas. Las filas contienen texto específico, que ciertamente puede eliminar usando Buscar y Reemplazar, pero quiere eliminar todas las filas que contienen ese texto.

No hay forma de hacer esto (eliminar filas) usando las funciones normales de Buscar y Reemplazar de Word. En su lugar, debe usar una macro que encuentre el texto y luego elimine toda la fila. Aquí hay una macro relativamente simple que hará el trabajo:

Sub DeleteRowWithSpecifiedText()

Dim sText As String

sText = InputBox("Enter text for Row to be deleted")

Selection.Find.ClearFormatting     With Selection.Find         .Text = sText         .Wrap = wdFindContinue     End With     Do While Selection.Find.Execute         If Selection.Information(wdWithInTable) Then             Selection.Rows.Delete         End If     Loop End Sub

Esta macro muestra primero un cuadro de entrada que le pide al usuario que especifique el texto que se buscará. Luego comienza a buscar todas las instancias de ese texto. Si se encuentra una instancia, se verifica la selección para asegurarse de que esté dentro de una tabla. Si es así, se elimina toda la fila y la macro pasa a la siguiente aparición.

_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 (3838) 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-Finding_and_Deleting_Rows [Encontrar y eliminar filas].