Sub WordEarlyBound()
Dim wd As Word.Application
Dim doc As Word.Document
Set wd = New Word.Application
Set doc = wd.Documents.Add
doc.SaveAs "C:\testdoc1.doc"
doc.Close
Set doc = Nothing
Set wd = Nothing
End Sub