Document.SelectAllEditableRanges (Word)

Selects all ranges for which the specified user or group of users has permission to modify.

SelectAllEditableRanges (EditorID)

EditorID: Can be either a String that represents the user's email alias (if in the same domain), an email address, or a WdEditorType constant that represents a group of users. If omitted, only ranges for which all users have permissions will be selected.

ActiveDocument.SelectAllEditableRanges wdEditorCurrent