Private Sub File_Click()

Nomdoc = Val(Me.link.Value)
PrintDoc Nomdoc

End Sub

Public Sub PrintDoc(n)

Nomdoc = n
Select Case n
 
 Case 3: OrderInput3

 End Select
End Sub

Public Sub StartWordEasy(FieldName As String)
    
       Forms!САУ![shabl] = DLookup("File", "Files", "Код=" & Nomdoc)
       Forms!САУ![shabl].Action = acOLEActivate

    Set obExcel = GetObject(, "Excel.Application")
        
 End Sub

Public Sub OrderInput3()

StartWordEasy "Shabl"

End Sub

 Forms!SAU!shabl.Run "frame" 

Private Sub Кнопка3_Click()
Nomdoc = 3
PrintDoc Nomdoc
End Sub

Public Sub PrintDoc(n)
Nomdoc = n
Select Case n
  Case 3: OrderInput3
 End Select
End Sub

Public Sub StartWordEasy(FieldName As String)
        Forms!САУ!shabl = DLookup("File", "Files", "Код=" & Nomdoc)
          
       With Forms.Item("САУ").Controls.Item("shabl")
        .Action = acOLEActivate
        .Verb = acOLEVerbOpen
        End With
  
    Set obExcel = GetObject(, "Excel.Application")
    Set xlSheet = obExcel.ActiveWorkbook.ActiveSheet
   
End Sub

Public Sub OrderInput3()

StartWordEasy "shabl"

Dim str As String
Dim arr() As String
Dim NewUsername As String
'Dim name As String

str = Forms!САУ!pbu.Value
arr = Split(str, " ")
familie = arr(LBound(arr)) ' получили фамилию
For i = LBound(arr) To UBound(arr) - 1
sname = NewUsername & " " & arr(i) ' получили имя
Next
smidname = arr(UBound(arr)) 'получили отчество

fname = Left(sname, 2) + "."
fmidname = Left(smidname, 1) + "."
short = familie & "" & fname & " " & fmidname

Dim rs_srv As ADODB.Recordset
Dim objConSrv As Object
Set objConSrv = CreateObject("ADODB.Connection")
Set rs_srv = CreateObject("ADODB.Recordset")
Set rs_srv = New ADODB.Recordset

Set dbs = CurrentDb()
Set rs = dbs.OpenRecordset("Select .......")
    Forms!САУ!shabl.Sheets(1).Range("D3").Value = rs.Fields(0) & " от " & Format(rs.Fields(1), ddd, mmm, yyyy)
rs.Close

Вот так собственно открывается и заполняется файл, а как запустить макрос в файле?