|
Hola:
La rutina que adjunto la debes colocar en un módulo (o utilizar las instrucciones dentro de otra rutina principal)
Sub Abreword()
Dim oWord As Word.Application
Set oWord = CreateObject("Word.Application")
'el nombre del documento puede definirse como en la instrucción siguiente, obtener de alguna variable o del valor de una celda.
oWord.Documents.Open Filename:="C:\toda la ruta\Nombre del archivo.doc"
oWord.Visible = True
End Sub
Previamente, desde el Editor, menú Herramientas, Referencias, debes tildar la opción Microsoft Word...Library.
Saludos
Elsa
PD) No te pierdas mi Manual con ésta y 300 Macros más explicadas en español. Descarga la Demo gratis desde:
http://es.geocities.com/lacibelesdepunilla/manual
|
