Window.Split (Word)

True si la fenêtre est divisée en plusieurs volets.

ActiveDocument.ActiveWindow.Split = True