hola amigos del Foro , quisiera saber como va la instruccion para porder abrir un archivo .doc , intente usar el mismo codigo paraun .txt pero creo q no funciona de la misma manera.


el codigo q uso es el siguiente:
numArchivo = FreeFile
Open "c:\autotransportes\FACTURA.DOC" For Input As #numArchivo

cadena = Input$(LOF(numArchivo), #numArchivo)


Close #numArchivo ' cerramos el archivo

MsgBox cadena


.... asi tengo el codigo pero no me muestra nada , lo intento con un .txt y todo es perfecto no se q pase espero me puedan ayudar.



de antemano muchas gracias..

hola, el codigo que utilizas es para abrir el contenido del archivo, no en formato de word, por eso te apareceran simbolos raros, intentalo mejor con la instrucción shell.

shell "C:\autotransportes\factura.doc",vbnormal

espero te sea util.

el codigo de drakun no te va a andar.

el shell se usa para abrir ejecutables por ejemplo:

shell "c:\ejemplo.exe",VbNormalnoFocus

pero si queres abrir cualquier archivo .doc,.pdf etc con su programa que lo gestiona entonces pone esto:

pone un boton en el form:

primero declaras la api y despues el codigo del boton.

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

Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "c:\autotransportes\FACTURA.DOC", "", "", 4
End Sub
Edited by: seba123neo

Ahí va otro ejemplo que hace lo mismo, pero sin llamadas a la API ni referencias a MSWORD.

Código:

 Dim oWord As Object
 Set oWord = CreateObject("Word.Basic")
 oWord.ChDefaultDir "c:\Autotransportes", 0
 oWord.FileOpen Name:="Factura.doc"
 oWord.AppShow

Saludos