Sub add() Dim wdApp As Word.Application Set wdApp = GetObject(, "Word.Application") wdApp.Documents.Add Template:="Contemporary Memo.dot" End Sub