excel macro to copy the word document to new excel workbook

[Ranjit kurian]

I need Excel macro to copy the word document data's to a new excel workbook.

 

[Shasur]

Hi

You can try developing the following code

Sub CopyDoc2Excel()

Dim wdApp As Word.Application, wdDoc As Word.Document

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0

Set wdDoc = wdApp.Documents.Open("c:\sample.doc")
wdApp.Visible = True

wdDoc.Activate

wdDoc.Content.Copy
Range("A1").PasteSpecial xlPasteAll

'Close the document
wdApp.ActiveDocument.Close (wdDoNotSaveChanges)
'Close out of Word
wdApp.Quit (wdDoNotSaveChanges)



End Sub


Cheers
Shasur