Cambiar la fuente en muchos cuadros de texto

03/12/2007 - 21:23 por Alex | Informe spam
Hola:

Tengo un documento Word proveniente del escaneo de algunas páginas y
me encuentro con que el texto de cada página está dentro de un cuadro
de texto.

El texto de estos cuadros de texto, por errores en la lectura, alterna
distintas fuentes, y ahora me gustaría poder corregir esos errores.

Me gustaría seleccionar el texto de todos los cuadros de texto y
cambiar la fuente xxx por la yyy. No quiero aplicar la misma fuente a
todos los cuadros ya que no sería correcto (hay otras fuentes), sino
que necesito cambiar una determinada fuente por otra determinada
fuente.

Gracias.

Saludos.
 

Leer las respuestas

#1 Tux
03/12/2007 - 23:27 | Informe spam
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

Preguntas similares