Classe Comment (Word VBA)

La classe Comment représente un commentaire unique.

La procédure principale de la classe Comment est Comments.Add

Set

Pour utiliser une variable de classe Comment, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Comment : Ancestor, Comments.Add, Comments.Item, Replies, Document.Comments, Range.Comments et Selection.Comments

For Each

Voici un exemple de traitement des éléments Comment dans une collection

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

Méthodes

C'est la méthode principale de la classe Comment

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

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

Propriétés

Ancestor Pour les commentaires qui sont des réponses à des commentaires existants, renvoie l’objet de Commentaire parent; pour les nouveaux commentaires (de niveau supérieur), renvoie la valeur Nothing.

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

Contact Renvoie un objet coauthor qui représente l’auteur du commentaire spécifié.

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

Date Renvoie une Date qui représente la date et l’heure d’insertion d’un commentaire.

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

Done Cette propriété renvoie ou définit un type Boolean dont la valeur est true si le commentaire spécifié a été marqué comme étant fermé.

Selection.Comments(1).Done = True

Index Renvoie un type long qui représente la position d'un élément dans une collection.

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

IsInk Retourne un type de données Boolean qui indique qu'un commentaire est un commentaire manuscrit.

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

Parent Renvoie un Object qui représente l'objet parent de l'objet Comment spécifié.

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

Range Renvoie un objet Range qui représente le contenu d'un commentaire.

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

Reference Renvoie un objet Range qui représente une marque de référence pour un commentaire.

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

Replies Renvoie une collection comments des objets Comment sont enfants du commentaire spécifié.

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

Scope Renvoie un objet Range qui représente la plage de texte marquée par le commentaire spécifié.

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

Comments.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

Comments.Parent Renvoie un Object qui représente l'objet parent de l'objet Comments spécifié.

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

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

Selection.Comments.ShowBy =