Pane.Selection (Word)

Returns the Selection object that represents a selection or the insertion point within a document pane.

Dim slcSelection As Selection
Set slcSelection = ActiveWindow.ActivePane.Selection