Range.Editors (Word)

Devuelve un objeto Editors que representa a todos los usuarios autorizados para modificar una selección o un intervalo de un documento.

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