Sustituir varias líneas en Word 97

Me refiero a hacerlo desde la ventana "Reemplazar", claro.





"Telerín" escribió en el mensaje
news:

Hola a todos.

¿Es posible sustituir varias líneas por una cadena de caracteres en un
documento de Word, con Word97?

Gracias.

Hola :-)

Me refiero a hacerlo desde la ventana "Reemplazar", claro.

Una pregunta ¿ son parrafos completos ? ¿ necesitas reemplazar por
muchos caracteres ? no tengo word 97 pero puedo buscar algo de codigo y
quizas puedas aplicarlo, no se ? comentanos esos detalles faltantes ok?

Saludos
Monica

Gracias por contestar, Mónica.

En efecto, debo reemplazar párrafos completos, normalmente, entre 3 y 10
líneas. Realmente lo que quiero es eliminarlos, o sea, reemplazarlos por "".
Son párrafos que se repiten un "n" veces dentro de un documento.

Saludos.







"Tux" escribió en el mensaje
news:

Hola :-)


> Me refiero a hacerlo desde la ventana "Reemplazar", claro.
>

Una pregunta ¿ son parrafos completos ? ¿ necesitas reemplazar por
muchos caracteres ? no tengo word 97 pero puedo buscar algo de codigo y
quizas puedas aplicarlo, no se ? comentanos esos detalles faltantes ok?

Saludos
Monica

Hola :)

Gracias por contestar, Mónica.

En efecto, debo reemplazar párrafos completos, normalmente, entre 3 y 10
líneas. Realmente lo que quiero es eliminarlos, o sea, reemplazarlos por "".
Son párrafos que se repiten un "n" veces dentro de un documento.

Saludos.

Pues no he tenido tiempo de probarlo pero mira a ver como te van los
siguientes macros que te seran validos para tu office 97 :

http://word.mvps.org/FAQs/MacrosVBA...raRnge.htm
http://word.mvps.org/FAQs/MacrosVBA...araSel.htm

Prueba y nos comentas ok? :-)

Saludos
Monica



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

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.