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