| |
こんにちは。返信ありがとうございます。
サンプルコードを試してみましたが、タスクバー内に最小化されたままとなってしまいます。
こちらで試したのは「文書１」「文書２」「文書３」といった文書をファイルを開いた状態で実行してみました。この場合上に書いたようになります。
これが「文書１」から「新しいウィンドウ」で派生した複数のウィンドウだけがある場合は、整列動作らしい動きをしているのですが、結果的には完全な整列でなく中途半端になっています。（ウィンドウが４つあっても２つしか整列しない等）
どこを直せばいいでしょうか？
▼H. C. Shinopy さん：
>Wordだけで「上下に並べて表示」ということであれば、
>次のマクロで整列できます。
>（メニューバーの[ウィンドウ]-[並べて表示]に該当します。）
>
>Sub WinWordArrange()
> Window.Arrange
>End Sub
>
>
>Wordでは、なぜかそのままでは「左右に並べて表示」ができないようです。
>一旦、すべてのウィンドウを閉じた上で、
>Wordのウィンドウをアクティブにして、
>「左右に並べて表示」処理をしたらどうでしょうか。
>
>Sub WinWordArrange()
> ' 参照設定 Microsoft Shell Controls And Automation
> Dim myShell As Shell32.Shell
> Dim windowLoop As Window
> '
> Set myShell = CreateObject("Shell.Application")
> myShell.MinimizeAll
> '
> For Each windowLoop In Windows
> With windowLoop
> .Activate
> .WindowState = wdWindowStateNormal
> End With
> Next windowLoop
> '
> myShell.TileVertically ' 左右に並べて表示
> '
> Set myShell = Nothing
>End Sub
|
|
WhiteRabbit
- 03/5/20(火) 14:00 -
