Como eliminar el formato de campos de formulario

Hola Monica;

Antes que nada te agradesco toda la ayuda que has brindado para la
elaboracion de las macros y todo esto. Voy a ser un poco extenso, pero lo que
quiero es explicarte un poco todo lo que estoy haciendo, para ver si soy
totalmente claro con la utilidad que necesito.

Yo soy un Estudiante en practica Universitario y como una de las tareas que
me asignaron en la empresa fue la elaboracion de un automatismo para la
elaboracion de unos informes mensuales que se entregan a la gerencia de la
empresa.

La empresa a la que pertencezco es una empresa de generacion de energia, por
tal motivo al informe que se entrega debe tener informacion de cada una de
las centrales de generacion que pertenecen a la compañia.

Antes la forma de elaboracion del informe consistia en que desde cada
central de generacion le enviaban un documento de word a un encargado que
recopilaba toda la informacion y empezaba a copiar y pegar, copiar y pegar,
copiar y pegar, hasta que consolidaba todo el informe completo.
Esa persona aparte de tener la tarea de copiar y pegar, tiene que releer la
informacion que es enviada, con el fin de corregir redaccion, ortografia,
añadir informacion faltante o borrar informacion que no valga la pena.

Este informe se realiza de forma mensual y siempre esta compuesto por la
misma estructura, por lo cual a mi se me ocurrio la idea de hacer una
plantilla para cada central en la cual yo habilite solo los espacios en los
cuales ellos deben ingresar la informacion mensualmente. Para esto tambien
habilite las barras de herramientas que con tu ayuda coloque en cada
formulario para que ellos pudieran ingresar las graficas que mensualmente
deben de ingresar.
Algunas centrales solo ingresan una grafica, otras ingresan 3 y otra ingresa
6 graficas.

Las plantillas de las que hablo, estan montadas en un servidor, las personas
entran al servidor e ingresan la informacion que se requiere.
Despues que toda la informacion esta ingresada en las plantillas, una macro
con la ayuda de la funcion comparar y combinar de word, agrupa toda la
informacion que fue ingresada y deja el informe casi consolidado
completamente.

Lo anterior es lo que tengo hecho hasta el momento.
Los dos post que coloque hace rato, son para la misma aplicacion. Creo que
con esto queda claro el problema que se le presenta a la persona que revisa
el informe, ya que como la mayoria esta en campos de texto, al dar click en
alguna parte se le selecciona todo el parrafo completo.

El otro problema que se presento, fue que la gente no podia borrar las
graficas si se equivocaban insertandolas y me tocaba a mi estar pendiente
para borrarles las graficas malas y que ellos pudieran volver a ingresar la
grafica correcta. Pero la idea es que ellos puedan borrar tambien las
graficas. A mi se me ocurrio la idea de poner otra barra de herramientas, con
un numero de botones igual a los de añadir graficas para que puedan borrarlas
tambien.

Por ultimo todas las graficas siempre las hacen en excel, de excel yo les
dije que las guardaran en paint y despues con la barra de herramientas que
tienen habilitadas insertaran las graficas em
Por eso tambien estoy por aca preguntando a ver si existe la forma de llevar
las graficas directamente desde excel hasta word y evitar que tengan que
guardarlas en paint y luego las inserten en el documento.

Espero haber sido lo mas claro posible,

Se que me exedi demasiado, pero es una buena forma de ser directo con el tema.

De nuevo muchas gracias por la ayuda prestada.

Cordialmente,
Jorge

Pd: No se que pasa, pero el codigo:

'[]

With Selection

.GoTo What:=wdGoToBookmark, Name:="marcador_x"
.InlineShapes(1).Delete

End With

'[]

No elimina las graficas, aunque le estoy utilizando los mismos nombres del
marcador que utilice para el pegado de las graficas, no se que pueda pasar
ahi.

Hola de nuevo, :)

Se me paso algo;

tux dice:

mediante una macro se puede quitar el formato pero lo dejarias como
texto plano o sin formato , te podria valer asi, no se eh? :-? ya nos
comentas :-)

Como lo dije anteriormente, el problema que se presenta es que en un
principio cuando cada central de generacion enviaba un documento de word por
aparte, algunos enviaban el texto en arial tamaño 12, otros en arial tamaño
11, otros en vendana tamaño 11, et, etc.
Por lo que la quien recopilaba la informacion tenia que volver a cambiarle
el tamaño y tipo de letra a la info que enviaban desde fuera.
Con los campos de texto se gano en ese tema, por que yo los obligo a que
todos ingresen la informacion en arial tamaño 11 y de esa forma no ahi
necesidad de estar cambiandole el tipo de letra a nada.
Lo malo como he venido comentando es que es un poco aburridor trabajar con
esos campos de texto cuando el documento esta desbloqueado.

Me dices que con una macro se puede quitar ese formato, como quedaria el
texto al quitar el formato?? se podria ensayar lo que me dices a ver que tal,
:)

Saludos,
Cordialmente
Jorge

Hola Jorge :-)

.
Lo malo como he venido comentando es que es un poco aburridor trabajar con
esos campos de texto cuando el documento esta desbloqueado.

Me dices que con una macro se puede quitar ese formato, como quedaria el
texto al quitar el formato?? se podria ensayar lo que me dices a ver que tal,
:)

Saludos,
Cordialmente
Jorge

Bien estoy pensando perooo vas a probar lo que te comente veras :

En lugar de dejar sin formato o texto plano esos campos, vamos a dejar
los campos con formato peroooo sin campos, me explico mejor :-)

En un documento de word pon tres o cuatro campos de texto, en ellos pon
lo que quieras bien sin el documento protegido y con los campos llenos
de datos o imagenes:

Dale a las teclas » Ctrl+E [ para seleccionar todo el documento ] y
luego una vez este todo seleccionado dale a las telcas » Ctrl+Shift+F9

De esa manera desvinculas cualquier campo osea se dejas cualquier campo
ya sea de formulario o ya sea de codigos de campo y lo dejas sin vinculo
perooo en el caso de estos campos que estamos utilizando te dejaria los
marcadores tal cual , mejor que lo pruebes para que veas y nos comentes :-)


Saludos
Monica



____En codigo seria lo mismo, como el siguiente macro______


'[]

Sub Prueba_1()


With Selection

.WholeStory
.Fields.Unlink
.HomeKey Unit:=wdStory

End With



End Sub

'[]

Hola Jorge :-)

Pd: No se que pasa, pero el codigo:

'[]

With Selection

.GoTo What:=wdGoToBookmark, Name:="marcador_x"
.InlineShapes(1).Delete

End With

'[]

No elimina las graficas, aunque le estoy utilizando los mismos nombres del
marcador que utilice para el pegado de las graficas, no se que pueda pasar
ahi.

Vale ahora ya te voy entendiendo :-) , bien pues mucho me temo que ahora
asi leyendote y pensando de que las imagenes es posible que no esten
dentro del campo o marcador ???

Bien si estan dentro de un campo de texto se pueden eliminar sin macros,
pero si estan entre un marcador normal y corriente no se pueden eliminar
, no obstante la macro deberia borrar la imagen cuyo marcador indique el
codigo, siempre y cuando la imagen este dentro del marcador asi que voy
a mirar el codigo que te di para los graficos de excel y de insertar
imagenes a ver si me cole en algo :-? y te comento ok? :-)

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

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

www.fermu.com

Hola jorge :-)

Pd: No se que pasa, pero el codigo:

'[]

With Selection

.GoTo What:=wdGoToBookmark, Name:="marcador_x"
.InlineShapes(1).Delete

End With

'[]

No elimina las graficas, aunque le estoy utilizando los mismos nombres del
marcador que utilice para el pegado de las graficas, no se que pueda pasar
ahi.

Si ya se que te pasa que por mi culpa te di un codigo que añadia imagen
sobre marcador, peroooo no de campos si con posibilidad de campos pero
no para estos en concreto , realizaba un loop para poder vaciar el
marcador de imagen y cambiar imagen perooo sobre marcadores corrientes
:-( entonces por eso no dejaba eliminar imagen porque al estar protegido
el documento pues eso :-( [ perdon :-( ] lo que no se porque lo di asi
no se bueno te paso el codigo tal cual es exacto y entonces si que
dejaran eliminar imagenes con solo desplazarnos hasta el campo y suprimir.


'[]

Sub Insert_Protect_2()

Dim ruta As String



On Error Resume Next

ActiveDocument.Unprotect ("111")

With Dialogs(wdDialogInsertPicture)
If .Display <> -1 Then GoTo proteger

ruta = .Name

End With

With Selection

.FormFields("lunes").Select

.InlineShapes.AddPicture _
FileName:=ruta, LinkToFile:=False, _
SaveWithDocument:=True

End With

proteger:

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True, Password:="111"

Exit Sub


End Sub

'[]


Bien voy a revisar el de excel a ver si me cole tambien :-? que seguro
que si :-P


Saludos
Monica


PD: ahora revisando, en los campos de texto no hubiera sido necesario
desproteger el documento para insertar en ellos imagenes ya que con una
macro que hubiera sido nada mas de insercion imagen, hubiera valido :-)
pero me he dado cuenta ahora :-P !! pero bueno para curarnos de males
prueba ahora a ver si ya no hace falta crear ninguna macro para
eliminar imagenes de campos formulario :-)



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

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

www.fermu.com