Sustituir varias líneas en Word 97

Gracias por darnos el feedback ;-) !!!

Saludos
Monica



-solucion

Vale, aquí estoy. No se me había ocurrido hacer una macro. Ahí va lo que he
hecho:

1º- Seleccionar la cadena a eliminar.
2º- Ejecutar la siguiente macro:

Sub Macro1()

Dim cCadenaBorrar As String

cCadenaBorrar = Selection.Text

Selection.Find.ClearFormatting

With Selection.Find
.Text = cCadenaBorrar
.Replacement.Text = ""
.Forward = True
'.Wrap = wdFindAsk '<<<< a gusto del consumidor
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Saludos desde Sevilla.

Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com