Sergito
09 de Enero del 2003

Estoy creando una aplicación con Vb y tengouna duda: He puesto un FileListBox y quiero que me deje abrir los archivos *.doc que veo con ese objeto cuando arranco el programa.Si alguien me hecha una mano se lo agradeceria.GRacias

sirpolako
09 de Enero del 2003

Entiendo que lo que quieres hacer es abrir un documento word de una lista, pero que ya sabes como conseguir esa lista. Te paso un código que hice yo para abrir un .doc pasándole la ruta completa del fichero:

Tienes que tener el proyecto referenciado al Microsoft Word DataObject

Public Sub mrAbrirWord(ByVal lvsRuta As String)
Dim moWord As Word.Application
On Error GoTo Interrupcion

Screen.MousePointer = vbHourglass
Set moWord = CreateObject("Word.application")

\'Aqui es donde se abre el documento
moWord.Documents.Open lvsRuta

\'Esto es para que la ventana del word esté visible
moWord.Visible = True

\'Esto no me acuerdo de para qué era :-))
moWord.DisplayAlerts = 0

Set moWord = Nothing
Screen.MousePointer = vbDefault

On Error GoTo 0
Exit Sub

Interrupcion:
MsgBox "Error " & Error, vbCritical
End Sub


Espero que te sirva

sirpolako
09 de Enero del 2003

Elimina todas las barras invertidas, las ha añadido el navegador :-))