Resumen Formularios Word y Visual Basic   (2 mensajes )

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



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com