Изменил документ вчера или сегодня???? Не надо путаницы

Значит изменялся, иначе бы не сохранялся!
Конкретизируйте. Что не изменялось?

Где-то я уже напоминал, что ActiveDocument.Undo - это не параметр, а команда, выполняющая одну отмену. Вы неверно ее используете.

То, что делает эта строка по крайней мере странно:
- Undo=False - значит буфер отмены пуст (т.е. документ не изменен),  после чего выводится диалог на сохранение;
- Undo=True - значит успешно выполнена отмена одного последнего действия (т.е. документ, до этой операции отмены, был изменен, а вот после...);

я говорил, что напишу вечером, чего тянуть. Есть шаблон, его имя например 00.dot, Word 2003 года у него имеется поцедура:

Sub AutoClose()
'AutoClose работает при закрытии документа Ворд

'условие, если буфер отмены пуст, тогда ...
'закрыть документ, не сохраняя его и при этом не выводить диалог о его сохранении
If ActiveDocument.Undo = False Then Dialogs(wdDialogFileSaveAs).Execute

End Sub

Также имеется процедура
Sub AutoNew() и Sub AutoOpen(), которые делают одну и ту же функцию Function AutoOpen_AutoNew()
В которой есть много чего, мне кажется нет смысла описывать, что в ней, потому что не зависимо от этого мне надо. Например открыв этот шаблон через создать ввожу слово, жму в верхний крестик справа предлагает сохранить документ, но почему уже введено там в поле имени "Frame...." мне этого не надо, надо чтобы было пусто, как этого добиться?
2. Главное, но после того как всё же я сохраню документ например под именем 55,  например сегодня, открываю завтра на секунду и тут же закрываю, он закроется и временем моего последнего изменеия будет свежее время, как этого избежать??? Заранее спасибо

поставил я уровень безопасности очень высокий. Проделал тоже самое после открытия документа дата изменения не меняется. Я понимаю, что эти изменения делал ранее макрос, но тем не менее как добиться того чтобы как я и спрашиваю в вопросе Изменил документ вчера или сегодня???? Не надо путаницы ????

Ваш ответ как я понял таков:

Sub AutoClose()
'AutoClose работает при закрытии документа Ворд

'условие, если буфер отмены пуст, тогда ...
'закрыть документ, не сохраняя его и при этом не выводить диалог о его сохранении
If ActiveDocument.Undo = False Then Dialogs(wdDialogFileSaveAs).Execute:ActiveDocument.Saved = True
End Sub
Так??
Верится с трудом, вроде я делал так, проверю, напишу

Я не могу ничего посоветовать по поводу Вашего кода. Потому как целиком кода я не видел, а кусок выложенный в первом сообщении, для меня, лишен всякого смысла.

внешняя ссылка
посмотрите пожалуйста шаблон по ссылке, спасибо

Честно сказать не понял Вашей мысли, в плане чего, или попутали название, так как нет необходимости в процедуре
Frame_рамка_каркас_Click()
ничего делать кроме как Beep
Если предположить что Вы просто спутали название, тогда я не пойму в коде:

Dim Сохранен As Boolean
    Сохранен = ActiveDocument.Saved
    ' начало не фиксируемых изменений
    ' ...
    ' конец не фиксируемых изменений
    If Сохранен Then ActiveDocument.Saved = True

как то же должны отделяться фиксируемые изменения от не фиксируемых, но я их не вижу, видимо не полный код
или как эта строка If Сохранен Then ActiveDocument.Saved = True будет работать

Попробую сформулировать Вашу задачу, как я ее понимаю:
- есть документ со встроенным элементом управления;
- надо чтобы в документе сохранялись все изменения, кроме изменений самого элемента управления.
В задаче нужны макросы:
1. Макрос настройки элемента управления при открытии/создании документа.
2. Макросы поддержки работы элемента управления.
3. Макрос сброса элемента управления в начальное состояние перед сохранением документа.
Третий пункт на Ваше усмотрение. Это если Вы хотите, что элемент управления не хранил в себе данных. Как вариант - элемент управления перед сохранением можно вообще удалять.

В общем, макросы будут выглядеть так:

Sub AutoClose()
    If ActiveDocument.Saved = False Then
        ' сброс состояния элемента управления в исходное перед сохранением
    End If
End Sub

Sub Макрос_элемента_управления()
Dim Сохранен As Boolean
    ' фиксируемые изменения
    Сохранен = ActiveDocument.Saved
    ' не фиксируемые изменения
    If Сохранен And (ActiveDocument.Saved <> True) Then ActiveDocument.Saved = True
    '  фиксируемые изменения
    Сохранен = ActiveDocument.Saved
    ' не фиксируемые изменения
    If Сохранен And (ActiveDocument.Saved <> True) Then ActiveDocument.Saved = True
    '  фиксируемые изменения
End Sub

Sub AutoOpen()
    AutoOpen_AutoNew
End Sub

Sub AutoNew()
    AutoOpen_AutoNew
End Sub

Sub AutoOpen_AutoNew()
    ' настройка элемента управления 
    ActiveDocument.Saved = True
End Sub

True - указывает, что документ не был изменен с момента его последнего сохранения
False - перед закрытием документа Word выдаст запрос на его сохранение

У меня привычка - сравнивать с проверяемым значением.

Поясню на примере типа Byte. Допустим, надо проверить условие X <> 10. Вы же не пишете:

If (X = 0) or (X = 1) or ... or (X = 225) Then ' сравнения с числами от 0 до 255, кроме 10
    MsgBox "X <> 10"
End If

Вот и я не пишу, а сравниваю с проверяемым значением:

If X <> 10 Then MsgBox "X <> 10"

Да, если сравнивать переменные типа Boolean это не критично, т.к. переменная имеет только два значения. Но важно, когда сравниваешь переменные разного типа. Пример:

Dim L as Long
   L = 999
   MsgBox L = False '  результат False, но это не значит что L = True !!! 

Я и не спорю, что это не вопрос кода, это вопрос моего понимания
благодаря Вам я пусть и не понимая, но внёс себе на вооружение строку кода:
'условие, если документ не был изменен с момента его последнего сохранения, тогда ...
If ActiveDocument.Saved = True Then ...
Так я Вам говорю, что не работает она, а работает вот эта строка:
'условие, если документ не был изменен с момента его последнего сохранения, тогда ...
If ActiveDocument.Undo = False Then ...
Также благодаря Вам я пусть и не понимая, но внёс себе на вооружение строку кода:
'перед закрытием документа Word выдать запрос на его сохранение
ActiveDocument.Saved = False
Тогда у меня возникает вопрос, как закоментировать эту строку:
Dialogs(wdDialogFileSaveAs).Execute '?????????????????????????
А также мою строку кода в Sub AutoClose():
If ActiveDocument.Undo = False Then Dialogs(wdDialogFileSaveAs).Execute
я коммертирую так:
условие, если буфер отмены пуст, тогда закрыть документ, не сохраняя его и при этом не выводить диалог о его сохранении

Правильно???
И тогда почему когда эта строка кода имеется в Sub AutoClose() шаблона, то она ведёт себя так
как  мне нужно, а когда с этого шаблона я уже создал документ то уже она ведёт себя не так как мне нужно???????

Вы говорите:
при удалении Sub AutoClose() работает так, как Вам нужно
Увы нет, потому что мне нужно, чтобы всё было по человечески, а именно:
1. имею шаблон
2. навожу на него курсор
3. выбираю Открыть
4. ничего не далаю, закрываю
НЕ НАДО МЕНЯ СПРАШИВАТЬ О СОХРАНЕНИИ, РАЗ Я НИЧЕГО НЕ ДЕЛАЛ
ДОВОЖУ ДО ВАШЕГО СВЕДЕНИЯ, ЧТО ДОКУМЕНТ БУДЕТ ИЗМЕНЯТЬСЯ, НО НЕ ПОЛЬЗОВАТЕЛЕМ, А ПРОГРАММНО
ЭТО РЕШАЕТСЯ ДОБАВЛЕНИЕМ:

Sub AutoClose()
'AutoClose работает при закрытии документа Ворд

'условие, если буфер отмены пуст, тогда ...
'закрыть документ, не сохраняя его и при этом не выводить диалог о его сохранении
If ActiveDocument.Undo = False Then Dialogs(wdDialogFileSaveAs).Execute

End Sub

ЭТО ВАША ПОДСКАЗКА И ЗА НЕЁ ВАМ БЛАГОДАРЕН!!!!!
Двигаемся далее:
1. имею тот же шаблон
2. навожу на него курсор
3. выбираю Создать
4. кое-что делаю, закрываю
НАДО МЕНЯ СПРАШИВАТЬ О СОХРАНЕНИИ, РАЗ Я КОЕ-ЧТО ДЕЛАЛ
Когда вылазит диалог о сохранении, всегда имя заполнено, как этого избежать, чтобы было пусто?????
5. затем созданный на основе этого шаблона документ открываю
6. ничего не делаю
7. закрываю
8. меня не о чём не спрашивает и это правильно, ведь я ничего не делал
9. время изменения делается свежее, как этого избежать?????????????

Подскажите как в диалоге при сохранении файла Ворд как указать папку и тип файла

'диалог при сохранении файла
With Dialogs(wdDialogFileSaveAs)
       .Name = "" ' имя файла
       .Show 'показать
       ???'папка
       ???'тип файла
 End With