Normal.dotm это тоже архив

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

Private Sub Test2() 'Excel 2007(или старше)
    Dim fullName7Z$, fullNameTempl$, arg$
    fullName7Z = "C:\Program Files (x86)\7-Zip\7z.exe"
 
    If Dir(fullName7Z) = "" Then
       MsgBox "Не найден файл 7z.exe" & vbNewLine & fullName7Z
       Exit Sub
    End If
    
    With CreateObject("Word.Application")
         fullNameTempl = .Templates(1).FullName: .Quit
    End With
    
    arg = """" & fullName7Z & """ e """ & fullNameTempl & """ -y -oC:\1"
 
    Shell arg, vbHide ' vbMaximizedFocus
End Sub