Window.WindowNumber (Word)

Dim lngWindowNumber As Long
lngWindowNumber = ActiveWindow.WindowNumber