Sub WordLateBound() Dim objWord As Object Dim objDoc As Object Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add objDoc.SaveAs "C:\testdoc2.doc" objDoc.Close Set objDoc = Nothing Set objWord = Nothing End Sub