Sub wordDoc() Dim WordApp As Object Set WordApp = CreateObject("Word.Application") With WordApp .Documents.Add End WithEnd Sub