Range.Editors (Word)

Retorna um objeto Editors que representa todos os usuários autorizados a modificar uma seleção ou intervalo em um documento.

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