Cambiar formato y eliminar párrafos entre dos frases

Holas de nuevo :P

...con el documento es cambiar el formato pero simplemente en algunas
lineas.
En el documento se repite muchas veces:
principio
texto1
texto2
texto3
final me gustaria que todo lo comprendido entre
principio y final, cambiara de letra, de tamano y de color

Bien vuelvo a preguntar >>

Puedes utilizar algun tipo de marcador en aquellos parrafos que quieras que
cambien de letra, color o tamano o no es posible insertar marcador ???

Lo mas sencillo seria utilizar marcadores puesto que el buscar palabras a
veces podrian dar error de busqueda mismas palabras e igual seleccionaba lo
que no se debiera ???

Cometanos...!

Saludos
Monica

www.fermu.com
www.teladearana.es

Habrá unas cincuenta también en 300 páginas, así que sería más cómodo no
tener que poner marcadores en cada una de ellas.

Y esto hay que repetirlo todas las semanas.

un saludo

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

Holas de nuevo :P

...con el documento es cambiar el formato pero simplemente en algunas
lineas.
En el documento se repite muchas veces:
principio
texto1
texto2
texto3
final me gustaria que todo lo comprendido entre
principio y final, cambiara de letra, de tamano y de color

Bien vuelvo a preguntar >>

Puedes utilizar algun tipo de marcador en aquellos parrafos que quieras
que cambien de letra, color o tamano o no es posible insertar marcador
???

Lo mas sencillo seria utilizar marcadores puesto que el buscar palabras a
veces podrian dar error de busqueda mismas palabras e igual seleccionaba
lo que no se debiera ???

Cometanos...!

Saludos
Monica

www.fermu.com
www.teladearana.es

holas denuevo,

.. cincuenta tambien en 300 paginas, asi que seria mas comodo no tener que
poner marcadores en cada una de ellas.
Y esto hay que repetirlo todas las semanas.

bien prueba pues lo siguiente >>

Sub seleccion_texto_entre_A_B()

Dim x As String
Dim y As String

x = "principio"
y = "final"

With Selection
With .Find
.ClearFormatting
.Text = x
.Wrap = wdFindContinue
.Execute
End With
.MoveRight wdWord, 1
.Extend
With .Find
.ClearFormatting
.Text = y
.Execute
End with
.MoveLeft wdWord, 1
.Font.Color = wdColorBlue
.Font.Size = 12
.Font.Name = "Arial"
End With

'[]

Como te comentaba esto tiene un incoveniente >>

Si en el documento existen dos palabras iguales de [ final ] pues buscara
aquella que se encuentre mas cerca del cursor y con esto hay que tener
cuidado ...de ahi que te comentara lo de los marcadores


Prueba y comentanos...!

Saludos
Monica



www.fermu.com
www.teladearana.es

El código funciona pero sólo para la primera vez que aparece principio -
final, necesitaría que recorriera todo el documento

muchas gracias Mónica y siento pedir tanta ayuda

"Monica May" escribió en el mensaje
news:

holas denuevo,

.. cincuenta tambien en 300 paginas, asi que seria mas comodo no tener
que poner marcadores en cada una de ellas.
Y esto hay que repetirlo todas las semanas.

bien prueba pues lo siguiente >>

Sub seleccion_texto_entre_A_B()

Dim x As String
Dim y As String

x = "principio"
y = "final"

With Selection
With .Find
.ClearFormatting
.Text = x
.Wrap = wdFindContinue
.Execute
End With
.MoveRight wdWord, 1
.Extend
With .Find
.ClearFormatting
.Text = y
.Execute
End with
.MoveLeft wdWord, 1
.Font.Color = wdColorBlue
.Font.Size = 12
.Font.Name = "Arial"
End With

'[]

Como te comentaba esto tiene un incoveniente >>

Si en el documento existen dos palabras iguales de [ final ] pues
buscara aquella que se encuentre mas cerca del cursor y con esto hay que
tener cuidado ...de ahi que te comentara lo de los marcadores


Prueba y comentanos...!

Saludos
Monica



www.fermu.com
www.teladearana.es

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