OVH Cloud OVH Cloud

Suivi de révision

2 réponses
Avatar
Candide
Bonjour

Utilisateur de Word 2002 sous XP

Je désire indiquer dans la marqe la modification de mon document mais
ne pas faire apparaitre dans le document toutes les suppressions.

J'ai tenté l'acceptation globale mais plus d'indication dans la marge, cela
parait normal alors que dans les options du suivi de révision on fait la
différence entre suppressio, insertions, mise en forme et modification

Je n'ai pas trouvé la possibilité de décocher l'option qui permet d'afficher
les suppressions seules

La seule solution proposé par Word c'est d'accepter chaque suppression (trop
long)
Je souhaiterais les accepter en bloc

Merci pour vos réponses

2 réponses

Avatar
Anacoluthe
Bonjour !

'Candide' nous a écrit ...
Utilisateur de Word 2002 sous XP
Je désire indiquer dans la marqe la modification de mon document mais
ne pas faire apparaitre dans le document toutes les suppressions.
J'ai tenté l'acceptation globale mais plus d'indication dans la marge, cela
parait normal alors que dans les options du suivi de révision on fait la
différence entre suppressio, insertions, mise en forme et modification
Je n'ai pas trouvé la possibilité de décocher l'option qui permet d'afficher
les suppressions seules
La seule solution proposé par Word c'est d'accepter chaque suppression (trop
long)
Je souhaiterais les accepter en bloc


Vous pouvez le faire mais il faut passer par un peu de VBA :-)
Exécutez la commande suivante :
Alt+F11 (éditeur VBE)
Ctrl+G (fenêtre exécution)
Options.DeletedTextMark=wdDeletedTextMarkHidden <entrée>

Avec cette options vos suppressions sont masquées mais peuvent
être repérées dans la marge (Options/Modifications/Lignes modifiées)

Affichez la barre d'outils Révision
Choisissez Final avec balises
Original : vous revoyez le texte supprimé
Pour accepter toutes les modifications, déroulez le bouton
Accepter sur 'Accepter toutes les modifications'

Si vous souhaitez accepter d'un bloc toutes les suppressions,
là encore il faudra le faire avec une petite macro.

Public Sub AccepteToutesSuppressions()
For Each R In ActiveDocument.Revisions
If R.Type = wdRevisionDelete Then R.Accept
Next R
End Sub

C'est mieux ?

Anacoluthe
« On ne renonce pas à ses rêves, on les modifie »
- Jean-Claude CLARI

Avatar
Candide
Merci pour ton aide

l'exécution dans l'editeur fonctionne bien
par contre la macro utilise le proc a fond mais n'aboutie pas
peut-être n'ai je pas attendu suffisement (mais cela me parait bien long)
Ce n'est pas bien grave, j'ai trouvé d'autre informations sur ce sujet à
cette adresse
http://msdn2.microsoft.com/en-US/library/microsoft.office.interop.word.wddeletedtextmark.aspx


des explications dans