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