Classe Window (Word VBA)

La classe Window représente une fenêtre.

Les procédures principales de la classe Window sont Activate, Close et Windows.Add

Set

Pour utiliser une variable de classe Window, elle doit d'abord être instanciée, par exemple

Dim wnd as Window
Set wnd = ActiveWindow

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Window : Application.ActiveWindow, Application.NewWindow, Document.ActiveWindow, NewWindow, Next, Previous, Windows.Add, Windows.Item, Application.Windows et Document.Windows

For Each

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

Dim win As Window 
For Each win In Windows 
 win.DisplayVerticalScrollBar = True 
 win.DisplayHorizontalScrollBar = True 
Next win

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Display/Show with its procedures DisplayHorizontalScrollBar, DisplayLeftScrollBar, DisplayRightRuler, DisplayRulers, DisplayScreenTips, DisplayVerticalRuler, DisplayVerticalScrollBar et ShowSourceDocuments

Méthodes

Les méthodes principales de la classe Window sont

Activate - Active la fenêtre spécifiée.

ActiveWindow.Activate

Close - Ferme la fenêtre spécifiée.

ActiveWindow.Close

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

Dim wnd As Window
Set wnd = Windows.Add()

Autre Méthodes

GetPoint - Renvoie les coordonnées à l'écran de la plage ou de la forme spécifiée.

Dim lngScreenPixelsLeft As Long: lngScreenPixelsLeft = 
Dim lngScreenPixelsTop As Long: lngScreenPixelsTop = 
Dim lngScreenPixelsWidth As Long: lngScreenPixelsWidth = 
Dim lngScreenPixelsHeight As Long: lngScreenPixelsHeight =  
ActiveWindow.GetPoint ScreenPixelsLeft:=lngScreenPixelsLeft, ScreenPixelsTop:=lngScreenPixelsTop, ScreenPixelsWidth:=lngScreenPixelsWidth, ScreenPixelsHeight:=lngScreenPixelsHeight, obj:=

LargeScroll - Fait défiler une fenêtre ou un volet du nombre d'écrans spécifié.

ActiveWindow.LargeScroll

PageScroll - Permet de faire défiler la fenêtre ou le volet spécifié, page par page.

ActiveWindow.PageScroll

PrintOut - Imprime l'intégralité ou une partie du document spécifié dans la fenêtre spécifiée.

ActiveWindow.PrintOut

RangeFromPoint - Renvoie l'objet Range ou Shape qui se trouve au point spécifié par la paire de coordonnées de position écran.

Dim lngx As Long: lngx = 
Dim lngy As Long: lngy =  
Dim rngRangeFromPoint As Range
Set rngRangeFromPoint = ActiveWindow.RangeFromPoint(x:=lngx, y:=lngy)

ScrollIntoView - Fait défiler la fenêtre de document de façon à afficher la plage ou la forme spécifiée dans cette fenêtre.

ActiveWindow.ScrollIntoView obj:=

SmallScroll - Fait défiler une fenêtre ou un volet du nombre de lignes spécifié.

ActiveWindow.SmallScroll

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

Windows.Arrange

Propriétés

Active True si la fenêtre spécifiée est active.

Dim booActive As Boolean
booActive = ActiveWindow.Active

ActivePane Renvoie un objet Pane qui représente le volet actif de la fenêtre spécifiée.

Dim panActivePane As Pane
Set panActivePane = ActiveWindow.ActivePane

Caption Cette propriété renvoie ou définit le texte de légende de la fenêtre qui s'affiche dans la barre de titre de la fenêtre de document ou de l'application.

ActiveWindow.Caption =

Document Renvoie un objet document associé au volet, à la fenêtre ou à la sélection spécifiés.

Dim docDocument As Document
Set docDocument = ActiveWindow.Document

DocumentMap Cette propriété a la valeur True si l'Explorateur de documents est visible.

ActiveWindow.DocumentMap = True

EnvelopeVisible True si l’en-tête du message électronique est visible dans la fenêtre de document.

ActiveWindow.EnvelopeVisible = True

Height Cette propriété renvoie ou définit la hauteur de la fenêtre (en points).

ActiveWindow.Height =

HorizontalPercentScrolled Cette propriété renvoie ou définit la position de défilement horizontale sous forme de pourcentage de la largeur du document.

ActiveWindow.HorizontalPercentScrolled =

Hwnd Renvoie un type long qui indique le handle de fenêtre de la fenêtre spécifiée.

Dim lngHwnd As Long
lngHwnd = ActiveWindow.Hwnd

IMEMode Cette propriété renvoie ou définit le mode de démarrage par défaut pour l'éditeur de méthode d'entrée (IME) du japonais.

ActiveWindow.IMEMode = wdIMEModeAlpha

Index Renvoie un type long qui représente la position d’un élément dans une collection.

Dim lngIndex As Long
lngIndex = ActiveWindow.Index

Left Cette propriété renvoie ou définit un type long qui représente la position horizontale de la fenêtre spécifiée, exprimée en points.

ActiveWindow.Left =

Next Renvoie la fenêtre de document suivante dans la collection de fenêtres de document ouvertes.

Dim wndNext As Window
Set wndNext = ActiveWindow.Next

Panes Renvoie une collection Panes qui représente tous les volets de la fenêtre spécifiée.

Dim pnsPanes As Panes
Set pnsPanes = ActiveWindow.Panes

Parent Renvoie un type de données Object qui représente l'objet parent de l'objet Window spécifié.

Dim objParent As Object
Set objParent = ActiveWindow.Parent

Previous Renvoie la fenêtre de document précédente dans la collection de fenêtres de document ouvertes.

Dim wndPrevious As Window
Set wndPrevious = ActiveWindow.Previous

Selection Renvoie l'objet Selection qui représente une plage sélectionnée ou le point d'insertion.

Dim slcSelection As Selection
Set slcSelection = ActiveWindow.Selection

Split True si la fenêtre est divisée en plusieurs volets.

ActiveWindow.Split = True

SplitVertical Renvoie ou définit le pourcentage de fractionnement vertical de la fenêtre spécifiée.

ActiveWindow.SplitVertical =

StyleAreaWidth Cette propriété renvoie ou définit la largeur de la zone de style en points.

ActiveWindow.StyleAreaWidth =

Thumbnails Définit ou renvoie un type Boolean qui indique si les images miniatures des pages d’un document sont affichées sur le côté gauche de la fenêtre de document Microsoft Word.

ActiveWindow.Thumbnails = True

Top Cette propriété renvoie ou définit la position verticale de la fenêtre de document spécifiée, en points.

ActiveWindow.Top =

Type Renvoie le type de fenêtre.

Dim wwtType As WdWindowType
wwtType = ActiveWindow.Type

UsableHeight Renvoie la hauteur (en points) de la zone de travail active dans la fenêtre de document spécifiée.

Dim lngUsableHeight As Long
lngUsableHeight = ActiveWindow.UsableHeight

UsableWidth Renvoie la largeur (en points) de la zone de travail active dans la fenêtre de document spécifiée.

Dim lngUsableWidth As Long
lngUsableWidth = ActiveWindow.UsableWidth

VerticalPercentScrolled Cette propriété renvoie ou définit la position de défilement verticale sous forme de pourcentage de la longueur du document.

ActiveWindow.VerticalPercentScrolled =

View Renvoie un objet View qui représente l’affichage de la fenêtre ou du volet spécifié.

Dim vwView As View
Set vwView = ActiveWindow.View

Visible True si l'objet spécifié est visible.

ActiveWindow.Visible = True

Width Renvoie ou définit la largeur, en points, de la fenêtre de document spécifiée.

ActiveWindow.Width =

WindowNumber

Dim lngWindowNumber As Long
lngWindowNumber = ActiveWindow.WindowNumber

WindowState Renvoie ou définit l'état de la fenêtre de document ou de tâche spécifiée.

ActiveWindow.WindowState = wdWindowStateMaximize

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

Dim lngCount As Long
lngCount = Windows.Count

Windows.Parent Renvoie un Object qui représente l'objet parent de l'objet Windows spécifié.

Dim objParent As Object
Set objParent = Windows.Parent

SyncScrollingSideBySide

Windows.SyncScrollingSideBySide = True