нужно сохранять заполняемые из access шаблоны word по значению поля "краткое_наименование".
Пока так - нажимаем кнопку заполнения шаблона, шаблон открывается, заполняется и предлагается просто сохранение файла под именем по первому слову (стандартно в word).
Нужно - открыть, заполнить, сохранить под именем значения, потом открыть снова.

Private Sub кнПечатьШаблонИскаУпрощ_Click()

Dim Name As String
Name = Me.Краткое_наименование

 'указываем абсолютный путь к шаблону документа, по которому будем формировать свой документ
    strPathDot = Application.CurrentProject.Path & "\ИскУпрощ(шаблонAccess).dot"

'указываем под каким именем сохранять создаваемый документ
strPathWord = CurrentProject.Path & "\" & Forms![Данные]!Краткое_наименование & ".doc"

    Call funOutputWord(strPathDot, strPathWord)
   
End Sub

'функция выгрузки в Word значений полей формы через закладки в шаблоне
Function funOutputWord(strPathDot As String, strPathWord As String) As Boolean
On Error GoTo Err_

Dim DlgUser As Integer, i As Long

    'проверяем наличие сформированного ранее документа
    If Dir(strPathWord) <> "" Then 'если нашелся документ по заданому в strPathWord полному пути (вместе с именем)
        DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbYesNo, "admin")
        If DlgUser = vbNo Then 'если пользователь выбрал Нет - то открываем прежний вариант документа
            Set app = CreateObject("Word.Application") 'создаем объект Word, чтобы можно было работать с его методами и свойствами
            With app
                .Visible = True 'запускаем приложение Word
                .Documents.Open strPathWord 'открываем документ (по пути в переменной strPathWord)
            End With
            Set app = Nothing 'уничтожаем переменную
        Else 'если пользователь выбрал Да - то есть согласился перезаписать документ
            GoTo nn 'переходим по метке nn
        End If
    Else 'если не нашлось документа по заданому в strPathWord полному пути
nn:
        Set app = New Word.Application 'делаем ссылку на объект Word для создания нового документа
        app.Visible = True 'запускаем приложение Word
        app.Documents.Add strPathDot 'присоединяем к объекту Word шаблон по заданому пути
        With app.ActiveDocument 'делаем ссылку на активный документ - в данном случае тот что формируется
    'находим закладку по имени в заменяем ее на текст из поля формы
            .Bookmarks.Item("полное_наименование").Range.Text = Nz(Полное_наименование, "")
            .Bookmarks.Item("краткое_наименование").Range.Text = Nz(Краткое_наименование, "")
            .Bookmarks.Item("адрес").Range.Text = Nz(Адрес, "")
           
            
            strPathWord = CurrentProject.Path & "\" & Forms![Данные]!Краткое_наименование & ".doc"
            .SaveAs (strPathWord) 'сохраняем созданный документ по заданному пути strPathWord
        End With
        Set app = Nothing 'уничтожаем переменную
    End If
    funOutputWord = True 'ставим флаг успешного выполнения функции
    
Exit_:
    Exit Function
Err_:
    funOutputWord = False
    Err.Clear
    app.Quit
    Resume Exit_
End Function

http://www.sql.ru/forum/1116759/sohranenie-dannyh-v-fayl-word-pod-zadannym-po-znacheniu-polya-imenem