NewDocument Event Example

This example arranges all open windows when a new document is created.

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