Bonjour,
J'ai mis en place un petit traitement pour supprimer certaines révisions qui polluent la relecture (notamment: mise en forme, puces et numéros).
Je passe les détails sur la suppression. Si ça vous intéresse, je peux bien sûr le mettre à disposition.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 nbRevisions = ActiveDocument.Revisions.Count For i = 1 To nbRevisions // code de suppression Next i
Mon problème, c'est que les révisions apparaissent plus nombreuses et sont incomplètes. Je m'explique: le nombre de révisions calculées est de 70 mais si je mets une variable espion sur ActiveDocument.Revisions, j'en vois 256. Qui plus est, à partir de l'item 48 jusqu'à l'item 256, j'ai une révision qui est identique et qui correspond à une insertion dans un tableau. J'ai du coup accepté l'insertion mais j'ai toujours mes révisions de l'item 48 à l'item 256 qui sont identiques, mais... supprimées!
Avez-vous une idée?
D'avance, merci.
Partager