macro para eliminar línea

Arístides Fernández escribió:

Hola,

Necesito realizar una macro para buscar dentro de un texto determinada
palabra o número y en función de ello eliminar o no toda la línea.
Intento usar la grabadora de macros para orientarme, pero durante la
grabación no me permite usar el botón derecho ni seleccionar líneas.

Gracias por la ayuda.

Hola Arístides :)

Prueba con algo como esto:

'--
Sub Prueba1()

'borrar linea de palabra encontrada

Dim y As Variant
Dim x As Integer

y = InputBox("Buscar palabra y borra su linea:", "Mi buscador")

Selection.Find.ClearFormatting

With Selection.Find
.Text = y
.Replacement.Text = ""
.Wrap = wdFindContinue
.Forward = True
End With

If Selection.Find.Execute = True Then
x = x + 1
Selection.Collapse wdCollapseStart
ActiveDocument.Bookmarks("\Line").Select
Selection.Delete
Else
MsgBox "not, not, not ... :-P "
End If

End Sub
'--

Cualquier cosilla que le veas al codigo o que quieras añadir tu nos
comentas ok? :)

Saludos
Monica


Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com



Anotacion: Si por los foros veis Spam masivo sobre temas que nada tienen
que ver con el foro en cuestion,
Deciros que es un << Troll/s >> que unas veces usurpan el nombre e
identidad de gente profesional en la materia,
y otras veces usurpan el nombre e identidad de aquel o aquellos que
contestan a su Spam, su verdadero nombre es:

Pablito "Alias el Cuervo" y Compañia [payasos de circo ]

Lo mejor que podeis hacer, es o bien ignorarlos como si no existieran o
hacer seguimiento de las NEws de microsoft,

a traves de por ejemplo entre otros:

Outloock Express o Mesnews [con opcion a suprimirlos ]

Y Si utilizais el Thunderbird podeis utilizardo como Separador de hilos
y queda muy mono :-))))