Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

automatizar formulario, autorellenar un campo al elegir una opción de lista desplegable

608 views
Skip to first unread message

Psico

unread,
Nov 4, 2009, 3:08:45 PM11/4/09
to
Hola, a ver si me conseguis ayudar, porque le he preguntado a varios
amigos y he buscado por internet y no doy con la manera.

Se trata de un documento que contiene una tabla de word, en la que
tengo por un lado una columna llamada, por ejemplo "tipo de producto",
la cuál se rellena mediante un cuadro de lista desplegable.

Lo que quiero es que al seleccionar una opción de esta lista, se
autocomplete un campo de otra columna.

Por ejemplo, en la columna 2 del documento, selecciono "Refresco de
cola", y quiero que automáticamente en la columna 3, me ponga "RC".

Utilizo Word 2003, aunque cómo es para el trabajo, debe funcionar en
Word 97.

Monica May

unread,
Nov 4, 2009, 6:10:51 PM11/4/09
to
hola,


>...documento que contiene una tabla de word..
>.. por un lado una columna llamada "tipo de producto",
>...se rellena mediante un cuadro de lista desplegable.

Es un control de Formularios o de controles Active X ???

>... al seleccionar una opcion de esta lista, se


>autocomplete un campo de otra columna.

> la columna 2 del documento, selecciono "Refresco de

>cola", y quiero que automaticamente en la columna 3
> me ponga "RC"
>.. Word 2003... es para el trabajo, debe funcionar en
>Word 97.

Si son controles de Formularios >>

- Cuantas opciones tienes anadidas ???

Si son controles Active X >>

Como cargas dichos controles con esas opciones???

Word 97 o Word 2007 ???

Comentanos...!

Saludos
Monica

--
www.fermu.com
www.teladearana.es

Psico

unread,
Nov 5, 2009, 12:41:24 PM11/5/09
to
pues si, se trata de WORD u OFICCE 97.

cómo cargo los controles pues no lo sé bien, te puedo detallar los
pasos.

me pongo en la celda que quiero la lista desplegable y le doy en la
barra de herramientas FORMULARIO, al botón de campo de formulario con
lista, donde luego edito las opciones que me vá a dejar la lista.

Creo que la mejor manera de hacerlo sin tener que recurrir a
aplicaciones externas es con el editor de visual basic, generando una
macro, pero a partir de ahí me pierdo totalmente.

Monica May

unread,
Nov 5, 2009, 4:50:30 PM11/5/09
to
hola,

>WORD u OFICCE 97.


>me pongo en la celda que quiero
>la lista desplegable y le doy en la
>barra de herramientas FORMULARIO,

>al boton de campo de formulario con
>lista, donde luego edito las opciones que me va a dejar la lista.


Bien se tratan pues de campos de formulario (mucho mejor), puedes poner el
siguiente codigo en un modulo de Visual basic y luego en las propiedades del
campo de lista del formulario, en el apartado de [Ejecutar macro al Salir ]
le asignas el siguiente codigo [Sub campos_lista_formularios()] cuando
salgas con la tecla [ tab] o salgas del campo de lista entonces se ejecutara
el codigo ....

El siguiente codigo te desprotegera el formulario (se supone que sin
contrasena, ya que si lleva habra que anadirsela al codigo) y si se
seleciona Refresco de Limon entonces en la TABLA 1, Fila 2 columna 2 se
insertara RL y el resto ya para que lo pruebres ?? ....


Puedes probar el siguiente codigo Vba >>

'[]

Sub campos_lista_formularios()

On Error Resume Next
ActiveDocument.Unprotect
Select Case ActiveDocument.FormFields("Listadesplegable1").Result
Case "Refresco de cola"
ActiveDocument.Tables(1).Cell(1, 2).Range = "RC"
Case "Refresco de limon"
ActiveDocument.Tables(1).Cell(2, 2).Range = "RL"
Case "etc"
ActiveDocument.Tables(1).Cell(3, 2).Range = "etc"
End Select
ActiveDocument.Protect wdAllowOnlyFormFields, True
End Sub

'[]

Comentanos....!

Psico

unread,
Nov 6, 2009, 1:40:40 PM11/6/09
to
Pues eso era, he utilizado el código y me funciona perfectamente. Es
justo lo que quería.

Muchísimas gracias!

Monica May

unread,
Nov 6, 2009, 6:38:52 PM11/6/09
to

Pues gracias muchas a ti por el feed-back :) !!

Saludos
Monica



0 new messages