Имя файла

Ох уж эта обрезка текста после ввода капчи...

Насколько я понимаю, имя созданного на основе шаблона документа до его сохранения сменить нельзя. Если бы вы создавали текстовое имя, то можно было бы в свойствах шаблона каждый раз задавать новое значения свойства "Название" или "Title" документа и тогда при сохранении основанного на шаблоне документа вам предлагалось бы это имя в качестве названия.

Dim oDoc As Document
Dim oTemp As Document
Set oTemp = Word.Application.Documents.Open(FileName:="[b]Путь к шаблону[/b]", Visible:=False)
sName = Date & Chr(160) & Time
'Меняем значение свойства "Название" шаблона
oTemp.BuiltInDocumentProperties(wdPropertyTitle).Value = sName
oTemp.Close saveChanges:=wdSaveChanges
'Открываем документ на основе шаблона
Set oDoc = Application.Documents.Add("[b]Путь к шаблону[/b]")

Но проблема в том, что ворд обрезает всё значение до первого знака препинания. Как это изменить - нужно искать, поэтому рекомендую просто сохранение вашего документа с помощью макроса

Path = "Указать нужную папку сохранения в виде C:\Documents\"
ActiveDocument.SaveAs2 FileName:=Path & Date & Chr(32) & Time & ".doc"