Excel to word macro

  • Thread starter Thread starter dwake
  • Start date Start date
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
 
Back
Top