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