Application VisualBasic Script

Sub arrange()
    Windows.arrange ArrangeStyle:=wdTiled
End Sub