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
No comments:
Post a Comment