Как сделать кнопки в ThisDocument

[Alex_ST]

Глядя на эти извращения с попытками разместить непечатаемую кнопку вызова макроса на листе Ворда, пришла в голову шальная мысль: а не попробовать ли внедрять на лист Ворда маленький кусочек листа Excel, на котором расположена нормальная Excel'ская OLE-кнопка, у которой выставлено свойство "Не выводить на печать"... К сожалению, сам сейчас проверить не могу - на этом компе не стоит Офис.

[Ципихович Эндрю]

а в чём извращение, ведь делает же невидимой, а в Ворд домешать Эксель лично для меня и есть извращение

[Alex_ST]

А по-вашему не является извращением скрытие кнопки путём изменения её Top до -1000 пикселов вместо того чтобы сделать её просто невидимой? Ну, уж я ещё с трудом, но понял бы скрытие путём установки .Width=0 : .Height=0, но .Top=-1000 - это круче варёных яиц!!!
Да и вообще, я смотрю с нормальными OLE-элементами управления Ворд работать просто не умеет, а использует только древние элементы форм.
Так что уж лучше, наверное, внедрять на лист Ворда кусок Ёкселя и уж в нём нормально работать (если, конечно, Ворд даст нормально работать Ёкселю внутри себя)

[Ципихович Эндрю]

я писал Hide, никто не подхватил, код нужен?
вот аналог

'выделенные ComboBox перед печатью скрыть
Количество_InlineShapes = ActiveDocument.InlineShapes.Count
Начало_выделенного = Selection.Range.Start
Конец_выделенного = Selection.Range.End
ComboBox = 0
ComboBox_ов_скрыли = 0
For u = 1 To Количество_InlineShapes
If ActiveDocument.InlineShapes(u).OLEFormat.ClassType = "Forms.ComboBox.1" Then 'условие, если обрабатываемый объект является полем со списком
ComboBox = ComboBox + 1
InlineShapes_u_Start = ActiveDocument.InlineShapes(u).Range.Start
InlineShapes_u_End = ActiveDocument.InlineShapes(u).Range.End
If InlineShapes_u_End > Конец_выделенного Then Exit For 'условие, если конец обрабатываемого ComboBox находится после выделенного, тогда выйти з цикла
If InlineShapes_u_Start >= Начало_выделенного Then
ActiveDocument.InlineShapes(u).Range.Font.Hidden = True
ComboBox_ов_скрыли = ComboBox_ов_скрыли + 1
If ComboBox_ов_скрыли = 1 Then Первый_выделенный_ComboBox = ComboBox
End If
End If
Next