Range.Editors (Word)

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

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