Application VisualBasic Script

Sub size()
    With ActiveWindow
        .Height = 300
        .width = 400
    End With
End Sub