Сохранение файла Word при экспорте из Access в нужном месте и с именем из поля Access

Private Sub Document_Open()
 
    ActiveDocument.MailMerge.OpenDataSource Name:="C:\БАЗЫ ДАННЫХ\учеты.accdb", _
        ConfirmConversions:=True, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="QUERY ОТМЕНА ЭКСПОРТ", _
        SQLStatement:="SELECT * FROM [ОТМЕНА ЭКСПОРТ]", SQLStatement1:= _
        "", SubType:=wdMergeSubTypeOther
                       
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
     
 Windows("Отмена.docm").Activate
     ActiveDocument.Close savechanges:=False
 
End Sub

Sub Сохранение()
 Dim ImyFile$
    Selection.GoTo What:=wdGoToBookmark, Name:="Дата"
    ImyFile = "Сопровод от " & Selection & ".doc"
    ChangeFileOpenDirectory "D:\Переписка" 'здесь путь для сохранения файла
    ActiveDocument.SaveAs2 FileName:=ImyFile, FileFormat:=wdFormatDocument, _
         LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, CompatibilityMode:=0
End Sub

vПеременная = Me![Название поля]
vПеременная = vПеременная & " - " & Me![Другое название поля]

Private Sub Кнопка36_Click()
Dim WD As Object
Dim s As String
    s = CurrentProject.Path & "\Отмена.docm"
    Set WD = CreateObject("Word.Application")
    'WD.Documents.Open FileName:="C:\Новая папка (2)\Отмена.docm"
    'WD.Documents.Open s
    WD.Documents.Add s
    
    WD.Visible = True
    WD.Application.WindowState = 1
    WD.Activate
    
'Сохранение
    s = Nz(Me!СОТРУДНИК, "ND") & " Код " & Nz(Me!Код, "ND") & ".docx"
    s = CurrentProject.Path & "\" & s
    WD.ActiveDocument.SaveAs s
 
    
End Sub