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 то есть - Объект не поддерживает это свойство или метод



'выясняем количество файлов в папке по адресу ..., с именем ..., если ответ получим Empty, значит такой папки не существует


End Sub

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

'уточнение наличия элемента управления с именем ... в документе
On Error Resume Next
If ActiveDocument.Frame_рамка_каркас.Caption = "Ципихович Эндрю молодец, уникально?, уникально!" Then
If Err.Number =  438  Then Exit Sub
End If

End Sub

If Err.Number =  438  Then Exit Sub

On Error Resume Next
 100  If ActiveDocument.Frame_рамка_каркас1111.Caption = "Ципихович Эндрю молодец, уникально?, уникально!" Then
 110  If Err.Number =  438  Then Exit Sub
End If

Debug.Print Err.Number & ": " Err.Description & " on line " & Erl

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

'уточнение наличия элемента управления с именем ... в документе
On Error Resume Next
Dim s as String
s = "Ципихович Эндрю молодец, уникально?, уникально!" 
If ActiveDocument.Frame_рамка_каркас.Caption = s Then
   s = "всё ок."
End If
If Err.Number <>  0  Then 
    s = "ошибка: " & Err.Number & ": " & Err.Description
end if
Debug.Print s 'добавил для демонстрации как работает
If Err.Number <>  0  Then
   Exit Sub
End if
Err.Clear

...
End Sub