Bonjour,
Je sollicite à nouveau la communauté sur le problème suivant.
Dans un tableau, à l'intérieur d'une cellule, initialement, j'avais un texte inséré par un utilisateur 1, en suivi de modifications.
Ceci est le texte inséré de l'utilisateur 1, validé par l'utilisateur 2 pour cet exemple.
Dans un deuxième temps, un utilisateur 2 a modifié ce texte (remplacement dans une insertion):
Ceci est le texte inséré de l'utilisateur 1, en cours de validation par l'utilisateur 2,validé par l'utilisateur 2pour cet exemple.
Dans la collection Revisions, cependant, je n'ai qu'une seule révision:
Ceci est le texte inséré de l'utilisateur 1, en cours de validation par l'utilisateur 2, pour cet exemple.
Savez-vous s'il y a un moyen de récupérer une révision dans une révision comme indiqué ci-dessous?
J'ai testé de boucler à l'intérieur de chaque révision, mais ça ne donne pas de meilleurs résultats:
D'avance, merci pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 For Each ThisRevision In Application.ActiveDocument.Revisions For Each ThisRevisionEmbarquee In ThisRevision.Range.Revisions ' Extraction du commentaire ' Seules les actions d'ajout/modification/suppression sont listées If ThisRevisionEmbarquee.Type = 1 Or ThisRevisionEmbarquee.Type = 2 Or ThisRevisionEmbarquee.Type = 9 Then strCommentaireExtrait = Format(ThisRevisionEmbarquee.Range.Start, "000000000") & "@&" & ThisRevisionEmbarquee.Author & "@&" & ThisRevisionEmbarquee.Range.Information(wdActiveEndPageNumber) & "@&" & "Modification" & "@&" & strTypeRevision(ThisRevisionEmbarquee.Type) & "@&" & ThisRevisionEmbarquee.Range.Text If CommentaireExtrait.Exists(strCommentaireExtrait) = False Then c = CommentaireExtrait.Count CommentaireExtrait.Add strCommentaireExtrait, c CommentairesTexte(c) = strCommentaireExtrait End If End If Next Next
Partager