Asunto: Pedir datos al iniciar documento de Word (inputbox)
Estoy realizando en Word 97 una serie de plantillas de documentos, lo que pretendo es que cuando el usuario abra un documento de word le aparezcan directamente varios InputBox (cuadros de texto) pregúntándole los datos a rellenar. Tras ir introduciéndolos los irá insertando automáticamente en el marcador correspondiente.
Se trata de unos documentos modelo donde sólo hay que modificar determinados campos de texto. Por ello quiero que el usuario no tenga que ir moviéndose por el documento, sino que automáticamente le vaya pidiendo los datos e insertándolos en el documento.
He conseguido realizar la inserción de texto en los marcadores que he puesto con Visual Basic (VBA), pero no sé cómo hacer para que al abrir el documento le aparezcan los inputbox pidiéndole los datos.
Publicado:
Sab Jun 16, 2007 5:43 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Pedir datos al iniciar documento de Word (inputbox)
Anuncios
varios escribió:
Estoy realizando en Word 97 una serie de plantillas de documentos, lo que
pretendo es que cuando el usuario abra un documento de word le aparezcan directamente varios
InputBox (cuadros de texto) pregúntándole los datos a rellenar. Tras ir introduciéndolos los irá
insertando automáticamente en el marcador correspondiente.
Se trata de unos documentos modelo donde sólo hay que modificar determinados campos de texto. Por
ello quiero que el usuario no tenga que ir moviéndose por el documento, sino que automáticamente
le vaya pidiendo los datos e insertándolos en el documento.
He conseguido realizar la inserción de texto en los marcadores que he puesto con Visual Basic
(VBA), pero no sé cómo hacer para que al abrir el documento le aparezcan los inputbox pidiéndole
los datos.
Para crear un procedimiento en VBA (Visual Basic para Aplicaciones) que se ejecute al abrir un
documento de Word deberás seguir los siguientes pasos (es válido para Word 97, 2000, 2003, 2007,
siempre que tengas la opción de macros habilitada):
1. Crearemos un documento de word con el texto que consideremos. Insertaremos los marcadores en
el lugar que queramos insertar el texto automáticamente. Les daremos un nombre y guardaremos el
documento. En este documento de Word que utilizaremos como plantilla añadiremos una nueva macro.
Es importante llamarla "AutoOpen", esta será la macro que ejecute Word al abrir el documento.
En nuestro caso hemos insertado los siguientes marcadores: "maNombre", "maDireccion", "maPoblacion", "maTelefono", "maMatricula", "maMarca", "maModelo", "maFechaInfraccion", "maNumExpediente", "maDenunciado", "maFecha".
2. En el código fuente de la macro "AutoOpen" colocaremos una llamada a una función /
procedimiento que hayamos creado en el módulo de Visual Basic. También podremos colocar
directamente el código fuente para insertar el texto que se irá pidiendo al usuario en el
marcador correspondiente.
Por ejemplo:
Código:
Sub AutoOpen()
insertarTextoMarcadorPropio
End Sub
3. El procedimiento "insertarTextoMarcadorPropio" tendrá el siguiente código:
Código:
Public Sub insertarTextoMarcadorPropio()
Dim vpTexto As String
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A