[LightImage]

В Normal.dot в модуле объекта ThisDocument пишем функцию

Private Sub Document_Open()
Dim msg As String
    msg = "Открытие документа с именем " & ActiveDocument.FullName
    MsgBox msg, vbInformation, "Тест"
End Sub