ABRIR ARCHIVOS DE OTRAS APLICACIONES.

porce
14 de Enero del 2004
Necesito abrir distintos archivos principalmente de work o html. No tengo ni idea de como hacerlo.¿Alguien sabe como ayudarme?

rafa
14 de Enero del 2004
Este seria el ejemplo para abrir un documento de word desde vb:
Global sub AbrirDocumento(documento as string)
On Error Resume Next
Screen.MousePointer = vbHourglass
Dim ObjWord As Object
Dim ObjDoc As Object
'Iniciamos Word y lo hacemos visible
'Set ObjWord = New Word.Application
Set ObjWord = CreateObject("Word.Application")
If ObjWord Is Nothing Then
Set ObjWord = CreateObject("Word.Application.11") 'MS Word 2003
ElseIf ObjWord Is Nothing Then
Set ObjWord = CreateObject("Word.Application.10") 'MS Word XP
ElseIf ObjWord Is Nothing Then
Set ObjWord = CreateObject("Word.Application.9") 'MS Word 2000
ElseIf ObjWord Is Nothing Then
Set ObjWord = CreateObject("Word.Application.8") 'MS Word 97
End If
If Not (ObjWord Is Nothing) Then
ObjWord.WindowState = wdWindowStateMaximize
'Set ObjDoc = ObjWord.Documents.Open(documento, , ReadOnly) 'documento incluye ruta, nombre del documento y extension
If Err <> 0 Then
ObjWord.Quit
MsgBox "No se ha encontrado el documento.", vbExclamation, "Aviso"
Else
ObjWord.Visible = True
End If
Else
MsgBox "No se ha podido abrir Microsoft Word.", vbExclamation, "Aviso"
End If
Set ObjDoc = Nothing
Set ObjWord = Nothing
Screen.MousePointer = vbDefault
End Sub

Espero que te sirva
Un saludo