Window.VerticalPercentScrolled (Word)

Returns or sets the vertical scroll position as a percentage of the document length.

MsgBox ActiveDocument.ActiveWindow.VerticalPercentScrolled & "%"