1

Тема: Как скрыть Ribbon полностью?

Необходимо в 2007-м Ворде скрыть все элементы управления (кроме скроллбаров), т.е. чтобы осталось "голое окно".  В Ворде 2003 и более ранних это решалось через commandbars:

        Dim iCommandBar As CommandBar
        For Each iCommandBar In .CommandBars
            iCommandBar.Visible = False
        Next

В 2007-м такой метод уже не прокатывает.

Пытался решить проблему на XML через RibbonX, но так можно (с помощью свойства startFromScratch) только скрыть саму ленту с его меню и "ужать" до минимума содержимое кнопки Office и панели быстрого доступа. А мне надо скрыть их ПОЛНОСТЬЮ.

В Excel это можно решить с помощью ExecuteExcel4Macro "SHOW.TOOLBAR("Ribbon", "false")", но аналогов ExecuteExcel4Macro в Ворде я не нашел.

Уже месяц ломаю голову над данной проблемой. Так как же ее все-таки можно решить!?

Отредактировано Sergey (16.02.2010 16:45:50)

2

Re: Как скрыть Ribbon полностью?

Неужели и тут никто не знает? Можно идти за веревкой с мылом? smile

3

Re: Как скрыть Ribbon полностью?

А такая возможность есть? Может быть её и нет совсем? Я про неё не слышал, хотя с лентой работаю очень плотно.

Лучше день потерять — потом за пять минут долететь!

4

Re: Как скрыть Ribbon полностью?

viter.alex пишет:

А такая возможность есть? Может быть её и нет совсем? Я про неё не слышал, хотя с лентой работаю очень плотно.

Очень хотелось бы верить, что есть. В excel'е же можно.

А через RibbonX (XML), значит, точно никак?

5

Re: Как скрыть Ribbon полностью?

Ларчик открывался просто big_smile
ActiveWindow.View.FullScreen smile

6

Re: Как скрыть Ribbon полностью?

Ага, просто. Но с другой стороны big_smile

Лучше день потерять — потом за пять минут долететь!

7

Re: Как скрыть Ribbon полностью?

Тогда уж привели бы корректный код, в том числе и для восстановления окна.

Sub hideToolbarAndRibbon()
  ActiveDocument.ActiveWindow.View.FullScreen = True
End Sub

Для восстановления достаточно нажать клавишу Esc на клавиатуре.

8

Re: Как скрыть Ribbon полностью?

admin пишет:

Тогда уж привели бы корректный код, в том числе и для восстановления окна.

Sub hideToolbarAndRibbon()
  ActiveDocument.ActiveWindow.View.FullScreen = True
End Sub

Для восстановления достаточно нажать клавишу Esc на клавиатуре.

Спасибо за дополнение smile Просто я вообще на Delphi пишу, а в VBA только сгенерированный вордом код смотрю.

Моя радость, похоже, оказалась преждевременной - внутри компонента OleContainer эта опция, как и некоторые другие, не работает sad Буду копать глубже...