| |
Word文書ウィンドウの全部を整列しない件
すみません。当方の試行不足です。
こちらの環境はWinXP・Word2002ですが、
3つの文書で、その内、1つを先に最小化した状態で当マクロを実行すると、
2つだけ整列して、残り1つは最小化のままという
お尋ねの現象が起きるのを確認しました。
「wdWindowStateNormal」（元の大きさに戻る）を
「wdWindowStateMaximize」（最大化する）に変更して下さい。
ここが問題であったと思います。
それから「Windows.Arrange」（上下に並べて表示）は、削除して下さい。
いろいろやってるなかで、入れてしまいました。
左右に表示する場合は、必要ありません。
従って、以下の通り。
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 = wdWindowStateMaximize
End With
Next windowLoop
'
myShell.TileVertically ' 左右に並べて表示
'
Set myShell = Nothing
End Sub
|
|
H. C. Shinopy
- 03/5/20(火) 16:47 -
