Clase Windows (Word VBA)

Una colección de objetos Window que representa todas las ventanas disponibles. Para usar una variable de clase Windows, primero debe ser instanciado, por ejemplo

Dim wnds as Windows
Set wnds = Windows

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Windows en una colección.

Dim wnd As Window
For Each wnd In Windows
	
Next wnd

Add

Devuelve un objeto Window que representa una nueva ventana de un documento.

Si hay más de una ventana abierta para el mismo documento, en el título de la ventana aparecerán dos puntos (:) seguidos de un número.

Add (Window)

Window: El objeto de ventana que desea abrir otra ventana.

Windows.Add

Arrange

Organiza todas las ventanas del documento abierto en el área de trabajo de la aplicación.

Como Microsoft Word utiliza una interfaz simple de documentos (SDI), este método ya no surte ningún efecto.

Arrange (ArrangeStyle)

ArrangeStyle: Organización de la ventana.

Windows.Arrange ArrangeStyle:=wdTiled

BreakSideBySide

Finaliza el modo de en paralelo si dos ventanas están en el modo en paralelo.

ActiveDocument.Windows.BreakSideBySide

CompareSideBySideWith

Abre dos ventanas en modo paralelo.

No puede usar el método CompareSideBySideWith con el objeto Application o la propiedad ActiveDocument.

CompareSideBySideWith (Document)

Document: Documento que se va a presentar en las ventanas en paralelo.

Dim objDoc1 As Word.Document 
Dim objDoc2 As Word.Document 
 
Set objDoc1 = Documents.Add 
Set objDoc2 = Documents.Add 
 
objDoc2.Activate 
objDoc2.Windows.CompareSideBySideWith objDoc1 
Windows.ResetPositionsSideBySide

Count

Devuelve un Long que representa el número de ventanas de la colección.

Dim lngCount As Long
lngCount = Windows.Count

Item

Devuelve un objeto Window individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

Dim wnd As Window
Set wnd = Windows(Index:=1)

ResetPositionsSideBySide

Restablece dos ventanas de documento que estén en el modo de vista Comparar en paralelo con.

Este método corresponde al botón Restablecer posición de la ventana de la barra de herramientas Comparar en paralelo.

Windows.ResetPositionsSideBySide

SyncScrollingSideBySide

Windows.SyncScrollingSideBySide = True