Yo uso algo así:
Dim oWordApp As Word.Application
Dim oWordDoc As Word.Document
On Error GoTo ErrComunicarContrato
Set oWordDoc = oWordApp.Documents.Add(sDot)
With oWordDoc
.FormFields!Prf.Result = dsCom!NombreProfesor
.FormFields!Rexistro.Result = sReg
.FormFields!Titulo.Result = dsCom!Título
.....
Esto abre un documento basado en la plantilla sDot, y rellena una
seria de campos de formulario.
Antes debes ir a Proyecto-Referencias y marcar 'Word 8.0 Object
Library' (o algo así)
La jerarquía de clases de Word es realmente potente, pero también
grande y compleja ( y lenta).
Puedes consultarla en la ayuda de Word. Para Word 97 debes buscar
'Ayuda de Word para Visual Basic' en el índice (siempre que la tengas
instalada, creo que no se instala por defecto).
---------------------------------------------------------------------
Alberto Rodríguez Calvo (cittarc@usc.es)
Centro de Innovación e Transferencia de Tecnoloxia (CITT)
Universidade de Santiago de Compostela
Páxina Web do CITT: http://www.usc.es/citt
Avda. Ciencias s/n, Campus Sur Tfno (9)81 599800
15706 Santiago de Compostela (A Coruña) (9)81 563100 Ext 14380
España Fax (9)81 599309
---------------------------------------------------------------------
Pues les cuento que ya encontré la solución, y fue la siguiente:
Dim oWordApp As Word.Application
Dim oWordDoc As Word.Document
Dim WordObj As Object
Dim sDot As String
Set oWordApp = CreateObject("Word.Application")
sDot = "c:\mis documentos\a.dot"
Set oWordDoc = oWordApp.Documents.Open(sDot)
Set WordObj = oWordDoc
WordObj.Label1.Caption = "Lo que sea"
oWordApp.Visible = True
Espero que a alguien le sirva.
Att:
Felipe Betancur Uribe
felix518@col3.telecom.com.co