событие при открытии документа копай, что то типа этого:

Private Sub Document_Open()

End Sub