Sub OpenDoсument()
        
    Dim objWrdApp As Object, objWrdDoc As Object
    
            Set objWrdApp = CreateObject("Word.Application")
            Set objWrdDoc = objWrdApp.documents.Add(ThisWorkbook.Path & "\Шаблон.docx")
                
            
               objWrdDoc.Shapes.Range(Array("Group 386")).Select
               objWrdDoc.Shapes.Range(Array("Rectangle 18")).Select
                Selection.TypeText Text:="Ivanov"

Private Sub Workbook_Open()
    Закрытие_по_времени
End Sub

'----------------------------------------------------------
'В модуле 1

Sub Отправка()
    
    With ThisWorkbook
        .SendMail Recipients:="name", Subject:="Тест"
        .Close SaveChanges:=True
    End With
   
End Sub
'----------------------------------------------------------
Sub Закрытие_по_времени()
   Application.OnTime Now + TimeSerial(0, 0, 30), "WbClose"
End Sub
'-----------------------------------------------------------
Sub WbClose()
   Отправка
   ThisWorkbook.Close SaveChanges:=False
    
End Sub