Mac Forum / Applications / Word / January 2007

I think this has been asked before in here, and the consensus is that
there is no way except by macro.

Here is a macro posted by John McGimpsey when the world was new and all.

Paste it into your tools » macros... and assign a keyboard shortcut to
it.

  Public Sub WindowArrangeAll()
       'J.E. McGimpsey
       Const BOTTOMSPACE As Integer = 25
       Const RIGHTSPACE As Integer = 50
       Dim cVisibleWindows As New Collection
       Dim oWindow As Window
       Dim i As Integer
       Dim iWidth As Integer
       Dim iHeight As Integer
       
       For Each oWindow In Windows
           If oWindow.WindowState <> wdWindowStateMinimize Then _
               cVisibleWindows.Add oWindow
       Next oWindow
       With cVisibleWindows
           iWidth = (Application.UsableWidth - RIGHTSPACE) / .Count
           iHeight = Application.UsableHeight - BOTTOMSPACE
           For i = 1 To .Count
               With .Item(i)
                   .Activate
                   .WindowState = wdWindowStateNormal
                   .Width = iWidth
                   .Left = (i - 1) * iWidth - (i > 1)
                   .Top = 0
                   .Height = iHeight
               End With
           Next i
       End With
   End Sub

I'll try to post a modification of this that takes advantage of
multiple screens if I can work out how to do it. I think I need a
replacement for Application.UsableWidth that knows how many screens
there are and how they are arranged. I may be gone some time ;-)

It would be nice to put some limits on how silly the window sizes could
become too.