Editors Property
Returns an Editors object that represents all the users authorized to modify a selection or range within a document.
expression.Editors
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example gives the current user editing permission to modify the active selection.
Dim objEditor As Editor
Set objEditor = Selection.Editors.Add(wdEditorCurrent)