Неужели CommandButton в Word нельзя сделать непечатаемым?

[FINAL]

В моем документе есть кнопки - CommandButtonN. Надо сделать так, чтобы при печати документа они не выводились. В Excel это делается очень просто - у кнопки есть такое свойство, я проверял. Если копировать кнопку из Excel, толку нет, она становится обычной кнопкой Worda. Я пробовал переделывать ее из InlineShape в Shape - никакого результата. Есть событие DocumentBeforePrint у объекта Word.Application и там бы я мог сделать кнопки невидимыми, так ведь у кнопок нет и свойства Visible! Может кто-нибудь знает, как мне помочь?

[FINAL]

Возможным решением моей проблемы может быть создание временной копии файла, из которой будут удалены все элементы управления. Из этой копии можно будет удалить кнопки, распечатать ее и удалить, а исходный документ не выводить на печать.

[alibek]

Это плохое решение.
Не лучше ли будет использовать кнопки не в документе, а на панели инструментов?

[FINAL]

Нет. Дело в том, что эти кнопки относятся к тексту документа и нужны в строго определенных местах. А почему плохое решение? По моему осталось только сделать все операции незаметными для юзера, т.е. как будто идет обычный процесс выбора параметров печати и сама печать без лишних вопросов.

[GSerg]

В word есть параметр печати "Графические объекты", к которым кнопки относятся. Если картинок нет, можно запретить это всё печатать.
Но получается, документ с дырами будет?

[FINAL]

Документы будут с картинками, и этот вариант не подходит.
Кнопки уменьшаются отдельным макросом до небольших размеров, вставляются где надо в концы строк, так что при их удалении форматирование не изменяется. А все таки, чем так плох вариант со временным файлом?

[FINAL]

А можно ли вызвать диалог о печати документа с помощью макроса? Т.е. я обрабатываю событие DocumentBeforePrint, а после него должно появляться окно диалога. В обработчике я создаю файл, отменяю печать для моего файла (есть там параметр Cancel), и хочу вызвать диалог для печати уже нового файла.

[FINAL]

Дурацкий вопрос. Прошу прощения

Application.Dialogs(wdDialogFilePrint).Display

[GSerg]

Да ничем...
Можно даже в том же...

Код: Выделить всё

  Dim s As Shape, c As Long
 
  For Each s In ThisDocument.Shapes
    If s.Type = msoOLEControlObject Then
      If s.OLEFormat.ClassType = "Forms.CommandButton.1" Then
        s.Delete
        c = c + 1
      End If
    End If
  Next
 
  ThisDocument.PrintOut
 
  If c Then ThisDocument.Undo c

[FINAL]

супер! гениально и просто . Буду реализовывать. Спасибо.

[Сергейрус15]

Добрый вечер! Подскажите, пожалуйста по шагам, куда на vba вводить код, чтобы седлать commandbutton невидимым? я просто новичок в ворде и мне интересно научиться) Спасибо большое)

[Хакер]

В зависимости от того, в какой момент и в качестве реакции на что кнопка должна стать невидимой.