Window.HorizontalPercentScrolled (Word)

Returns or sets the horizontal scroll position as a percentage of the document width.

MsgBox _ 
 ActiveDocument.ActiveWindow.HorizontalPercentScrolled & "%"