Clase Window (Word VBA)

La clase Window representa una ventana.

Los principales procedimientos de la clase Window son Activate, Close y Windows.Add

Set

Para usar una variable de clase Window, primero debe ser instanciado, por ejemplo

Dim wnd as Window
Set wnd = ActiveWindow

Los siguientes procedimientos se pueden usar para establecer variables de clase Window : Application.ActiveWindow, Application.NewWindow, Document.ActiveWindow, NewWindow, Next, Previous, Windows.Add, Windows.Item, Application.Windows y Document.Windows

For Each

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

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

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

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

Métodos

Los principales métodos de la clase Window son

Activate - Activa la ventana especificada.

ActiveWindow.Activate

Close - Cierra la ventana especificada.

ActiveWindow.Close

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

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

Otros Métodos

GetPoint - Devuelve las coordenadas de pantalla del intervalo o forma que se especifique.

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 - Desplaza una ventana o un panel el número de pantallas especificado.

ActiveWindow.LargeScroll

PageScroll - Desplaza el panel o la ventana especificados página a página.

ActiveWindow.PageScroll

PrintOut - Imprime todo el documento mostrado en la ventana especificada o parte del mismo.

ActiveWindow.PrintOut

RangeFromPoint - Devuelve el objeto Range o Shape que se encuentra en el punto especificado por el par de coordenadas de posición de pantalla.

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

ScrollIntoView - Permite desplazarse en la ventana de documento para mostrar el intervalo o forma que se especifique.

ActiveWindow.ScrollIntoView obj:=

SmallScroll - Desplaza una ventana o un panel el número de líneas especificado.

ActiveWindow.SmallScroll

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

Windows.Arrange

Propiedades

Active True si está activa la ventana especificada.

Dim booActive As Boolean
booActive = ActiveWindow.Active

ActivePane Devuelve un objeto pane que representa el panel activo de la ventana especificada.

Dim panActivePane As Pane
Set panActivePane = ActiveWindow.ActivePane

Caption Devuelve o establece el texto del título de la ventana que se muestra en la barra de título de la ventana de documento o aplicación.

ActiveWindow.Caption =

Document Devuelve un objeto Document asociado con la selección, el panel o la ventana especificados.

Dim docDocument As Document
Set docDocument = ActiveWindow.Document

DocumentMap True si el mapa de documentos es visible.

ActiveWindow.DocumentMap = True

EnvelopeVisible True si el encabezado del mensaje de correo electrónico está visible en la ventana del documento.

ActiveWindow.EnvelopeVisible = True

Height Devuelve o establece el alto de la ventana (en puntos).

ActiveWindow.Height =

HorizontalPercentScrolled Devuelve o establece la posición de desplazamiento horizontal como un porcentaje del ancho del documento.

ActiveWindow.HorizontalPercentScrolled =

Hwnd Devuelve un Long que indica el controlador de la ventana de la ventana especificada.

Dim lngHwnd As Long
lngHwnd = ActiveWindow.Hwnd

IMEMode Devuelve o establece el modo de inicio predeterminado para el Editor de método de entrada (IME) japonés.

ActiveWindow.IMEMode = wdIMEModeAlpha

Index Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

Dim lngIndex As Long
lngIndex = ActiveWindow.Index

Left Devuelve o establece un Long que representa la posición horizontal de la ventana especificada, medida en puntos.

ActiveWindow.Left =

Next Devuelve la siguiente ventana de documento de la colección de ventanas de documento abiertas.

Dim wndNext As Window
Set wndNext = ActiveWindow.Next

Panes Devuelve una colección panes que representa todos los paneles de ventana de la ventana especificada.

Dim pnsPanes As Panes
Set pnsPanes = ActiveWindow.Panes

Parent Devuelve un objeto Object que representa el objeto primario del objeto Window especificado.

Dim objParent As Object
Set objParent = ActiveWindow.Parent

Previous Devuelve la ventana de documento anterior de la colección de ventanas de documento abiertas.

Dim wndPrevious As Window
Set wndPrevious = ActiveWindow.Previous

Selection Devuelve el objeto Selection que representa un intervalo seleccionado o el punto de inserción.

Dim slcSelection As Selection
Set slcSelection = ActiveWindow.Selection

Split True si la ventana se divide en varios paneles.

ActiveWindow.Split = True

SplitVertical Devuelve o establece el porcentaje de división vertical para la ventana especificada.

ActiveWindow.SplitVertical =

StyleAreaWidth Devuelve o establece el ancho del área de estilo en puntos.

ActiveWindow.StyleAreaWidth =

Thumbnails Establece o devuelve un valor Boolean que representa si se muestran imágenes en miniatura de las páginas de un documento en el lado izquierdo de la ventana de documento de Microsoft Word.

ActiveWindow.Thumbnails = True

Top Devuelve o establece la posición vertical de la ventana de documento especificada, en puntos.

ActiveWindow.Top =

Type Devuelve el tipo de ventana.

Dim wwtType As WdWindowType
wwtType = ActiveWindow.Type

UsableHeight Devuelve el alto (en puntos) del área de trabajo activo en la ventana de documento especificada.

Dim lngUsableHeight As Long
lngUsableHeight = ActiveWindow.UsableHeight

UsableWidth Devuelve el ancho (en puntos) del área de trabajo activo en la ventana de documento especificada.

Dim lngUsableWidth As Long
lngUsableWidth = ActiveWindow.UsableWidth

VerticalPercentScrolled Devuelve o establece la posición de desplazamiento vertical como porcentaje de la longitud del documento.

ActiveWindow.VerticalPercentScrolled =

View Devuelve un objeto View que representa la vista de la ventana o panel especificado.

Dim vwView As View
Set vwView = ActiveWindow.View

Visible True si el objeto especificado está visible.

ActiveWindow.Visible = True

Width Devuelve o establece el ancho de la ventana de documento especificada en puntos.

ActiveWindow.Width =

WindowNumber

Dim lngWindowNumber As Long
lngWindowNumber = ActiveWindow.WindowNumber

WindowState Devuelve o establece el estado de la ventana del documento o la ventana de la tarea especificada.

ActiveWindow.WindowState = wdWindowStateMaximize

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

Dim lngCount As Long
lngCount = Windows.Count

Windows.Parent Devuelve un objeto Object que representa el objeto primario del objeto Windows especificado.

Dim objParent As Object
Set objParent = Windows.Parent

SyncScrollingSideBySide

Windows.SyncScrollingSideBySide = True