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