Clase Comments - comentarios (Word VBA)

Colección de objetos comment que representa los comentarios de una selección, intervalo o documento. Para usar una variable de clase Comments, primero debe ser instanciado, por ejemplo

Dim cmms as Comments
Set cmms = Selection.Comments

Add

Devuelve un objeto comment que representa un comentario agregado a un rango.

Add (Range, Text)

Sub AddComment() 
 Selection.Collapse Direction:=wdCollapseEnd 
 ActiveDocument.Comments.Add _ 
 Range:=Selection.Range, Text:="review this" 
End Sub

Arguments

Un argumento con nombre

Range (Range) - Intervalo al que agregar un comentario.

Optional arguments

Los siguientes argumentos son opcionales

Text (String) - Texto del comentario.

Count

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

Dim lngCount As Long
lngCount = Selection.Comments.Count

Item

Devuelve un objeto comment individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

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

ShowBy

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

Puede elegir que se muestren los comentarios de un solo revisor o de todos los revisores.

If ActiveDocument.Comments.Count >= 1 Then 
 ActiveDocument.ActiveWindow.View.SplitSpecial = wdPaneComments 
 ActiveDocument.Comments.ShowBy = "Don Funk" 
End If