Autor Tema: Iniciar Aplicacion (Leído 1410 veces)

daniel meligeni · « **en:** Jueves 9 de Diciembre de 2004, 03:52 »

Hola: necesito para un trabajo final desarrollado en excel y con macros iniciar a traves de un userform un documento de word. Quiero colocar un boton de comando en el cual los alumnos al hacer click se les pueda ayudar con un documento realizado en word.
Muchas gracias

shakka

/* si todavia lo necesitas prueba con esto */

Option Explicit
Dim oWord As Object

'boton de comando
Private Sub cmdAbrirDWord_Click()
Set oWord = CreateObject("word.application")
oWord.Visible = True
oWord.Documents.Open ("C:\AYUDA.DOC")
End Sub

'al cerrar el form
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
oWord.Documents("AYUDA.DOC").Close
Set oWord = Nothing
End Sub

SoloCodigo

Autor Tema: Iniciar Aplicacion (Leído 1410 veces)

daniel meligeni

Iniciar Aplicacion

shakka

Re: Iniciar Aplicacion