1 Тема от Sergey

  • Sergey
  • рядовой
  • Неактивен
  • Зарегистрирован: 16.02.2010
  • Сообщений: 5

Тема: Как скрыть 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 Ответ от Sergey

  • Sergey
  • рядовой
  • Неактивен
  • Зарегистрирован: 16.02.2010
  • Сообщений: 5

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

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

3 Ответ от viter.alex

  • Как скрыть Ribbon полностью?
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

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

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

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

Сайтviter.alex

4 Ответ от Sergey

  • Sergey
  • рядовой
  • Неактивен
  • Зарегистрирован: 16.02.2010
  • Сообщений: 5

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

viter.alex пишет:

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

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

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

5 Ответ от Sergey

  • Sergey
  • рядовой
  • Неактивен
  • Зарегистрирован: 16.02.2010
  • Сообщений: 5

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

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

6 Ответ от viter.alex

  • Как скрыть Ribbon полностью?
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

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

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

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

Сайтviter.alex

7 Ответ от admin

  • Как скрыть Ribbon полностью?
  • admin
  • Администратор
  • Неактивен
  • Откуда: Земля
  • Зарегистрирован: 15.12.2009
  • Сообщений: 508
  • Поблагодарили: 39

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

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

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

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

Сайтadmin

8 Ответ от Sergey

  • Sergey
  • рядовой
  • Неактивен
  • Зарегистрирован: 16.02.2010
  • Сообщений: 5

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

admin пишет:

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

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

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

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

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