Screen Flip Flop with WordBasic

There are many, many times when I work with two files at a time in Word. For instance, I may be reading one document and comparing it to another (and I don't want to use the Compare Documents feature). I always try to keep the document I am modifying in the top part of my screen, and the other document in the bottom part. Call it a personality quirk, but I find it easier to use the windows this way.

It can be a pain to repeatedly adjust the position of the windows and make sure that the proper file is at the top of the screen. Therefore, I developed a macro to handle this situation. You can use this handy little macro to switch which window is "on top" if you have two windows displayed on the screen. You will probably want to assign this to a toolbar button or a shortcut key, as it will be of little use if you need to keep calling it from the macro list. The following is the WordBasic version of the FlipFlop macro:

Sub MAIN
If CountWindows() = 2 Then
    NextWindow
    WindowArrangeAll
End If
End Sub

Notice that this macro only works if (and only if) there are two windows on the screen. If there is more or less, then the macro does nothing at all.