lechuga
18 de Julio del 2004

Hola alguien me puede ayudar, para abrir un archivo en cualquier extension.

Por ejemplo, En un sistema de facturacion tiene la ocpion de ayuda y cuando le das click en esa ventana ó link que automaticamente aparesca el manual de usuario.doc el cual solo lo pueda ver o imprimir.

semperfimxl
18 de Julio del 2004

Intenta con esto...

Para accesar mas facilmente las propiedades y metodos de Word en tu proyecto, marca en referencias la casilla correspondiente a "Microsoft Word X.x Object Library" y cambia la linea
Dim oWord as Object
por
Dim oWord as Word.Application

Private Sub Command1_Click()
Dim oWord As Object
' Dim oWord as Word.Application


On Error Resume Next 'Ignorar errores en esta sección
Set oWord = GetObject(, "Word.Application") 'Busco una copia ejecutandose de Word
If Err.Number <> 0 Then 'Si Word No Estaba Ejecutandose
Set oWord = CreateObject("Word.Application") 'Ejecutarlo
End If
Err.Clear

On Error GoTo 0 'Resumir el tratamiento default de errores

oWord.Documents.Open "c:MY DOCUMENTSAYUDA.DOC", , True
oWord.Visible = True
Set oWord = Nothing
End Sub