Klasse Windows (Word VBA)

Eine Auflistung von Window -Objekten, die alle verfügbaren Fenster darstellen.

Um eine Windows -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim wnds as Windows
Set wnds = Windows

Die folgenden Prozeduren können zum Festlegen der Windows Klassenvariablen verwendet werden : Application.Windows und Document.Windows.

For Each

Hier ist ein Beispiel für die Verarbeitung der Windows -Elemente in einer Sammlung

Dim wnd As Window
For Each wnd In Windows
	
Next wnd

Add

Gibt ein Window -Objekt zurück, das ein neues Fenster eines Dokuments darstellt.

In der Fensterbeschriftung erscheint ein Doppelpunkt (:) und eine Zahl, wenn mehrere Fenster für das Dokument geöffnet sind.

Add (Window)

Window: Das Window-Objekt, für das Sie ein weiteres Fenster öffnen möchten.

Windows.Add

Arrange

Ordnet alle geöffneten Dokumentfenster im Anwendungsarbeitsbereich an.

Da Microsoft Word eine einfache Dokumentschnittstelle (SDI, Single Document Interface) verwendet, hat diese Methode keine Auswirkungen mehr.

Arrange (ArrangeStyle)

ArrangeStyle: Die Fensteranordnung.

Windows.Arrange ArrangeStyle:=wdTiled

BreakSideBySide

Beendet den Nebeneinandermodus, wenn zwei Fenster nebeneinander angezeigt werden.

ActiveDocument.Windows.BreakSideBySide

CompareSideBySideWith

Öffnet zwei Fenster nebeneinander.

Sie können die CompareSideBySideWith-Methode nicht mit dem Application-Objekt oder der ActiveDocument-Eigenschaft verwenden.

CompareSideBySideWith (Document)

Document: Das Dokument, das in zwei nebeneinander liegenden Fenstern angezeigt werden soll.

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

Gibt einen Wert vom Typ Long zurück, der die Anzahl der Fenster in der Auflistung darstellt.

Dim lngCount As Long
lngCount = Windows.Count

Item

Gibt ein einzelnes Window -Objekt in einer Auflistung zurück.

Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

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

ResetPositionsSideBySide

Setzt zwei Dokumentfenster zurück, die sich im Anzeigemodus Nebeneinander vergleichen mit befinden.

Diese Methode hat dieselbe Funktion wie die Schaltfläche Fensterposition zurücksetzen auf der Symbolleiste Nebeneinander vergleichen.

Windows.ResetPositionsSideBySide

SyncScrollingSideBySide

Windows.SyncScrollingSideBySide = True