Screen Flip Flop mit VBA (Microsoft Word)
Es gibt viele, viele Male, wenn ich mit zwei Dateien gleichzeitig in Word arbeite.
Beispielsweise lese ich möglicherweise ein Dokument und vergleiche es mit einem anderen (und ich möchte die Funktion „Dokumente vergleichen“ nicht verwenden). Ich versuche immer, das Dokument, das ich ändere, im oberen Teil meines Bildschirms und das andere Dokument im unteren Teil zu behalten. Nennen wir es eine Persönlichkeits-Eigenart, aber ich finde es einfacher, die Fenster auf diese Weise zu verwenden.
Es kann schwierig sein, die Position der Fenster wiederholt anzupassen und sicherzustellen, dass sich die richtige Datei oben auf dem Bildschirm befindet. Deshalb habe ich ein Makro entwickelt, um mit dieser Situation umzugehen. Mit diesem praktischen kleinen Makro können Sie wechseln, welches Fenster „oben“ ist, wenn zwei Fenster auf dem Bildschirm angezeigt werden. Möglicherweise möchten Sie dies einer Symbolleistenschaltfläche oder einer Tastenkombination zuweisen, da dies wenig hilfreich ist, wenn Sie es weiterhin aus der Makroliste aufrufen müssen. In Word 97 funktioniert Folgendes:
Sub FlipFlop() If Windows.Count = 2 Then WordBasic.NextWindow WindowArrangeAll End If End Sub
Wenn Sie eine spätere Version von Word verwenden, muss das Makro nur geringfügig geändert werden:
Sub FlipFlop() If Windows.Count = 2 Then WordBasic.NextWindow Windows.Arrange End If End Sub
Beachten Sie, dass diese Makros nur funktionieren, wenn (und nur wenn) zwei Fenster auf dem Bildschirm angezeigt werden. Wenn es mehr oder weniger gibt, tut das Makro überhaupt nichts.
Es gibt zweifellos VBA-Experten, die diesen Tipp lesen und sofort feststellen werden, dass der Befehl WordBasic.NextWindow durch ActiveWindow.Next.Activate hätte ersetzt werden können. (Die VBA-Hilfe gibt an, dass dies das VBA-Äquivalent des NextWindow-Befehls in WordBasic ist.) Eine interessante Sache passiert jedoch, wenn Sie dies tun – das Makro funktioniert nicht. Sie können dies selbst versuchen, indem Sie die folgenden Schritte ausführen:
-
Erstellen Sie zwei Dokumentfenster auf dem Bildschirm. (Öffnen Sie zwei Word-Dokumente und nur zwei.)
-
Wählen Sie im Menü Fenster die Option Alle anordnen.
-
Beginnen Sie nun mit der Aufnahme eines Makros. Sie können ihm einen beliebigen Namen geben.
-
Drücken Sie Strg + F6, um das nächste Fenster zu aktivieren.
-
Wählen Sie im Menü Fenster die Option Alle anordnen.
-
Wiederholen Sie die Schritte 4 und 5 für zwei weitere Iterationen.
-
Stoppen Sie den Makrorecorder.
-
Führen Sie das soeben erstellte Makro aus.
Wenn Sie diese Schritte ausführen, werden Sie feststellen, dass das Makro (das, das Word gerade für Sie erstellt hat) in einem der ActiveWindow.Next.Activate-Befehle ausgeführt wird. Wahrscheinlich ein gutes Fehlerelement für Redmond, aber der Weg dahin besteht darin, stattdessen den Befehl WordBasic.NextWindow zu verwenden.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.
(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (972) gilt für Microsoft Word 97, 2000, 2002 und 2003.