Sub Распаковать_Normal_dot_dotm()
 
    Dim ZipFullName As String
    ZipFullName = "C:\Program Files\7-Zip\7z.exe"
 
    If Len(Dir(ZipFullName)) = 0 Then
        MsgBox$ "Не найден файл 7z.exe" & Chr(10) & ZipFullName
        Exit Sub
    End If
 
    Dim ZipPathCommand As String
    ZipPathCommand = ZipFullName & " e "
 
    Dim MyArhivPathMyArhivName As String
    MyArhivPathMyArhivName = ActiveDocument.AttachedTemplate.Path & "\" & ActiveDocument.AttachedTemplate.Name
 
    Dim ZipSwitches As String
    'директория, куда извлекаем файл
    ZipSwitches = ZipSwitches & " -o" & "C:\1"
 
    Dim ShellArgument As String
    ShellArgument = ZipPathCommand & MyArhivPathMyArhivName & ZipSwitches
 
    Shell (ShellArgument)
 
End Sub