Как вывести сообщение...

[Busine2009]

Как вывести сообщение перед печатью, что в документе есть скрытый текст?

[Sasha_Smirnov]

А кому сообщение?

Вы же сами, по Ctrl-Shift-8, можете его посмотреть. Либо найти по Ctrl-F (а там Формат→скрытый).

[Busine2009]

Необходимо нажать на кнопку, затем должно появиться сообщение, что в документе содержится скрытый текст (если он есть), и затем должно появиться диалоговое окно "Печать" (витер сделал такой макрос).

[CaptainNemo]

Сообщение от Busine2009

Смысл в том, чтобы нажать на кнопку Печать

Если я не ошибаюсь, MS Word в отличие от MS Excel нет события BeforePrint. Поэтому, что бы запускать макрос на выполнение по нажатию на кнопку "Печать" можно поступить следующим образом…
В модуль класса вставить код такого содержания:

Public WithEvents myAplication As Word.Application
Private Sub myAplication_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
Dim myShablon As String
Dim myRez As VbMsgBoxResult
Application.ScreenUpdating = False
'Cancel = True
myShablon = ActiveDocument.AttachedTemplate.Name
If myShablon = "Doc1.dot" Then
        myRez = MsgBox("Выполнить проверку?", vbQuestion + vbYesNo)
    If myRez = vbYes Then
        Select Case ActiveDocument.Content.Font.Hidden
        Case 0
        MsgBox ("Нет скрытого текста")
        Case Is > 0
        MsgBox ("Есть скрытый текст")
        End Select
    End If
    'ActiveDocument.PrintOut
End If
Application.ScreenUpdating = True
End Sub

А в модуль ThisDocument вставить такой вот код

Dim myClass As New Class1
Private Sub Document_New()
    Set myClass.myAplication = Word.Application
End Sub

Затем сохранить файл как шаблон с именем Doc1.dot
В последствии для всех документов, которые будут созданы на основе этого шаблона при нажатии на кнопку "Печать" будет выводиться запрос на проверку наличия скрытого текста… (см. файл)