Problemas Abrir Word desde VB
Disculpa cuando abro word me empieza a marcar varios errores que no encuentra los path de varios archivos.. Me ejecuta word pero sin abrirme ningún archivo
Tengo este código
OpenFileDialog1.ShowDialog()
Dim ruta As String
ruta = OpenFileDialog1.FileName
ruta =
"C:\Program Files (x86)\Microsoft Office\Office12\WINWORD.exe " & ruta
MsgBox(ruta)
Call Shell(ruta, AppWinStyle.MaximizedFocus)?
¿Alguien me puede ayudar?
Tengo este código
OpenFileDialog1.ShowDialog()
Dim ruta As String
ruta = OpenFileDialog1.FileName
ruta =
"C:\Program Files (x86)\Microsoft Office\Office12\WINWORD.exe " & ruta
MsgBox(ruta)
Call Shell(ruta, AppWinStyle.MaximizedFocus)?
¿Alguien me puede ayudar?
1 respuesta
Respuesta de currupipi999
1
Si lo que pretendes es abrir un documento concreto, te propongo la siguiente solución:
Dim ruta As String
Dim objApp
'Inicialización de Word
Set objApp = CreateObject("Word.Application")
objApp.Visible = True 'Con esto sera visible la ventana
CommonDialog1.ShowOpen
ruta = CommonDialog1.FileName
'Se abre el documento
ObjApp. Documents. Open ruta
También se podría hacer utilizando API's, y podrás encontrar infinidad de ejemplos en la red, aunque a mí esta solución me parece más sencilla.
Si tienes alguna duda, vuelve a postear. Si no es así y te sirvió la respuesta.
Dim ruta As String
Dim objApp
'Inicialización de Word
Set objApp = CreateObject("Word.Application")
objApp.Visible = True 'Con esto sera visible la ventana
CommonDialog1.ShowOpen
ruta = CommonDialog1.FileName
'Se abre el documento
ObjApp. Documents. Open ruta
También se podría hacer utilizando API's, y podrás encontrar infinidad de ejemplos en la red, aunque a mí esta solución me parece más sencilla.
Si tienes alguna duda, vuelve a postear. Si no es así y te sirvió la respuesta.
