Macro, para variar

holas Gloria :) !!

En lugar de aplicar un [Do ... loop ] puedes optar por otros caminos por
ejemplo >>

... si se quiere quitar es un formato Cursiva de todo el documento>>

'[]

Sub demo_a()
With Selection
.WholeStory
.Font.Italic = False
End With
End Sub

'[]

para cualquier formato de caracter [Negritas, cursivas etc] puedes
aplicar algo como esto >>

'[]

Sub demo_b()

With Selection
.WholeStory
.Font.Reset
End With

End Sub

'[]


Si lo que quieres es quitar solo de ciertas palabras que esten en cursiva >>

'[]

Sub demo_c()

With ActiveDocument.Content.Find
.ClearFormatting
.Font.Italic = True
With .Replacement
.ClearFormatting
.Font.Italic = False
End With
.Execute FindText:="Palabra a buscar", _
Replace:=wdReplaceAll
End With

End Sub
[]

o.. no sep :P ... comentanos...!

Saludos
Monica

Tengo una macro que en el documento tiene que encontrar un formato de
carácter y eliminarlo (eliminar el formato, vaya, con Ctrl+Barra esp), y
cuando llegue al final del documento debe volver al inicio del mismo
(Ctrl+Inicio)
Para la primera parte utilizo un bucle
Do While Selection.Find.Execute
Selection.Font.Reset
Selection.MoveRight Unit:=wdCharacter, Count:=1
Loop
Y luego añado (y aquí es donde meto el zanco) la orden de volver al
principio:
Selection.HomeKey Unit:=wdStory
Pero no funciona :-( Ayudita, plis.
Saludos cordiales

Oye, Mónica, ¿y para quitar cualquier referencia a un ex- que no se cansa de
dar la chapa? ¿Hay algo suficientemente potente? JAJAJAJAJAJAJAJAJAA

Gracias, guapa. Y aprovechando que el Pisuerga pasa por Valladolid,
necesitaría asignar a los párrafos que van en cierto color un estilo. Por
ejemplo, los párrafos que son de color rojo darles el estilo "texto rojo",
por decir algo.

Vergüenza me da preguntar tanto. Tendría que ponerte en plantilla


"Monica May" escribió:>

si se quiere quitar es un formato Cursiva de todo el documento>>


Si lo que quieres es quitar solo de ciertas palabras que esten en cursiva >>

holasss Gloria :) !

necesitaria asignar a los parrafos que van
en cierto color un estilo. Por
ejemplo, los parrafos que son de color
rojo darles el estilo "texto rojo"

no hay remedio alguno para los ex- pelmazos jejeje :P !!

Bien no la he probado del todo [ solo asi por encima ] pero prueba lo
siguiente >>

'[]

Sub demo_c()

With ActiveDocument.Content.Find
.ClearFormatting
.Font.Color = wdColorRed
With .Replacement
.ClearFormatting
.Font.Color = False
.Style = "Texto rojo"
End With
.Execute FindText:="", _
Replace:=wdReplaceAll
End With

End Sub

'[]

Mira a ver como funciona si da algun error o si no hace bien el cambio del
color rojo al estilo ... jejej! :P !!


Saludos
Monica


www.fermu.com
www.teladearana.es

Hola, hola:

He probado esto y no me va. Para el finde lo miro con tranquilidad y a ver
si pillo dónde está el truco. No me digas nada, ¿eh? a ver si consigo hacerlo
yo sola :P

Assiasssssssssssss


"Monica May" escribió:

Bien no la he probado del todo [ solo asi por encima ] pero prueba lo
siguiente >>

'[]

Sub demo_c()

With ActiveDocument.Content.Find
..ClearFormatting
..Font.Color = wdColorRed
With .Replacement
..ClearFormatting
..Font.Color = False
..Style = "Texto rojo"
End With
..Execute FindText:="", _
Replace:=wdReplaceAll
End With

End Sub

'[]

holassss!!

He probado esto y no me va.
Para el finde lo miro con tranquilidad ...

:))) okeis Gracias a ti Gloria, no te digo na :P pero tu lo que veas dilo
que es posible que el color del estilo no se aplique correctamente...
peroooo tu haz pruebas y demas ... :) :) !!


Saludos
Monica

www.fermu.com
www.teladearana.es