Visual Basic - Word con VisualBASIC

Necsito saber como generar un documento de Word desde VisualBASIC 6, y ademas, como una alternativa, hacer que este documento sea de solo lectura.
Desde ya muchas gracias y felicidades !!!
Eduardo
Cordoba
Argentina

me acabo de levantar y me e puesto a mirar esto, hoy es nochebuena (y mañana navidad, pr si alguno no se acurda) mi mami me ha dixo que esta noxe senamos pavo y que este en casa a la hora de xenar, asi que hoy salgo poco porque tengo que volver a casa antes de las oxo.
Lo siento si no e podido responder a tu pregunta (tanpoco sabia cual era) pero es que tengo prixa.
Manolo
Montevideo
Uruguay

Ha llegado la hora de los "panchitos" os quedais en vuestros paises y no vengais aqui a fastidiar a los españoles que no necesitamos mas delicuentes, que con los que han llegado ya tenemos mas que suficientes.
Sois todos unos vagos y ladrones, no quereis trabajar pero si quereis robar.
Ecuatorianos, Chilenos, Uruguayos, Argentinos, Colombianos, Peruanos, Indianos, Venezolanos, Costaricenses, Mexicanos, Paraguayos, Papagayos, Nicaraguenses, Castrenses, Guatelmatecos, Indios Onas de la Patagonia, Nicaraguenses y hasta haitianos. Sois todos unos vagos y maleantes además de subnormales (vaya raza que dejamos alli los españoles) está claro que no fuimos alli a conquistar nada sino a follarnos a las indias (vuestras abuelas)
Que paseis una felz navidad

Completamente de acuerdo contigo, compañero. Yo además añadiría a los vagos y maleantes que nos invaden este pais en cayucos (antes pateras) moros de mièrda, negros que huelen mal (bueno huelen a negro; UFFFFF ¡que peste!)
y no te digo de los sudacas el que no es vago es un sicario. Que sos den por el qlo a todos.
feliz navidad

Queridos hermanos: que lastima que en este sitio no se restinja la entrada solo a aquellos que queremos buscar soluciones a nuestras dudas y de vez en cuando alludar a un colega menos afortunado que nosotros. He recibido ayuda de todos aquellos "bagos", "malolientes", "invasores", y tantas otras cosas que han dicho. Que pena que siendo del "primer mundo" tengan aún una mente del precambrico, que hasta un neandertal seria, en comparacion, más sabio.
PD. En algun momento pense que estaban hacinedo una autobiografia.......
Feliz Año Nuevo a todos (incluso a uds)

En Word:
Abres un documento nuevo y cuando acabes, lo grabas con extensión .doc
En ese documento puedes poner marcadores, por ejemplo:

%%nombre%% %%apellido1%% %%apellido2%% y %fecha%%
son marcadores en los cuales se colocaran el texto que le envies desde VB.
Colócalos donde te interesen.

En la plantilla puedes seleccionar el marcador y darle el formato que quieras (color, negrita, etc.) esto es mucho más práctico, rápido, cómodo y seguro que hacerlo desde código.

Por cierto, trabajas sobre la plantilla pero, si pones el documento visible verás que te abre un Documento1.doc
Esto tiene la ventaja de que te deja "intacta" la plantilla.

En tu proyecto añade en referencias
Microsoft Word 10.0 Objet Library (MSWORD.OLB)

En el proyecto
Dim xWord As Word.Application ' Instancia a Word
Dim xRange As Range ' Rango del objeto
Dim xSelection As Find ' Búsqueda del objeto
Set xWord= New Application
Dim destino$
destino = "C:\MiPlantilla.doc"

‘Esta linea abre formulario sin contraseña
xWord.Documents.Add destino

‘Esta linea abre formulario con contraseña
xWord.documents.Open "C:\MiPlantilla.doc", False, False, False, "poner contraseña"

Set xRange = xWord.ActiveDocument.Range
xRange.Find.Execute "%%apellido1%%", , , , , , , , , Text1.text, True

Set xRange = xWord.ActiveDocument.Range
xRange.Find.Execute "%%apellido2%%", , , , , , , , , Text2.text, True

Set xRange = xWord.ActiveDocument.Range
xRange.Find.Execute "%%nombre%%", , , , , , , , , Text3.text, True

ESTAS SON DIFERENTES OPCIONES A LA HORA DE IMPRIMIR:

'Se puede guardar el documento, o plantilla
'xWord.ActiveDocument.SaveAs “C:\MiPlantilla.dot "

' Si queremos visualizarlo en pantalla
xWord.Visible = true

' 'Maximizarlo
xWord.WindowState = wdWindowStateMaximize

' 'Tenerlo activo, visible en pantalla
xWord.Application.Activate

' No preguntar si queremos guardar el documento
' xWord.DisplayAlerts = wdAlertsNone

‘ Imprimir
xWord.ActiveDocument.PrintOut

' Para evitar la pregunta: ¿Desea guardar el documento….?
xWord.ActiveDocument.Close False

'Cerramos word
xWord.Quit

'Liberamos el objeto
Set xWord = Nothing

Feliz Navidad, Eduardo