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

Carta Usando Visual Basic (2669 downloads)