excel macro to copy the word document to new excel workbook

  • Thread starter Thread starter Ranjit kurian
  • Start date Start date
R

Ranjit kurian

I need Excel macro to copy the word document data's to a new excel workbook.
 
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
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Copy from Excel to Word 2
Unwanted workbooks on startup 2
Excel Protection 2
Custom Document Properties in Word documents and Excel workbooks 13
Macro for all Excel Workbooks to print to PDF 2
Excel Copy cells from one worksheet to another workseet - increment row & do again 0
Saving a Word document as PDF from en Excel macro 2
How to Unlock Excel Workbook protected by MACRO Password 6

Back
Top