Sub ApriNuovoDocDaModello()
Dim oAppWord As Object
Dim oDocWord As Object
Dim sPath As String
Dim sNomeFileModello As String
sPath = "C:\percorsomodello\"
sNomeFileModello = "miomodelloword.docx"
Set oAppWord = CreateObject("Word.Application")
With oAppWord
.Visible = True
Set oDocWord = .Documents.Add(Template:=sPath & sNomeFileModello, NewTemplate:=False, DocumentType:=0)
With oDocWord
'.... eseguire le istruzioni relative al documento word
End With
End With
End Sub
ovviamente dovrai indicare il percorso dove è salvato il documento che fa da modello e il nome del file che fa da modello nelle due variabili "sPath" e "sNomeFileModello"