Семейство программных продуктов Microsoft для обработки текстов, позволяющее создавать документы для интернета, электронной почты и печати.
Разобрался, мало ли кому пригодится:
Sub autoopen()
Select Case ActiveDocument.Content
Case Is > 0
MsgBox ("ОТОБРАЖАЕМОЕ СООБЩЕНИЕ")
End Select
End Sub
То есть, если в документе хоть что- то есть, то будут выводиться сообщение "ОТОБРАЖАЕМОЕ СООБЩЕНИЕ". Если при создания макроса в поле "Макросы из" выбрать именно ваш документ, к которому вы создаете макрос, то сообщение будет отображаться только в этом документе, без этого данное сообщение будет появляться во всех документах. Надеюсь, все правильно объяснил.