Existe-t-il un moyen d'utiliser Word Interop ou VBA pour obtenir le texte d'origine d'un paragraphe (ou d'une plage) contenant des révisions?

Question

On dirait que l'accès aux plages de révision ne me donne que le texte mis à jour. Je voudrais voir le texte tel qu'il était à l'origine pour que je puisse créer un rapport qui dit quelque chose comme "Change to".

Answer 1

Je crois qu'une fois que vous obtenez un objet range, vous pouvez accéder aux révisions apportées à cette plage via Range.Revisions. Ensuite, vous devrez enumérer les révisions et regarder le TYPE de révision pour déterminer quel genre de changement c'était. Si vous voulez la version originale, vous devrez peut-être ouvrir une deuxième copie du document, sélectionnez votre gamme, puis rejeter toutes les révisions dans cette gamme, lire la valeur de la gamme et à travers cette copie du doc ​​loin .

Answer 2

Rejetant la révision changera

Range.Text

au texte original.

Vous pouvez ensuite annuler les modifications pour rétablir le texte révisé.