Macro para corregir formularios

27/08/2009 - 11:21 por zopita | Informe spam
Hola a todos.

Recibo formularios con campos para datos personales (no se tocan) y campos
para responder a una serie de preguntas que hay que corregir. Para
diferenciarlos de los campos de datos personales les he asignado un estilo de
carácter “campoTXT”. Pueden coincidir con párrafo completo o ir en el medio
de una línea.
El proceso que necesito hacer es el siguiente:

1. Al abrir el archivo desprotegerlo.
2. De cada uno de los párrafos que contiene un campo con formato “campoTXT”
hacer una copia bajo el mismo con el contenido del campo como texto pelado.
3. Activar el control de cambios y hacer la corrección en esta copia.
4. Volver a proteger el documento y guardarlo.

A base de sudar la gota gorda he conseguido hacer esta macro a base de otras
macros más pequeñitas y de sentencias copiadas en distintas páginas web,
vamos, que apenas sé lo que he puesto.

El ¿lío? lo tengo en el punto 2. El proceso que he seguido viene a ser:
buscar estilo “campoTXT”/Ir al principio del párrafo/seleccionar hasta el
final del párrafo/Copiar/Salto de párrafo/Pegado especial como texto plano.
¿Habría alguna forma de conseguir que el texto correspondiente al campo de
formulario apareciera de un color que no fuera el negro?

Y otra pregunta: parte del documento está en castellano y otra en francés.
¿Influye esto en el buen funcionamiento de una macro?

Gracias :-)

Preguntas similare

Leer las respuestas

#6 Zopita Hasta los Fideos
31/08/2009 - 06:53 | Informe spam
"Monica May" escribió:


Bien entonces lo que necesitas es duplicar cada parrafo y a la duplicación
aplicarle al {formtext } un color rojo por ejemplo y dejar el campo de texto
sin campo sino como texto normal???




"Monica May" escribió:


Bien entonces lo que necesitas es duplicar cada parrafo y a la duplicación
aplicarle al {formtext } un color rojo por ejemplo y dejar el campo de texto
sin campo sino como texto normal???




tiiiiiiiiiiiiiiiiiii, tiiiiiiiiii, tiiiiiiiiiiiiiiiiii, eso, eso :-)
Y el color que sea "gonito" :D
Respuesta Responder a este mensaje
#7 Monica May
31/08/2009 - 21:19 | Informe spam
holas :)))


Bien, voy apurada de tiempo te paso el codigo y lo miras a ver si te da
error o quieres cambiar alguna cosa o no es lo que querias o lo que sea que
sea :D

'[]

Sub demo()
Dim x As FormField
For Each x In ActiveDocument.FormFields
If x.Type = wdFieldFormTextInput Then
x.Select
With Selection
.Font.Color = wdColorRed
.MoveUp wdParagraph, 1
.MoveEnd wdParagraph, 1
.Fields.Unlink
.Copy
.MoveRight wdCharacter, 1
.TypeParagraph
.Paste
End With
Else: End If
Next: End Sub
'[]


Comentanos!

Saludos
Monica


www.fermu.com
www.teladearana.es
Respuesta Responder a este mensaje
#8 zopita
02/09/2009 - 13:41 | Informe spam
Holitas, Mónica.
Yo también voy a tener unos días pelín liados para hacer pruebas, pero te
contaré qué tal va la macro.

Saludos cordiales.

"Monica May" escribió:


holas :)))


Bien, voy apurada de tiempo
Respuesta Responder a este mensaje
#9 Monica May
03/09/2009 - 11:34 | Informe spam
Apss Graciasss Gloria :) !!

.pero te
contare que tal va la macro.



okeis por aqui estaremos :) !!

Saludos
Monica


www.fermu.com
www.teladearana.es
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida