Classe Editor (Word VBA)

La classe Editor représente un utilisateur unique à qui des autorisations spécifiques ont été accordées pour modifier des parties d'un document.

Les procédures principales de la classe Editor sont Delete et Editors.Add

Set

Pour utiliser une variable de classe Editor, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Editor : Editors.Add, Editors.Item, Range.Editors et Selection.Editors

For Each

Voici un exemple de traitement des éléments Editor dans une collection

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

Méthodes

Les méthodes principales de la classe Editor sont

Delete - Supprime l’objet Editor spécifié.

ActiveDocument.Range.Editors(1).Delete

Editors.Add - Renvoie un objet Editor qui représente une nouvelle autorisation pour un utilisateur spécifié afin de modifier une plage ou une sélection dans un document.

Dim strEditorID As String: strEditorID =  
Dim edt As Editor
Set edt = ActiveDocument.Range.Editors.Add(EditorID:=strEditorID)

Propriétés

ID Cette propriété renvoie ou définit l’étiquette d’identification de l’objet spécifié lorsque le document parent est enregistré en tant que page Web.

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

Name Cette propriété renvoie ou définit le nom de l'objet spécifié.

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

NextRange Renvoie un objet Range qui représente la plage suivante qu’un utilisateur est autorisé à modifier.

Dim rngNextRange As Range
Set rngNextRange = ActiveDocument.Range.Editors(1).NextRange

Parent Renvoie un Object qui représente l'objet parent de l'objet Editor spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Editors(1).Parent

Range Renvoie un objet Range qui représente la partie d’un document contenue dans l’objet spécifié.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.Editors(1).Range

Editors.Count Renvoie un Long qui représente le nombre d'objets Editor dans la collection.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Editors.Count

Editors.Parent Renvoie un Object qui représente l'objet parent de l'objet Editors spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Editors.Parent