Classe Comments - comentários (Word VBA)

Uma coleção de objetos comment que representa os comentários em uma seleção, intervalo ou documento. Para usar uma variável de classe Comments, ela primeiro precisa ser instanciada por exemplo

Dim cmms as Comments
Set cmms = Selection.Comments

Add

Retorna um objeto comment que representa um Comentário adicionado a um intervalo.

Add (Range, Text)

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

Arguments

O seguinte argumento é necessário

Range (Range) - O intervalo ao qual um comentário será adicionado.

Optional arguments

The following argument is optional

Text (String) - O texto do comentário.

Count

Retorna um Long que representa o número de itens na coleção Comments . Somente leitura.

Dim lngCount As Long
lngCount = Selection.Comments.Count

Item

Retorna um objeto comment individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal do objeto individual.

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

ShowBy

Retorna ou define o nome do revisor cujos comentários são mostrados no painel de comentários. String de leitura/gravação.

Você pode optar por mostrar comentários de um único revisor ou de todos os revisores. Para exibir os comentários de todos os revisores, defina essa propriedade como "All Reviewers."

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