Clase Comment (Word VBA)

La clase Comment representa un solo comentario.

El principal procedimiento de la clase Comment es Comments.Add

Set

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

Dim cmm as Comment
Set cmm = Selection.Comments(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Comment : Ancestor, Comments.Add, Comments.Item, Replies, Document.Comments, Range.Comments y Selection.Comments

For Each

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

Dim cmmReply As Comment
For Each cmmReply In Selection.Replies
	
Next cmmReply

Métodos

Este es el método principal de la clase Comment

Comments.Add - Devuelve un objeto comment que representa un comentario agregado a un rango.

Dim cmm As Comment
Set cmm = Selection.Comments.Add(Range:=)

Propiedades

Ancestor Para comentarios que son respuestas a comentarios existentes, devuelve el objeto de Comentario primario; para los comentarios nuevos (de nivel superior), devuelve Nothing.

Dim cmmAncestor As Comment
Set cmmAncestor = Selection.Comments(1).Ancestor

Contact Devuelve un objeto coautor que representa al autor del comentario especificado.

Dim carContact As CoAuthor
Set carContact = Selection.Comments(1).Contact

Date Devuelve una fecha que representa la fecha y hora en que se insertó un comentario.

Dim dtToday As Date
dtToday = Selection.Comments(1).Date

Done Devuelve o establece un valor de tipo Boolean cuyo valor es true si el comentario especificado se ha marcado como Closed.

Selection.Comments(1).Done = True

Index Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

Dim lngIndex As Long
lngIndex = Selection.Comments(1).Index

IsInk Devuelve un valor Boolean que indica si un comentario es manuscrito.

Dim booIsInk As Boolean
booIsInk = Selection.Comments(1).IsInk

Parent Devuelve un objeto Object que representa el objeto primario del objeto Comment especificado.

Dim objParent As Object
Set objParent = Selection.Comments(1).Parent

Range Devuelve un objeto Range que representa el contenido de un comentario.

Dim rngRange As Range
Set rngRange = Selection.Comments(1).Range

Reference Devuelve un objeto Range que representa una marca de referencia para un comentario.

Dim rngReference As Range
Set rngReference = Selection.Comments(1).Reference

Replies Devuelve una colección Comments de objetos comment que son elementos secundarios del comentario especificado.

Dim cmmsReplies As Comments
Set cmmsReplies = Selection.Comments(1).Replies

Scope Devuelve un objeto Range que representa el intervalo de texto marcado por el comentario especificado.

Dim rngScope As Range
Set rngScope = Selection.Comments(1).Scope

Comments.Count Devuelve un Long que representa el número de elementos de la colección comments.

Dim lngCount As Long
lngCount = Selection.Comments.Count

Comments.Parent Devuelve un objeto Object que representa el objeto primario del objeto Comments especificado.

Dim objParent As Object
Set objParent = Selection.Comments.Parent

Comments.ShowBy Devuelve o establece el nombre del revisor cuyos comentarios se muestran en el panel de comentarios.

Selection.Comments.ShowBy =