Range.Editors Property (Word)

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

expression .Editors

expression Required. A variable that represents a Range object.

The following example gives the current user editing permission to modify the active selection.

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