Selection.Editors (Word)

Returns an Editors object that represents all the users authorized to modify a selection within a document.

Dim objEditor As Editor 
 
Set objEditor = Selection.Editors.Add(wdEditorCurrent)