Copy data from Word Table to Excel

If you want to copy the content of a word document to excel. Snapshot below-

Here is the code-

Sub test()
Dim doc As New Word.Application
doc.Visible = True
' TOOL -> REFRENCE-> MICROSOFT WORD
Documents.Open "C:\Documents and Settings\achamanlalko\Desktop\WORD TABLE.doc"


Documents(ActiveDocument.Name).Activate

'
' method 1
ActiveDocument.Tables(1).Range.Copy
ThisWorkbook.Sheets(1).Range("j1").PasteSpecial xlPasteValues



' method 2


k = 1
For i = 1 To ActiveDocument.Tables(1).Range.Rows.Count

For j = 1 To ActiveDocument.Tables(1).Range.Columns.Count

Cells(i, j) = ActiveDocument.Tables(1).Range.Cells(k)

Cells(i, j) = Application.WorksheetFunction.Clean(Cells(i, j))
k = k + 1
Next
Next
doc.Quit
End Sub


Word Documnet

Excel Macro File