Pregunta: | 1790 - VISUAL BASIC 6 Y WORD 2000 |
Autor: | Domingo I. Hernández A. |
Tengo una aplicación en VB6 y deso interactuar con Word 2000. Ya desde mi aplicación tengo las base de datos abiertas y los campos que deseo listar a una especie de constancia. Como lo hago por donde empezar. No se mucho de word. Como hago para que una contancia se diriguida a una persona especifica de mi Base de Datos. Se les agradece mucho la ayuda. Desde Caracas Venezuela |
Respuesta: | Joan-Baptista Fàbregas Muñoz |
En tu aplicacion tienes que añadir la referencia Microsoft Word 8.0 Objects i despues en tu aplicacion añadir el siguiente codigo: Dim wrdAplicacion As Word.Application Dim wrdDocumento As Word.Document Dim wrdRange As Word.Range Set wrdAplicacion = New Word.Application Set wrdDocumento = wrdAplicacion.Documents.Add("Nombre de la plantilla") Set wrdRange = wrdDocumento.Range wrdRange.Text = "Texto que quieras anadir al documento" El objeto Word.Range es un trozo del documento puedes ir jugando con las propiedades Start i End de este objeto para ir seleccionando trozos del documento i ir añadiendo texto. Un consejo es crear una plantilla de documento añadiendo anotaciones (Bookmarks) en las localizaciones donde quieras añadir el texto i ir anadiendo el texto, por ejemplo: Dim wdrBookmark As Bookmark For Each wdrBookmark In wdrDocumento.Bookmarks Set wrdRange = wdrBookmark.Range wrdRange.Text = "Texto a añadir en el bookmark" Next Espero que te sirva |