Option Explicit

Private Const APPNAME = "Предложения"
Private Const SECTIONNAME = "Порядковые номера"
Private Const DOCNAME = "" 'Постоянная часть имени файла
Private Const DOCNUM = "Номер документа" 'Порядковый номер

Dim DefaultDocName As String 'Полное имя документа

'Макрос при создании нового документа на основе данного шаблона
Sub AutoNew()
    Dim nDocNum As Integer
    
    nDocNum = Val(GetSetting(APPNAME, SECTIONNAME, Key:=DOCNUM))
    DefaultDocName = DOCNAME & Format(Date, "yyyy/mm/dd")
    SaveSetting APPNAME, SECTIONNAME, Key:=DOCNUM, Setting:=nDocNum + 1
End Sub

'Переопределение процедуры "Сохранить"
Sub FileSave()
    If ActiveDocument.FullName = ActiveDocument.Name Then
        With Dialogs(wdDialogFileSaveAs)
            .Name = DefaultDocName
            .Show
        End With
    Else
        ActiveDocument.Save
    End If
End Sub

'Переопределение процедуры "Сохранить как..."
Sub FileSaveAs()
    With Dialogs(wdDialogFileSaveAs)
        .Name = DefaultDocName
        .Show
    End With
End Sub