Cambiar formato y eliminar párrafos entre dos frases

Sí, así lo hacía, pero la macro no se para, termina el documento y vuelve a
empezar, por eso te lo había preguntado

gracias por todo lo que estás haciendo y el mal que te estoy dando

Es que con word, no sé que me pasa, que me salen las cosas pero siempre
tengo algún fallito que no acaba de ajustar correctamente

qué le vamos a hacer

gracias
"Monica May" escribió en el mensaje
news:

Holas Chiri,

El codigo funciona pero solo para la primera vez que aparece principio -
final, necesitaria que recorriera todo el documento

No te preocupes chiri tu pregunta pregunta :P !

Bien a ver si me centro >>

puedes anadir una nueva declaracion como esta >>>

'[]

Dim z As Paragraph

'luego hacer que recorra los parrafos asi
For Each z In ActiveDocument.Paragraphs

With selection
with .find
'etc.
'etc...
'etc...
End With

Next z
End sub


'[]


Prueba a ver ...y comentanos...!

Saludos
Monica


www.fermu.com
www.teladearana.es

Hola Chiri,

...pero la macro no se para, termina el documento y vuelve
a empezar, por eso te lo habia preguntado

Sip logico :P recorre los parrafos tantas veces como marcas de parrafos
hay...

Puedes anadirle una condicional por ejemplo del tipo >>

If .Font.Color = wdColorBlue Then Exit Sub

justo debajo de la linea de codigo >>

.MoveLeft wdWord, 1

Prueba a ver y comentanos... :) !

Saludos
Monica

www.fermu.com
www.teladearana.es

PERFECTO

eres una artista gracias por todo

"Monica May" escribió en el mensaje
news:O3isv%

Hola Chiri,

...pero la macro no se para, termina el documento y vuelve a empezar, por
eso te lo habia preguntado

Sip logico :P recorre los parrafos tantas veces como marcas de parrafos
hay...

Puedes anadirle una condicional por ejemplo del tipo >>

If .Font.Color = wdColorBlue Then Exit Sub

justo debajo de la linea de codigo >>

.MoveLeft wdWord, 1

Prueba a ver y comentanos... :) !

Saludos
Monica

www.fermu.com
www.teladearana.es