Buscar varias palabras en word y eliminar el resto

28/04/2014 - 18:11 por seba-alonso | Informe spam
¡ Hola Amig@s!

Les pido ayuda con algo que necesito, quiero buscar varias palabras dentro de un archivo word, luego de encontrarlas, que el programa elimine todos las otras lineas y sólo deje las lineas que contiene alguna de las palabras que busco.

Les cuento que encontré un código que busca varias palabras, pero sólo las marca con un color dentro de todo el texto.

Ojala me puedan ayudar, muchas gracias.

PD: El codigo que habia encontrado es:

Sub BusquedaMultiple()
Dim Encontrar
Dim MiRango As Range
Dim i As Long
Encontrar = Array("hola", "como", "xxx", "videos")
For i = 0 To UBound(Encontrar)
Set MiRango = ActiveDocument.Range
MiRango.Find.Text = Encontrar(i)

Do Until MiRango.Find.Execute = False
MiRango.HighlightColorIndex = wdBrightGreen
Loop
Next
End Sub
 

Preguntas similares