Llamar a WORD y Modificar una Carta Existente

Con este código puedes llamar a un DOCUMENTO de WORD, modificarlo y luego guardarlo como una copia si deseas, esto es útil por ejemplo para usar una carta modelo y editar los campos de destinatario para luego ser impreso

Crea un documento cualquiera en Word y escribe lo siguiente:

“Buenos días Sr. Orlando, como esta su esposa Roxana, espero que todo bien, les invito a mi fiesta el día 02/09”

Ahora, marca la palabra Orlando y ve a
Menú Inserta -> Marcador… y ponle “Destinatario”

Luego Marca la palabra Roxana y haz lo mismo que antes, pero ponle como nombre “Esposa”
finalmente haz lo mismo con la fecha y llámalo “Fecha”

Graba el documento con el nombre de “Carta.doc

El Código:
Haz la Referencia a “Microsoft Word xx Object Library” donde xx varia según la versión que tengas instalada, Pega 3 TextBox y llámalos: txtDestinatario, txtEsposa, txtFecha y un botón de comando y llámalo cmdLlenaCarta

Option Explicit
Dim objWord As Word.Application

Private Sub cmdLlenaCarta_Click()
Set objWord = New Word.Application
objWord.Visible = True
'Pon la Ruta donde Guardaste la Carta
objWord.Documents.Open App.Path & "Carta.doc"
objWord.Documents(1).Bookmarks("Destinatario").Range =txtDestinatario.Text
objWord.Documents(1).Bookmarks("Esposa").Range = txtEsposa.Text
objWord.Documents(1).Bookmarks("Fecha").Range = txtFecha.Text
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set objWord = Nothing
End Sub

Si, no les salió bien, aquí les tengo el ejemplo :p

Archivos adjuntos
Tipo de Archivo: zip[download id=”949″]

Posted

in

by

Comments

2 respuestas a “Llamar a WORD y Modificar una Carta Existente”

  1. Esaú Avatar
    Esaú

    Me sale un error de que el elemento del conjunto solicitado no existe. ¿Qué hago?

  2. Carlos Avatar
    Carlos

    Hola, probé el programa y anda muy bien, me as dado una gran mano. Mil Gracias

    Carlos

Agregue un comentario a Carlos Cancelar respuesta

Su dirección de correo no se hará público. Los campos requeridos están marcados *