1)Primero hay que adicionar la
referencia de Word
a) clic en Menu Project
b) clic en Add Reference
c) clic en Pestaña COM
d)
Seleccionar Microsoft Word
XX.X Object Library
e) clic en ok
f) Luego insertamos el siguiente
codigo en la rutina deseada:
Imports Microsoft.Office.Interop.Word
Private Sub XXXXXXX
Dim wd As Microsoft.Office.Interop.Word.Application
Dim wDoc As
Microsoft.Office.Interop.Word.Document
Dim strRutaWord As String
'El siguiente código es para crear
la ruta,entre comillas se pone la ruta donde esta el documento
strRutaWord = "C:\Documento.doc"
'El siguiente código es para abrir
el documento y hacerlo visible, si se quiere dejar el documento oculto, se
cambia la palabra True por False
wd = CreateObject("word.Application")
wDoc =
wd.Documents.Open(strRutaWord)
wd.Visible = True
End Sub
Este blog ha sido eliminado por un administrador de blog.
ResponderBorrarDebes de verificar que la ruta esté correcta, el nombre debe de ser exacto
BorrarUna forma es entrar al explorador de archivos buscar el documento y copiar la ruta exacta que aparece en la barra superior
BorrarRecuerda que la dirección debe de estar entre comillas " "
ResponderBorrar