Sub Test()
'Dim Doc As Document
'For Each Doc In Documents
'  MsgBox Doc.AttachedTemplate.Name & vbTab & Doc.AttachedTemplate.Saved
'Next
Dim Tmplt As Template
For Each Tmplt In Templates
  MsgBox Tmplt.Name & vbTab & Tmplt.Saved
Next
End Sub

Private Sub Document_Open()

    Dim Tmplt As Template

    For Each Tmplt In Templates
        ActiveDocument.AttachedTemplate.Saved = True
    Next
   ' MsgBox "Greetings"
End Sub