Excel to word macro

D

dwake

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
 
Top