estoy haciendo un curso de ofimatica.

Hola Gloria,

Podrias esar el siguiente codigo - presta atencion a los comentarios q te he
puesto (lineas precedidas por el apostrofe). Este codigo lo tienes q copiar
a un modulo del fichero Excel. Para ello podrias hacer doble clic sobre la
pestana con el nombre de una hoja de tu libro, seleccionar Ver Codigo y
pegar el macro en la ventana grande q aparecera a la derecha. Luego pulsa
Alt+F11 para volver a la hoja, pulsa Alt+F8 y haz doble clic sobre
"ImportarDatosDesdeWord". Antes de hacer todo esto asegurate de tener un
fichero *.doc con una tabla y algo en la primera celda de esa tabla. Tambien
dentro del codigo tendras q sustituir "c:\test.doc" por una ruta y nombre de
fichero reales (tambien entre comillas).

Saludos,
KL

'--Inicio Codigo-
'Antes de usar este codigo hay que establecer
'referencia a la "Biblioteca de Objetos de
'Microsoft Word" desde el Editor VBA (menu
'Herramientas>Referencias...)
Sub ImportarDatosDesdeWord()
'Declara las variables.
Dim oAppWD As Object
Dim wdDoc As Word.Document
Dim strRuta As String

'Establece la ruta completa hacia el documento
'Word incluido el nombre del fichero y la extension.
strRuta = "c:\test.doc"

'Crea una nueva instancia de Word.
Set oAppWD = New Word.Application
'Abre el documento Word especificado.
Set wdDoc = oAppWD.Documents.Open(FileName:=strRuta)

'Copia el contenido de la primera celda
'de la primera tabla del documento Word
'a la celda A1 del libro Excel activo.
With wdDoc.Tables(1)
ActiveSheet.Cells(1, 1) = .Rows(1).Cells(1).Range.Text
End With

'Cierra el documento.
wdDoc.Close
'Cierra Word.
oAppWD.Application.Quit
'Borra la variable.
Set oAppWD = Nothing
End Sub
'--Fin Codigo-

"gloria" wrote in message
news:

como puedo abrir un documento word desde el excel?