Set oword = CreateObject("word.application")
       With oword
          .Visible = True
          .Activate
          .WindowState = wdWindowStateMaximize
          .Documents.Open "pepito.doc"
       End With


----------
De: tronco <tronco@cotesa.es>
A: vb-esp@ccc.uba.ar
Asunto: (VB-ESP) Arrancar Word con un documento
Fecha: viernes 7 de noviembre de 1997 7:30

Hola amigos.

¿ Alguien me puede decir como puedo mediante OLE abrir el Word con un
documento especificado ?

Gracias
----------

Aqui tienes una rutinita que juega un poco con el Word quizas la pueda
mejorar alguien pero funciona. Fijate solo en las sentencias de Word.

Dim msword As Object
Dim nomi As String
If Not IsNull(Text1.Text) And Trim(Text1.Text) <> "" Then
    nomi = Data2.Recordset("nombre")
    Set msword = CreateObject("word.basic")
    Clipboard.Clear
    cabecera.Text = "NOMBRE........: " & nomi & "
   EDAD...: " & calc_edad(Data2.Recordset) & _
    Chr(10) & "PETICION DR...: " & Pmedico & _
    Chr(10) & "ESTUDIO REALIZADO : " & _
    Chr(10) & Chr(10) & "
                                 FECHA.. : " & Date & Chr(10) & " "
    Clipboard.SetText cabecera
    msword.ArchivoAbrir Text1.Text
    msword.EdiciónPegar
    msword.ArchivoGuardarComo "c:\bromeradi\kkk.doc"
    msword.ArchivoCerrar
    Set msword = Nothing
    OLE1.OLETypeAllowed = 2
    Data1.Recordset.AddNew
    OLE1.CreateEmbed "c:\bromeradi\kkk.doc"
    OLE1.Update
    Data1.Recordset("idpaciente") = Data2.Recordset("idpaciente")
    Text2.Text = Date
    If Not IsNull(Text2.Text) And Trim(Text2.Text) <> "" Then
        Data1.Recordset.Update
        Else
        Data1.Refresh
    End If
    End If
    Data1.Recordset.Bookmark = Data1.Recordset.LastModified
    SSCommand1.Enabled = False

----------
De: tronco <tronco@cotesa.es>
A: vb-esp@ccc.uba.ar
Asunto: (VB-ESP) Arrancar Word con un documento
Fecha: viernes 7 de noviembre de 1997 8:30

Hola amigos.

¿ Alguien me puede decir como puedo mediante OLE abrir el Word con un
documento especificado ?

Gracias
----------