Classe Windows (Word VBA)

Collection d’objets Window qui représente toutes les fenêtres disponibles. Pour utiliser une variable de classe Windows, elle doit d'abord être instanciée, par exemple

Dim wnds as Windows
Set wnds = Windows

For Each

Voici un exemple de traitement des éléments Windows dans une collection

Dim wnd As Window
For Each wnd In Windows
	
Next wnd

Add

Renvoie un objet Window qui représente une nouvelle fenêtre d’un document.

Un signe deux-points (:) et un nombre s'affichent dans la légende de la fenêtre lorsque plusieurs fenêtres sont ouvertes pour le même document.

Add (Window)

Window: L'objet Window que vous souhaitez ouvrir une autre fenêtre pour.

Windows.Add

Arrange

Réorganise toutes les fenêtres de document ouvertes dans l'espace de travail de l'application.

Dans la mesure où Microsoft Word fait appel à une interface mono-document (SDI), cette méthode n'a plus aucun effet

Arrange (ArrangeStyle)

ArrangeStyle: L'organisation des fenêtres.

Windows.Arrange ArrangeStyle:=wdTiled

BreakSideBySide

Termine le mode côte à côte si deux fenêtres sont dans le mode côte à côte.

ActiveDocument.Windows.BreakSideBySide

CompareSideBySideWith

Ouvre deux fenêtres en mode de côte à côte.

Vous ne pouvez pas utiliser la méthode CompareSideBySideWith avec l'objet Application ou la propriété ActiveDocument.

CompareSideBySideWith (Document)

Document: Document à afficher en fenêtres côte à côte.

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

Renvoie un type long qui représente le nombre de fenêtres dans la collection.

Dim lngCount As Long
lngCount = Windows.Count

Item

Renvoie un objet Window spécifique appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.

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

ResetPositionsSideBySide

Réinitialise deux fenêtres de document qui utilisent le mode d'affichage Comparer en côte à côte.

Cette méthode correspond au bouton Rétablir la position de la fenêtre sur la barre d'outils Comparer en côte à côte.

Windows.ResetPositionsSideBySide

SyncScrollingSideBySide

Windows.SyncScrollingSideBySide = True