Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

845 / 886

←次へ　｜　前へ→


	【44】Re:Wordのウィンドウを整列させる

H. C. Shinopy - 03/5/20(火) 9:29 -


	引用なし

	パスワード

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

1,733 hits

▼

【41】Wordのウィンドウを整列させる WhiteRabbit 03/5/19(月) 12:06