nEiShA
04 de Junio del 2004

Hola, quisiera saber c贸mo podr铆a hacer para abrir un archivo .DOC en Word, pero con un acceso desde Visual, y que no fuese con un objeto OLE. La idea es que lo haga desde un submen煤 que ya tengo creado.
Gracias!

yo
04 de Junio del 2004

res=shell("ruta del winword" "ruta del erchivo",3)
suerte.

javi
04 de Junio del 2004

Hay una forma de abrir cualquier tipo de archivo ya sea de word, excel o un txt. Te adjunto el codigo y dime si te sirve:
'Primero declara lo siguiente:

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

'Y luego , por ejemplo pudes llamarlo desde un bot贸n:

Private Sub Command1_Click()
Dim a As Long
a = ShellExecute _(Me.hWnd, "Open", "c:fichero.doc", "", "", 1)
End Sub

'si cambias fichero.doc por otro fichero, lo abrir谩 el fichero que tengas asociado a esa extensi贸n, por ejemplo un *.pdf

Yuval
04 de Junio del 2004

tambien puedes usar el mandato Shell
Suerte!!!

kaliman
04 de Junio del 2004

Espero que te sirva el Ejemplo..

Primero debe agregar la Referencia de "Microsoft Word Object Library"

Dim oArchivo As Word.Application
Set oArchivo = New Word.Application
oArchivo.ChangeFileOpenDirectory ("C:")
oArchivo.Documents.Open FileName:="Prueba.doc", ConfirmConversions:=False, ReadOnly _
:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
, Format:=wdOpenFormatAuto
oArchivo.Visible = True

oArchivo.Documents.Close


Salu2