Донна отвечает за подготовку документа, который будет использоваться в ее компании. Она хотела бы, чтобы документ при открытии «свернул» ленту в верхней части экрана, а затем, когда он был закрыт, вернул ленту в состояние «предварительного открытия». Это будет сделано для обеспечения максимальной области экрана для документа. Донна полагает, что для этого потребуется макрос, но она не уверена, какие команды использовать для выполнения задачи.

Информации о работе с лентой в VBA очень мало. Фактически, единственный метод, который мы смогли найти, чтобы минимизировать ленту, это следующий:

ActiveWindow.ToggleRibbon

Этот метод аналогичен нажатию Ctrl + F1. Он переключает ленту, изменяя ее с максимального размера на минимизированный, и наоборот. Это, конечно, не то, что хочет делать Донна; она хочет убедиться, что она сведена к минимуму. Используя метод ToggleRibbon, вы можете «придумать» способ выяснить, свернута ли лента или нет. Рассмотрим следующий пример макроса.

Dim w As Variant Dim h1 As Long Dim h2 As Long Dim StartedWithRibbon As Boolean

Private Sub Document_Open()

Set w = ActiveWindow     h1 = w.UsableHeight     w.ToggleRibbon     h2 = w.UsableHeight     If h1 < h2 Then         StartedWithRibbon = False     Else         StartedWithRibbon = True         w.ToggleRibbon     End If End Sub
Private Sub Document_Close()

Set w = ActiveWindow     h1 = w.UsableHeight     w.ToggleRibbon     h2 = w.UsableHeight     If h2 < h1 Then         If StartedWithRibbon Then w.ToggleRibbon     Else         If Not StartedWithRibbon Then w.ToggleRibbon     End If End Sub

На самом деле здесь есть два макроса: один автоматически запускается при открытии документа, а другой — при его закрытии. Макросы проверяют высоту активного окна, сохраняя ее в переменной h1. Затем он переключает ленту и снова проверяет высоту активного окна, сохраняя ее в h2. Сравнивая два значения, вы можете определить, свернута ли лента или нет, и затем действовать соответствующим образом.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (8515) относится к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365.