Classe Editor (Word VBA)

A classe Editor representa um único usuário ao qual são concedidas permissões específicas para editar partes de um documento. Para usar uma variável de classe Editor, ela primeiro precisa ser instanciada por exemplo


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

For Each

Aqui está um exemplo de processamento dos itens Editor em uma coleção.


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

Delete

Exclui o objeto Editor especificado.


ActiveDocument.Range.Editors(1).Delete

DeleteAll

Exclui todas as permissões de edição em um documento para um usuário específico.


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

ID

Retorna ou define o rótulo de identificação para o objeto especificado quando o documento pai é salvo como uma página da Web. Cadeia de caracteressomente leitura.


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

Name

Retorna ou define o nome do objeto especificado. Cadeia de caracteressomente leitura.


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

NextRange

Retorna um objeto Range que representa o próximo intervalo para o qual um usuário tem permissões para modificar.

Você também pode usar o método GoToEditableRange do objeto Range para retornar o próximo intervalo para o qual um usuário tem permissão para modificar.


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

Range

Retorna um objeto Range que representa a parte de um documento que está contida no objeto especificado.

Para obter informações sobre como retornar um intervalo de um documento ou um intervalo de formas de uma coleção de formas, consulte o método Range.


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

SelectAll

Seleciona todas as formas em um documento que foram inseridas ou editadas por um único usuário.

Este método não seleciona objetos InlineShape.


ActiveDocument.Range.Editors(1).SelectAll