Cambiar la fuente en muchos cuadros de texto

Hola Alex :-)

Tengo un documento Word proveniente del escaneo de algunas páginas y
...
El texto de estos cuadros de texto, por errores en la lectura, alterna
distintas fuentes, y ahora me gustaría poder corregir esos errores.

..seleccionar el texto de todos los cuadros de texto y
cambiar la fuente xxx por la yyy. sino
que necesito cambiar una determinada fuente por otra determinada
fuente.

Nota:

Los cuadros de texto tienen que ser flotantes por defecto aperecen
flotantes ahora no se como apereceran de un Escaneado :-\ imagino que
igual ... ?

Bien prueba la siguiente macro, que busca el tipo de letra *Arial* en
los cuadros de Texto y les cambia el tamaño en letra a [ 30] puedes
variarla al gusto y

Comentanos ok? :-)

'El codigo -
'[]

Sub Cambiar_tipo_letra()

Dim x As Shape

For Each x In ActiveDocument.Shapes
With x
If .TextFrame.TextRange.Font.Name = "Arial" Then _
.TextFrame.TextRange.Font.Size = 30

End With

Next

End Sub

'[]
'fin del codigo-








Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]
» Nothing Else Matters [ Metallica ]

www.fermu.com