DocumentOpen Event Example

This example arranges all open windows when a document is opened.

Private Sub App_DocumentOpen(ByVal Doc As Document)
    Application.Windows.Arrange wdTiled
End Sub