Sub AutoNew()
'AutoNew работает при создании любого нового документа Ворд

'уточнение наличия элемента управления с именем ... в документе
On Error Resume Next
ActiveDocument.Frame_рамка_каркас.Caption = ""
If Err.Number =  438  Then Exit Sub 'условие, если ..., тогда значит нет такого элемента управления с именем ..., ошибка 438 Object doesn't support this property or method то есть - Объект не поддерживает это свойство или метод

If Len(Dir$("D:", vbDirectory)) =  0  Then 'условие, если ..., тогда диск ... не существует, дословно если длина имени пути - Dir$ диска больше нуля тогда диск ... существует
MsgBox$ "Диск D, на котором должны находиться файлы  в папке с именем: D:\Рабочая папка\Пользователь для обеспечения программы не существует", vbOKOnly, "ВНИМАНИЕ": Exit Sub 'вывести надпись указанную в кавычках из строк-Chr$(13), столбцов-Chr$(9), выйти из программы
ElseIf Len(Dir$("D:\Рабочая папка", vbDirectory)) =  0  Then 'условие, если ..., тогда папка ... на диске ... не существует, дословно если длина имени пути - Dir$ папки .. на диске ... больше нуля тогда папка ... не существует
MsgBox$ "На диске D папка с именем: D:\Рабочая папка, в которой должна находится папка с именем: D:\Рабочая папка\Пользователь, в которой должны находиться файлы  для обеспечения программы не существует", vbOKOnly, "ВНИМАНИЕ": Exit Sub 'вывести надпись указанную в кавычках из строк-Chr$(13), столбцов-Chr$(9), выйти из программы
ElseIf Len(Dir$("D:\Рабочая папка\Пользователь", vbDirectory)) =  0  Then 'условие, если ..., тогда папка ... на диске ... не существует, дословно если длина имени пути - Dir$ папки .. на диске ... больше нуля тогда папка ... не существует
MsgBox$ "На диске D папка с именем: D:\Рабочая папка\Пользователь, в которой должны находиться файлы  для обеспечения программы не существует", vbOKOnly, "ВНИМАНИЕ": Exit Sub 'вывести надпись указанную в кавычках из строк-Chr$(13), столбцов-Chr$(9), выйти из программы
End If

'выясняем количество файлов в папке по адресу ..., с именем ..., если ответ получим Empty, значит такой папки не существует
Dim Папка As String
Папка = "D:\Рабочая папка\Пользователь\" 'папка, где происходит поиск файлов

Количество_файлов_в_папке = CreateObject("Scripting.FileSystemObject").GetFolder(Папка).Files.Count
Set fso = CreateObject("Scripting.FileSystemObject")
Set fr = fso.GetFolder(Папка)
Set fs = fr.Files
Количество_файлов_с_расширением_файла_doc =  0 
For Each f In fs 'цикл равный количеству файлов в папке, в которой происходит поиск
Имя_файла_без_расширения = Left$(f.Name, (Len(f.Name) -  4 )) 'отбрасываем четыре последних знака, то есть ".doc"

'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'Имя_файла_с_расширением = f.Name
'Расширение_файла = fso.GetExtensionName(f.Path) 'расширение обрабатываемого файла в искомой папке
'Имя_файла_с_его_путём_и_расширением = f
'Путь_к_обрабатываемому_файлу = Папка
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

'условие, если расширение файла = "doc", тогда ...
If fso.GetExtensionName(f.Path) = "doc" Then
Количество_файлов_с_расширением_файла_doc = Количество_файлов_с_расширением_файла_doc +  1 
ActiveDocument.Frame_рамка_каркас.Controls("ComboBox_комбинированный_список_пользователь").AddItem Имя_файла_без_расширения
'условие, если первая буква имени файла = "1", тогда ...
If Left$(Имя_файла_без_расширения,  1 ) = "1" Then Имя_пользователя_с_первым_знаком_1 = Имя_файла_без_расширения
End If
Next 'конец цикла

If Количество_файлов_с_расширением_файла_doc >  1  Then
ActiveDocument.Frame_рамка_каркас.Controls("Label_ярлык_этикетка_метка_пользователь").Visible = False 'делаем скрытым элемент управления с именем ...
ActiveDocument.Frame_рамка_каркас.Controls("ComboBox_комбинированный_список_пользователь").Left =  387 . 5  'расстояние элемента управления с именем ... от левого края фрейма с именем ...
ActiveDocument.Frame_рамка_каркас.Controls("ComboBox_комбинированный_список_пользователь").Value = Имя_пользователя_с_первым_знаком_1
End If

If Количество_файлов_с_расширением_файла_doc =  0  Then
ActiveDocument.Frame_рамка_каркас.Controls("ComboBox_комбинированный_список_пользователь").Visible = False 'делаем скрытым элемент управления с именем ...
ActiveDocument.Frame_рамка_каркас.Controls("Button_кнопка_пользователь").Caption = "0 пользователей"
ActiveDocument.Frame_рамка_каркас.Controls("Label_ярлык_этикетка_метка_пользователь").Caption = "Пользователей не имеется"

ElseIf Количество_файлов_с_расширением_файла_doc =  1  Then
ActiveDocument.Frame_рамка_каркас.Controls("ComboBox_комбинированный_список_пользователь").Visible = False 'делаем скрытым элемент управления с именем ...
ActiveDocument.Frame_рамка_каркас.Controls("Button_кнопка_пользователь").Caption = "1 пользователь"
ActiveDocument.Frame_рамка_каркас.Controls("Label_ярлык_этикетка_метка_пользователь").Caption = Имя_файла_без_расширения

'условие, если количество файлов с расширением файла doc <> 11 и последняя цифра количества файлов с расширением файла doc = "1", тогда ...
ElseIf Количество_файлов_с_расширением_файла_doc <>  11  And Right$((Left$(Количество_файлов_с_расширением_файла_doc, Len(Количество_файлов_с_расширением_файла_doc))),  1 ) = "1" Then
ActiveDocument.Frame_рамка_каркас.Controls("Button_кнопка_пользователь").Caption = Количество_файлов_с_расширением_файла_doc & " пользователь"

'условие, если количество файлов с расширением файла doc = "12" или = "13" или = "14", тогда ...
ElseIf Количество_файлов_с_расширением_файла_doc =  12  Or Количество_файлов_с_расширением_файла_doc =  13  Or Количество_файлов_с_расширением_файла_doc =  14  Then
ActiveDocument.Frame_рамка_каркас.Controls("Button_кнопка_пользователь").Caption = Количество_файлов_с_расширением_файла_doc & " пользователей"

'условие, если последняя цифра количества файлов = "2" или = "3" или = "4", тогда ...
ElseIf Right$((Left$(Количество_файлов_с_расширением_файла_doc, Len(Количество_файлов_с_расширением_файла_doc))),  1 ) = "2" _
Or Right$((Left$(Количество_файлов_с_расширением_файла_doc, Len(Количество_файлов_с_расширением_файла_doc))),  1 ) = "3" _
Or Right$((Left$(Количество_файлов_с_расширением_файла_doc, Len(Количество_файлов_с_расширением_файла_doc))),  1 ) = "4" Then
ActiveDocument.Frame_рамка_каркас.Controls("Button_кнопка_пользователь").Caption = Количество_файлов_с_расширением_файла_doc & " пользователя"

Else 'в остальных случаях ...
ActiveDocument.Frame_рамка_каркас.Controls("Button_кнопка_пользователь").Caption = Количество_файлов_с_расширением_файла_doc & " пользователей"
End If

Set fso = Nothing 'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
Set fr = Nothing 'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
Set fs = Nothing 'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта

End Sub

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

'????????????Так что сюда надо поместить, чтобы в случае, если документ я открыл и тут же 
'закрыл, ничего не делая, чтобы не спрашивало, СОХРАНИТЬ ли документ??????????

End Sub