VB y Archivos word

[Troyano]

Antes de Word 97 existia el componente WordBasic y apartir de este se remplazo por VBA (Visual Basic for Applications).

Con WordBasic puedes crear un objeto con
****************************************
dim DocWord as Object
set DocWord=createObject("Word.Basic")

*************************************
Con este podias hacer algo como esto:

*************************************
Dim Libro As String 'para almacenar el título del libro
Dim r As Integer 'valor devuelto por MsgBox
Dim n As Integer

'Iniciar una copia de Word
Set DocWord = CreateObject("Word.Basic")
'Crear un nuevo documento vacío (equivale a FileNew)
DocWord.ArchivoNuevo
DocWord.Negrita 'equivale a Bold
DocWord.Insertar "Estimado Sr. " & "Fulano:"
'insertar equivale a Insert
DocWord.Insertar vbCrLf 'insertar retorno de carro
DocWord.Insertar vbTab 'sangrar el texto
DocWord.Insertar "La editorial RA-MA tiene el gusto de "
DocWord.Insertar "enviarle los títulos por Vd. solicitados "
DocWord.Insertar "del autor " & Text2.Text & "."
DocWord.Insertar vbCrLf
DocWord.Insertar vbTab 'sangrar el texto
DocWord.Insertar "Al mismo tiempo aprovechamos para "
DocWord.Insertar "adjuntarle el catálogo de nuestras "
DocWord.Insertar "publicaciones que podrá obtener en "
DocWord.Insertar "su librería habitual."
DocWord.Insertar vbCrLf

'Acceder a los registros de la base de datos
n = 1
While Not Adodc1.Recordset.EOF
'Para evitar que libro sea campo nulo (valor Null)
If Not IsNull(Adodc1.Recordset.Fields("Título")) Then
Libro = Adodc1.Recordset.Fields("Título")
Else
Libro = " "
End If
'Si libro fuera Null el programa causaría un error
DocWord.Insertar Libro & vbCrLf
Adodc1.Recordset.MoveNext
DoEvents 'ejecutar mensajes de otras aplicaciones
n = n + 1
Wend
Adodc1.Recordset.MoveFirst
DocWord.ArchivoImprimirPredeter 'lanzar la tarea de impresión
Form1.SetFocus 'volver al formulario antes de MsgBox
r = MsgBox("¿Desea ver el documento?", vbYesNo, "Atención:")
If r = vbYes Then
AppActivate "Microsoft Word"
Else
DocWord.ArchivoCerrar 2 'cerrar sin guardar (2)
Set DocWord = Nothing 'liberar los recursos
End If
***********************************************