VBA（Microsoft Word）を使用したスクリーンフリップフロップ
Wordで一度に2つのファイルを操作することは何度もあります。
たとえば、あるドキュメントを読んで別のドキュメントと比較している場合があります（そして、ドキュメントの比較機能を使用したくありません）。私は常に、変更するドキュメントを画面の上部に、他のドキュメントを下部に保持するようにしています。それを性格の癖と呼びますが、私はこの方法でウィンドウを使用する方が簡単だと思います。
ウィンドウの位置を繰り返し調整し、適切なファイルが画面の上部にあることを確認するのは面倒な場合があります。そこで、この状況に対応するマクロを開発しました。この便利な小さなマクロを使用して、画面に2つのウィンドウが表示されている場合に、どちらのウィンドウを「一番上」にするかを切り替えることができます。マクロリストから呼び出し続ける必要がある場合はほとんど役に立たないため、これをツールバーボタンまたはショートカットキーに割り当てることをお勧めします。以下はWord97で機能します：
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
これらのマクロは、画面に2つのウィンドウがある場合にのみ（そしてその場合にのみ）機能することに注意してください。多かれ少なかれある場合、マクロは何もしません。
このヒントを読んでいるVBAの専門家は間違いなく、WordBasic.NextWindowコマンドがActiveWindow.Next.Activateに置き換えられている可能性があることにすぐに気付くでしょう。 （VBAヘルプは、これがWordBasicのNextWindowコマンドに相当するVBAであることを示しています。）ただし、これを行うと、マクロが機能しないという興味深いことが起こります。次の手順に従って、これを自分で試すことができます。
。画面上に2つのドキュメントウィンドウを作成します。 （2つのWord文書を開き、2つだけ開きます。）
。 [ウィンドウ]メニューから[すべて配置]を選択します。
。ここで、マクロの記録を開始します。好きな名前を付けることができます。
。 Ctrl + F6を押すと、次のウィンドウがアクティブになります。
。 [ウィンドウ]メニューから[すべて配置]を選択します。
。さらに2回繰り返すために、手順4と5を繰り返します。
。マクロレコーダを停止します。
。作成したマクロを実行します。
これらの手順を実行すると、マクロ（Wordが作成したばかりのマクロ）がActiveWindow.Next.Activateコマンドの1つで爆破されることに気付くでしょう。おそらくレドモンドにとっては良いバグアイテムですが、それを回避する方法は、代わりにWordBasic.NextWindowコマンドを使用することです。
注：
このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。
（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（972）は、Microsoft Word 97、2000、2002、および2003に適用されます。