Abrir documento word
Hola, estoy empezando a utilizar el vb. Lo que quiero hacer es abrir un fichero word desde otro fichero word. Lo que he hecho es crear un boton con el siguiente codigo:
Private Sub CommandButton1_Click()
Dim oWord As New Word.Application
oWord.Visible = True
oWord.Documents.Open "path"
End Sub
El caso es que se me abre bien pero se queda el word un poco colgado sobretodo cuando quiero cerrar el fichero abierto. Alguien sabe si es que hago algo mal?
Y tambien quisiera saber como se puede hacer para indicar que el fichero no sea solo de lectura.
Un saludo. Agradeceré cualquier comentario que me pueda ser util
Ruthy
Private Sub CommandButton1_Click()
Dim oWord As New Word.Application
oWord.Visible = True
oWord.Documents.Open "path"
End Sub
El caso es que se me abre bien pero se queda el word un poco colgado sobretodo cuando quiero cerrar el fichero abierto. Alguien sabe si es que hago algo mal?
Y tambien quisiera saber como se puede hacer para indicar que el fichero no sea solo de lectura.
Un saludo. Agradeceré cualquier comentario que me pueda ser util
Ruthy
Pon esto en c:MiArchivoExcel.xls mete la ruta
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub CommandButton1_Click()
ShellExecute 0, vbNullString, "c:MiArchivoExcel.xls", vbNullString, vbNullString, 3
End Sub
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub CommandButton1_Click()
ShellExecute 0, vbNullString, "c:MiArchivoExcel.xls", vbNullString, vbNullString, 3
End Sub