Importar de Word

Hola :-)

Hola grupo, una duda, se puede importar a una hoja excel,una tabla q tengo
creada en Word y modificarla en excel??? No digo el archivo Word (que se
puede) sino el contenido del Word.

Gracias de antemano.

Y que es lo que quieres importar, Una tabla o el documento entero ???

Quieres que esa tabla este vinculada a excel ??

Solo tienes una tabla o tienes mas datos ???

Comentanos mas detalles [faltantes] ok? :)

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

En el documento de Word hay varias tablas y texto. que lo que quiere es q
sea vinculado a excel, en sus propias celdas.es decir, las celdas una de las
tablas de word, se importe a una de las celdas de excel, es posible???

gracias

"Tux" escribió en el mensaje
news:

Hola :-)

Hola grupo, una duda, se puede importar a una hoja excel,una tabla q
tengo creada en Word y modificarla en excel??? No digo el archivo Word
(que se puede) sino el contenido del Word.

Gracias de antemano.

Y que es lo que quieres importar, Una tabla o el documento entero ???

Quieres que esa tabla este vinculada a excel ??

Solo tienes una tabla o tienes mas datos ???

Comentanos mas detalles [faltantes] ok? :)

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Hola Sergio :-)

En el documento de Word hay varias tablas y texto. que lo que quiere es q
sea vinculado a excel, en sus propias celdas.es decir, las celdas una de las
tablas de word, se importe a una de las celdas de excel, es posible???

gracias

Bien prueba el siguiente codigo e insertalo en un modulo de Excel [
tendras que hacer referencia a la biblioteca de VB de Microsoft word
xx.0 Object Library ] prueba y nos cometas ok ?

El codigo trae la Celda de la fila 1 columna 3 de la tabla 1ª que tengas
en el documento:




'[]

Sub importar_celda_word()

Dim wdapp As Word.Application
Dim wddoc As Document

Set wdapp = New Word.Application

Set wddoc = wdapp.documents.Open _
("H:\Documents and Settings\Usuario\Escritorio\documento.doc")


wdapp.ActiveDocument.Tables(1).Cell(1, 3).Range.Copy
Sheets("hoja1").Range("A1").Select
ActiveSheet.Paste Link:=True
wdapp.Quit


Set wdapp = Nothing
Set wddoc = Nothing


End Sub



'[]


Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com

Funciona. Muchas Gracias Monica


"Tux" escribió en el mensaje
news:

Hola Sergio :-)

En el documento de Word hay varias tablas y texto. que lo que quiere es q
sea vinculado a excel, en sus propias celdas.es decir, las celdas una de
las tablas de word, se importe a una de las celdas de excel, es
posible???

gracias

Bien prueba el siguiente codigo e insertalo en un modulo de Excel [
tendras que hacer referencia a la biblioteca de VB de Microsoft word xx.0
Object Library ] prueba y nos cometas ok ?

El codigo trae la Celda de la fila 1 columna 3 de la tabla 1ª que tengas
en el documento:




'[]

Sub importar_celda_word()

Dim wdapp As Word.Application
Dim wddoc As Document

Set wdapp = New Word.Application

Set wddoc = wdapp.documents.Open _
("H:\Documents and Settings\Usuario\Escritorio\documento.doc")


wdapp.ActiveDocument.Tables(1).Cell(1, 3).Range.Copy
Sheets("hoja1").Range("A1").Select
ActiveSheet.Paste Link:=True
wdapp.Quit


Set wdapp = Nothing
Set wddoc = Nothing


End Sub



'[]


Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]

www.fermu.com