Excel to word macro
 

So I created a macro that opens a word file and pastes into excel. The
problem I'm having is closing the word document after it has been used. Here
is my code below. Any help would be appreciated.

Sub WordToExcel()
Dim MyWd As Object
Set MyWd = GetObject("Audit Tracking.doc")

MyWd.ActiveWindow.Selection.WholeStory
MyWd.ActiveWindow.Selection.Copy

Sheet8.Range("A1").PasteSpecial xlPasteValues
End Sub

Excel to word macro
 

don't multipost.
see the reply in your other thread.
susan


On Dec 2, 1:19*pm, dwake wrote:
So I created a macro that opens a word file and pastes into excel. *The
problem I'm having is closing the word document after it has been used. *Here
is my code below. *Any help would be appreciated.

Sub WordToExcel()
* Dim MyWd * * * As Object
* Set MyWd = GetObject("Audit Tracking.doc")

* MyWd.ActiveWindow.Selection.WholeStory
* MyWd.ActiveWindow.Selection.Copy

* Sheet8.Range("A1").PasteSpecial xlPasteValues
End Sub