Pregunta: | 6472 - COMO ACTUALIZAR LOS CAMPOS DE UN DOCUMENTO |
Autor: | Greco Jars |
Hola: Mi problema es el siguiente. Estoy Haciendo un pequeño probrama en visual basic,en donde se piden unos datos al usuario, y despues estos datos deben ser vaciados a un documento hecho en word. Mi problema es el siguiente al documento le agregue campos(Rellenar) pero como hago para vaciar los datos en los campos a través de VB6.En una pregunta anterior que hice me dieron de referencia la pregunta 189, donde aparece un codigo,utilice ese codigo pero no resulta, y no se que hacer. Por lo tanto me gustaria que me dieran alguna solución porfavor. Ya que no me manejo muy bien en vb6. Y si fuese posible que me dieran un codigo, donde se indique como hacerlo. Desde ya muchas gracias |
Respuesta: | Jesús Valdivieso Mariscal |
Bueno, no sé si te servirá esta solución, pero ahí va. La idea es la siguiente, tu documento en Word con la opción 'Combinar correspondencia' relacionalo con un fichero de texto con los campos y registros que quieres enviarle y bueno así debe ser suficiente. Por ejemplo, el código en VB podría ser de esta forma 'Crea un Tipo Definido, donde se guarden los campos a insertar en el documento word Type Registro Campo1 as string Separador as string Campo2 as string Fin as string End Type 'Después debes pasar el contenido de los datos en pantalla a este registro. Primero debes crearte una variable Dim Datos as Registro Registro.Campo1 = Campo1Pantalla.Text Registro.Campo2 = Campo2Pantalla.Text Registro.Separador = ";" 'Esto es para separar los campos Registro.Fin = vbCrLf 'Esto es para que sepa Word cuando_ termina un registro 'Ahora hay que guardar este registro en el fichero de texto que debes combinar con el tuyo en Word. 'Crea estas variables antes Dim NArchivo As Integer Dim NRegistro As Integer 'Ahora viene el código para guardar en un archivo NArchivo = FreeFile NRegistro = 1 Open "c:\directorio de trabajo\ArchivoCombinar.txt" For_ Random As NArchivo Len = Len(Datos) Put #NArchivo, NRegistro, Datps Close NArchivo 'Y ya está ya hemos generado el archivo de texto que contiene los datos que quieres combinar. Ya sólo tienes que abrir el archivo .doc en word (que debes haber creado antes Combinando Correspondencia con el archivo de texto generado en Visual Basic. Saludos, y que te sea de ayuda........... |