Set WordObj = CreateObject("Word.Basic")
WordObj.FileNew
WordObj.EditClear