Hello

I hope this macro helps you


Sub importValuesFromWordTables()
'test with Excel2002
'Activate Microsoft Word xx.x Object Library
'
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("word.application") 'open Word session
WordApp.Visible = False 'Word not visisble during operation
Set WordDoc = WordApp.Documents.Open("C:\myDoc.doc") 'open Word doc

'copy third row of the first Word table
WordDoc.Tables(1).Rows(3).Range.Copy

'paste in Excel
Range("A1").PasteSpecial xlPasteValues

WordDoc.Close 'close Word doc
WordApp.Quit 'close Word session
End Sub


regards ,
michel


--
michelxld
------------------------------------------------------------------------
michelxld's Profile: http://www.excelforum.com/member.php...o&userid=17367
View this thread: http://www.excelforum.com/showthread...hreadid=398449