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. 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)

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

Delete

Supprime l’objet Editor spécifié.

ActiveDocument.Range.Editors(1).Delete

DeleteAll

Supprime toutes les autorisations de modification d'un document pour un utilisateur spécifique.

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

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.

Vous pouvez également utiliser la méthode GoToEditableRange de l'objet Range pour renvoyer la plage suivante pour laquelle un utilisateur est autorisé à modifier.

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

Range

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

Pour plus d'informations sur le renvoi d'une plage à partir d'un document ou le renvoi d'une plage de formes à partir d'une collection de formes, voir la méthode Range.

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

SelectAll

Sélectionne toutes les formes d'un document insérées ou modifiées par un même utilisateur.

Cette méthode ne sélectionne pas les objets InlineShape.

ActiveDocument.Range.Editors(1).SelectAll