Word.Tips.Net Welcome toWord.Tips.Net

Helpful Links

Tips.Net Home
WordTips Home

Ask a Word Question
Make a Comment

Tips.Net Store

WordTips FAQ
WordTips Premium

Learn Access Now
Free Printable Forms

Beauty Tips
Car Tips
Cleaning Tips
College Tips
Cooking Tips
Excel2007 Tips
ExcelTips
Family Tips
Gardening Tips
Health Tips
Home Tips
Legal Tips
Money Tips
Organizing Tips
Pest Tips
Pet Tips
Wedding Tips
Word2007 Tips
WordTips

Advertise on the
WordTips Site

Newest Tips

Setting Fraction Bar Overhang Spacing in the Equation Editor

Printing On Both Sides of the Paper

Turning Off AutoComplete for Dates

Ordering Search and Replace

Understanding Auto Line Spacing

Adding Comments to Your Document

Conditional Calculations in Word

 

Tiling Documents

Summary: A quick method of placing your open documents side by side on the screen. (This tip works with Microsoft Word 97, Word 2000, Word 2002, and Word 2003.)

If you have multiple documents open, you can choose the Arrange All option from the Windows menu and have your documents stacked, one on top of another. What if you want the documents side by side, however? Word has no native feature that allows you to tile documents in this direction.

If you are using Word 2000 or a later version, there is a very easy way to tile your documents side by side. All you need to do is right-click on the Windows taskbar, then choose Tile Windows Vertically. This works, of course, because beginning with Word 2000 (unlike earlier versions), Word uses what is known as a Single Document Interface (SDI). This is just a fancy way of saying that you have only one document per instance of Word, instead of multiple documents.

If you are using Word 97, then the taskbar approach won't work. Instead, you must use a macro to accomplish the same task. The following macro will tile up to five documents in the width available to Word:

Sub SplitIt()
    Dim WinWidth As Long
    Dim WinLeft As Long
    Dim DocCount As Long

    DocCount = Application.Documents.Count
    If DocCount < 6 Then
        WinWidth = Application.UsableWidth / DocCount
        WinLeft = 0
        For Each DocWin In Application.Windows
            DocWin.Activate
            DocWin.WindowState = wdWindowStateNormal
            DocWin.Top = 0
            DocWin.Left = WinLeft
            DocWin.Height = Application.UsableHeight
            DocWin.Width = WinWidth
            WinLeft = WinLeft + WinWidth
        Next DocWin
    End If
End Sub

This VBA macro will also work in Word 2000 or later versions, if you don't want to use the taskbar approach.

Tip #647 applies to Microsoft Word versions: 97 | 2000 | 2002 | 2003

Save Time! WordTips has been published weekly since early 1997. Past issues are available in convenient WordTips archives. Have your own enhanced archive of WordTips at your fingertips, available to use at any time!
 
Check out WordTips Archives today!