Dim objWordApl As New Word.Application
Dim objWordDoc As Word.Document
Dim strDocName As String
Dim intMsgBx As Integer 'вариант значения при отклике юзера на сообщение MsgBox

If wdKeyEsc Then
  strDocName = ActiveDocument.Name
  Set objWordDoc = Documents.Item(strDocName)
'Проверка, если юзер сделал изменения
  If objWordDoc.Saved = True Then 'юзер ничего не изменял
    intMsgBx = MsgBox("Закрыть документ", vbQuestion + vbYesNoCancel, "Info")
'Вычисляем, что конкретно нажал юзер?
    If intMsgBx = 2 Then 'если юзер нажал "Отмена"
      Exit Sub
    ElseIf intMsgBx = 6 Then 'если юзер нажал "Да"
      objWordDoc.Close
    ElseIf intMsgBx = 7 Then 'если юзер нажал "Нет"
      Exit Sub
    End If
  Else 'юзер внес изменения - ???здесь начинается проблема, если нужно потом переименовать папку
    Set objWordApl = Word.Application
    objWordApl.Run "DocClose"
  End If
End If
strDocName = ""
Set objWordDoc = Nothing
Set objWordApl = Nothing

Private Sub Esc()
'Закрыть документ, но не оболочку MS Word
'Для активации макроса, прогнать его в VBA через F5 или пошагово через F8
'CustomizationContext = NormalTemplate 'Шаблон пользователя
CustomizationContext = ActiveDocument.AttachedTemplate
  KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyEsc), _
    KeyCategory:=wdKeyCategoryCommand, _
    Command:="Имя Вашей процедуры" '"DocClose"
ActiveDocument.AttachedTemplate.Save
End Sub

Options.DefaultFilePath(wdDocumentsPath)

ChDir Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Рабочий стол\"