Compartir a través de

Método Document.DeleteAllCommentsShown (Word)

  • Artículo

Elimina todas las revisiones del documento especificado que aparecen en pantalla.

Importante

DeleteAllCommentsShown elimina el subconjunto visible de comentarios. Esto incluye comentarios activos (se muestra) así como comentarios resueltos (indicados por sugerencia de comentario).

Sintaxis

expresión. DeleteAllCommentsShown

expresión obligatoria. Variable que representa un objeto Document.

Ejemplo:

En este ejemplo se ocultan todos los comentarios de "Jeff Smith" y se eliminan todos los demás comentarios mostrados.

Sub HideDeleteComments() 
 Dim rev As Reviewer 
 With ActiveWindow.View 
 'Display all comments and revisions 
 .ShowRevisionsAndComments = True 
 .ShowFormatChanges = True 
 .ShowInsertionsAndDeletions = True 
 
 For Each rev In .Reviewers 
 rev.Visible = True 
 Next 
 
 'Hide only the revisions/comments made by the 
 'reviewer named "Jeff Smith" 
 .Reviewers(Index:="Jeff Smith").Visible = False 
 End With 
 
 'Delete all comments displayed in the active view 
 ActiveDocument.DeleteAllCommentsShown 
End Sub

Consulte también

Objeto Document

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.