Application.ActiveProtectedViewWindow (Word)

Returns a ProtectedViewWindow object that represents the active Protected View window.

Dim pvwActiveProtectedViewWindow As ProtectedViewWindow
Set pvwActiveProtectedViewWindow = ActiveProtectedViewWindow