Bonjour,
Je souhaiterais pouvoir effectuer un décompte mots de zones commentaires,
sans passer par des copier-coller de ces zones sur une feuille word ;
existe-t-il un moyen d'exporter les commentaires, pour pouvoir en faire un
décompte ?
Merci de vos réponses !
Sylvie
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anacoluthe
Bonjour !
'sylvie' nous a écrit ...
Je souhaiterais pouvoir effectuer un décompte mots de zones commentaires, sans passer par des copier-coller de ces zones sur une feuille word ; existe-t-il un moyen d'exporter les commentaires, pour pouvoir en faire un décompte ?
Sauf ânerie je verrais bien une petite macro ;-) En voici une toute petite qui liste les commentaires en fin de document ; adaptez-la à vos besoins :
Public Sub ListerCommentaires() ActiveDocument.Content.InsertAfter vbCr & "COMMENTAIRES:" If ActiveDocument.Comments.Count > 0 Then For Each C In ActiveDocument.Comments ActiveDocument.Content.InsertAfter vbCr & C.Range.Text Next C End If End Sub
Anacoluthe « Les commentaires sont la partie la plus durable du plaisir. » - Georges CHEVALIER
Bonjour !
'sylvie' nous a écrit ...
Je souhaiterais pouvoir effectuer un décompte mots de zones commentaires,
sans passer par des copier-coller de ces zones sur une feuille word ;
existe-t-il un moyen d'exporter les commentaires, pour pouvoir en faire un
décompte ?
Sauf ânerie je verrais bien une petite macro ;-)
En voici une toute petite qui liste les commentaires
en fin de document ; adaptez-la à vos besoins :
Public Sub ListerCommentaires()
ActiveDocument.Content.InsertAfter vbCr & "COMMENTAIRES:"
If ActiveDocument.Comments.Count > 0 Then
For Each C In ActiveDocument.Comments
ActiveDocument.Content.InsertAfter vbCr & C.Range.Text
Next C
End If
End Sub
Anacoluthe
« Les commentaires sont la partie la plus durable du plaisir. »
- Georges CHEVALIER
Je souhaiterais pouvoir effectuer un décompte mots de zones commentaires, sans passer par des copier-coller de ces zones sur une feuille word ; existe-t-il un moyen d'exporter les commentaires, pour pouvoir en faire un décompte ?
Sauf ânerie je verrais bien une petite macro ;-) En voici une toute petite qui liste les commentaires en fin de document ; adaptez-la à vos besoins :
Public Sub ListerCommentaires() ActiveDocument.Content.InsertAfter vbCr & "COMMENTAIRES:" If ActiveDocument.Comments.Count > 0 Then For Each C In ActiveDocument.Comments ActiveDocument.Content.InsertAfter vbCr & C.Range.Text Next C End If End Sub
Anacoluthe « Les commentaires sont la partie la plus durable du plaisir. » - Georges CHEVALIER
