带VBA（Microsoft Word）的屏幕触发器
在Word中一次处理两个文件时，有很多很多次。
例如，我可能正在阅读一个文档并将其与另一个文档进行比较（并且我不想使用“比较文档”功能）。我总是尝试将要修改的文档保留在屏幕的顶部，而将其他文档保留在屏幕的底部。称其为个性怪癖，但我发现以这种方式使用Windows更容易。
反复调整窗口的位置并确保正确的文件位于屏幕顶部可能很痛苦。因此，我开发了一个宏来处理这种情况。如果屏幕上显示两个窗口，则可以使用此方便的小宏来切换哪个窗口在“顶部”。您可能希望将其分配给工具栏按钮或快捷键，因为如果您需要不断从宏列表中调用它，它将用处不大。以下将在Word 97中工作：
Sub FlipFlop() If Windows.Count = 2 Then WordBasic.NextWindow WindowArrangeAll End If End Sub
如果您使用的是Word的更高版本，则只需稍稍更改宏：
Sub FlipFlop() If Windows.Count = 2 Then WordBasic.NextWindow Windows.Arrange End If End Sub
请注意，这些宏仅在（且仅当）屏幕上有两个窗口时才起作用。如果有更多或更少，则宏根本不执行任何操作。
毫无疑问，VBA专家正在阅读此技巧，他们会立即注意到WordBasic.NextWindow命令可能已被ActiveWindow.Next.Activate代替。 （VBA帮助指示这与WordBasic中的NextWindow命令等效于VBA。）但是，执行此操作时会发生一件有趣的事情-宏不起作用。您可以按照以下步骤自己尝试：
。在屏幕上创建两个文档窗口。 （打开两个Word文档，只有两个。）
。从窗口菜单中选择全部安排。
。现在开始录制宏；您可以给它取任何您想要的名称。
。按Ctrl + F6，这将激活下一个窗口。
。从窗口菜单中选择全部安排。
。重复步骤4和5进行两次迭代。
。停止宏录制器。
。运行您刚创建的宏。
当您执行这些步骤时，您会注意到宏（Word刚刚为您创建的宏）在ActiveWindow.Next.Activate命令之一上被炸毁。对于Redmond来说，这可能是一个不错的bug项目，但解决方法是改用WordBasic.NextWindow命令。
注意：
如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。
_WordTips_是您进行经济有效的Microsoft Word培训的来源。
（Microsoft Word是世界上最流行的文字处理软件。）本技巧（972）适用于Microsoft Word 97、2000、2002和2003。