Тогда я могу предложить такой макрос для шаблона
Sub FileSave()
'Если документ уже сохранялся, то сохраняем его без показа диалога сохранения
If Len(ActiveDocument.FullName) <> 0 Then
ActiveDocument.Save
Exit Sub
End If
Dim OldActiveDirectory As String 'Путь по умолчанию
OldActiveDirectory = Options.DefaultFilePath(wdDocumentsPath)
Options.DefaultFilePath(wdDocumentsPath) = "C:\" 'Меняем путь на требуемый
Dialogs(wdDialogFileSaveAs).Show 'Показываем диалог сохранения файла
Options.DefaultFilePath(wdDocumentsPath) = OldActiveDirectory 'Восстанавливаем путь по умолчанию
End Sub
Для документов, основанных на этом шаблоне, при сохранении будет перехватываться сохранение и выполняться так, как нужно. В макросе нужно только указать путь к папке, в которую нужно сохранять документы, основанные на этом шаблоне. можно и не в макросе прописать, а в свойствах файла шаблона и оттуда их брать. Как-то так пока что
Лучше день потерять — потом за пять минут долететь!