Classe Comments - commentaires (Word VBA)

Collection d’objets Comment qui représentent les commentaires contenus dans une sélection, une plage ou un document. Pour utiliser une variable de classe Comments, elle doit d'abord être instanciée, par exemple

Dim cmms as Comments
Set cmms = Selection.Comments

Add

Renvoie un objet Comment qui représente un Commentaire ajouté à une plage.

Add (Range, Text)

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

Arguments

Un argument nommé

Range (Range) - Plage à laquelle doit être ajoutée un commentaire.

Optional arguments

Les arguments suivants sont facultatifs

Text (String) - Texte du commentaire.

Count

Renvoie un type long qui représente le nombre d’éléments dans la collection comments.

Dim lngCount As Long
lngCount = Selection.Comments.Count

Item

Renvoie un objet Comment spécifique appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.

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

ShowBy

Cette propriété renvoie ou définit le nom du réviseur dont les commentaires sont affichés dans le volet de commentaires.

Vous pouvez afficher les commentaires effectués par un seul ou tous les relecteurs.

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