Classe Windows (Word VBA)

Uma coleção de objetos Window que representam todas as janelas disponíveis. A coleção Windows para o objeto Application contém todas as janelas no aplicativo, enquanto a coleção Windows do objeto Document contém somente as janelas que exibem o documento especificado. Para usar uma variável de classe Windows, ela primeiro precisa ser instanciada por exemplo

Dim wnds as Windows
Set wnds = Windows

For Each

Aqui está um exemplo de processamento dos itens Windows em uma coleção.

Dim wnd As Window
For Each wnd In Windows
	
Next wnd

Add

Retorna um objeto Window que representa uma nova janela de um documento.

Dois-pontos (:) e um número aparecem na legenda da janela quando mais de uma janela está aberta para o mesmo documento.

Add (Window)

Window: O objeto de janela que você deseja abrir outra janela. Se esse argumento for omitido, uma nova janela é aberta para o documento ativo.

Windows.Add

Arrange

Organiza todas as janelas de documento abertas no espaço de trabalho do aplicativo.

Como o Microsoft Word usa uma interface de documento único (SDI), esse método não é mais válido.

Arrange (ArrangeStyle)

ArrangeStyle: A organização das janelas. Pode ser uma das seguintes constantes WdArrangeStyle : wdIcons ou wdTiled.

Windows.Arrange ArrangeStyle:=wdTiled

BreakSideBySide

Finaliza o modo lado a lado se duas janelas estiverem no modo lado a lado. Retorna um Boolean que indica se o método foi bem-sucedido.

ActiveDocument.Windows.BreakSideBySide

CompareSideBySideWith

Abre duas janelas no modo lado a lado. Retorna um Boolean.

Você não pode usar o método CompareSideBySideWith com o objeto Application ou a propriedade ActiveDocument.

CompareSideBySideWith (Document)

Document: O documento a ser visualizado nas janelas lado a lado.

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

Retorna um Long que representa o número de janelas na coleção. Somente leitura.

Dim lngCount As Long
lngCount = Windows.Count

Item

Retorna um objeto Window individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal ou uma cadeia de caracteres que representa o nome do objeto individual.

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

ResetPositionsSideBySide

Redefine dois documentos que estão no modo de exibição Comparar lado a lado com.

Este método corresponde ao botão Redefinir a Posição da Janela na barra de ferramentas Comparar Lado a Lado. Use o método ResetPositionsSideBySide para redefinir a exibição de dois documentos. Por exemplo, se um usuário minimiza ou maximiza uma das duas janelas dos documentos, que estão sendo comparados, o método ResetPositionsSideBySide redefine a exibição, para que as duas janelas sejam exibidas lado a lado novamente.

Windows.ResetPositionsSideBySide

SyncScrollingSideBySide

Windows.SyncScrollingSideBySide = True