I am desperate to figure out how to make two word documents line up in
a side by side vertical view without having to manually adjust it. I
generally go to Window and choose bring all to front but it puts the
documents on top of each other and then it becomes difficult to adjust
into the side by side view that I'm going for... does anyone have any
tips??
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.
