Donna es la encargada de preparar un documento que será utilizado en toda su empresa. A ella le gustaría que el documento, cuando se abra, «minimice» la cinta en la parte superior de la pantalla y luego, cuando se cierre, devuelva la cinta a su estado de «pre-apertura». Esto se haría para proporcionar el área de pantalla máxima para el documento. Donna cree que se necesitará una macro para lograrlo, pero no está segura de qué comandos usar para realizar la tarea.

Existe una asombrosa escasez de información disponible sobre cómo trabajar con la cinta en VBA. De hecho, el único método que hemos podido localizar que minimizará la cinta es el siguiente:

ActiveWindow.ToggleRibbon

Este método es el mismo que presionar Ctrl + F1. Alterna la cinta, cambiándola de maximizada a minimizada, y viceversa. Esto, por supuesto, no es lo que Donna quiere hacer; quiere asegurarse de que se minimice. Con el método ToggleRibbon, puede «modificar» una forma de averiguar si la cinta está minimizada o no. Considere las siguientes macros de ejemplo.

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

En realidad, hay dos macros aquí, una que se activa automáticamente cuando se abre un documento y la otra se activa cuando se cierra. Las macros verifican la altura de la ventana activa, almacenándola en la variable h1. Luego alterna la cinta y nuevamente verifica la altura de la ventana activa, almacenándola en h2. Al comparar los dos valores, puede determinar si la cinta está minimizada o no y luego actuar en consecuencia.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (8515) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365.