Clase Editor (Word VBA)

La clase Editor representa un único usuario al que se han concedido permisos para editar partes de un documento.

Para usar una variable de clase Editor, primero debe ser instanciado, por ejemplo

Dim edt as Editor
Set edt = ActiveDocument.Range.Editors(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Editor : Editors.Add y Editors.Item.

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Editor en una colección.

Dim edt As Editor
For Each edt In ActiveDocument.Range.Editors
	
Next edt

Delete

Elimina el objeto Editor especificado.

ActiveDocument.Range.Editors(1).Delete

DeleteAll

Elimina todos los permisos de edición de un documento para un usuario específico.

Dim objEditor As Editor 
 
Set objEditor = Selection.Editors(1) 
 
objEditor.DeleteAll

ID

Devuelve o establece la etiqueta de identificación para el objeto especificado cuando el documento primario se guarda como una página web.

Dim strID As String
strID = ActiveDocument.Range.Editors(1).ID

Name

Devuelve o establece el nombre del objeto especificado.

Dim strName As String
strName = ActiveDocument.Range.Editors(1).Name

NextRange

Devuelve un objeto Range que representa el siguiente intervalo para el que un usuario tiene permisos de edición.

También puede utilizar el método GoToEditableRange del objeto Range para devolver el siguiente intervalo para el que un usuario tiene permiso para modificar.

Dim objEditor As Editor 
Dim objRange As Range 
 
Set objEditor = Selection.Editors(1) 
Set objRange = objEditor.NextRange

Range

Devuelve un objeto Range que representa la parte de un documento incluida en el objeto especificado.

Para obtener información acerca de la devolución de un intervalo de un documento o la devolución de un intervalo de formas de una colección de formas, vea el método Range.

ActiveDocument.Paragraphs(1).Range.Style = wdStyleHeading1

SelectAll

Selecciona todas las formas de un documento insertadas o editadas por un solo usuario.

Este método no selecciona objetos InlineShape.

ActiveDocument.Range.Editors(1).SelectAll