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