Discussion :

[dmariko]

Bonjour,

je cherche a faire une modification a posteriori sur un format de saisie dans Word,
je m'explique :
Dans le document que je veux mettre à jour les changements sont identifiés par un surlignage jaune. Or la procédure qui s'applique veut que les changements dans un document soient identifiés par des track changes (trait vertical dans la marge gauche) et non des surlignages.
J'ai essayé de faire une modification sur les formats (Ctrl F - rechercher formats - surlignage... remplacer - Non surlignage), et effectivement le surlignage disparaît mais par contre le Track change ne s'applique pas, malgré le fait que j'ai bien demandé le suivi de la mise en forme dans Suivi des modification... Du coup je perds l'info sur les changements.
J'en déduis que j'ai raté un élément de paramètrage, mais lequel ?

quelqu'un aurait-il la clé ( si c'est possible par un simple rechercher -remplacer)? ou sinon une idée de macro ? Je ne sais pas quels sont les objets VBA qui régissent les track changes et les balises de surlignage, il faut que je parte de zéro (j'ai 400 pages...), aussi toute suggestion sera la bienvenue,

Merci par avance aux éventuels bienveillants contributeurs,

dmariko

[Heureux-oli]

Salut,

Voilà un petit morceau de code qui traite les révisions.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub TestTrackChange()
Dim oRev As Revision
 
For Each oRev In ActiveDocument.Revisions
 
Debug.Print oRev.Range.Text & oRev.Type
Next oRev
 
End Sub

Mais, pour les révisions de ton document, es-tu certaine qu'elles sont activées et actives pour ton document ?

Essaie de les compter pour savoir si elles sont présentes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub RevCount()
Debug.Print ActiveDocument.Revisions.Count
End Sub

[dmariko]

Merci ! je teste ca demain sur le fichier d'origine et je te dis.