New Event Example

This example arranges all open windows when a new document based on the template is created. (This procedure is stored in a template, not a document.)

Private Sub Document_New()
    Application.Windows.Arrange wdTiled
End Sub