Word VisualBasic Script

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