[WD-2007] Macro pour masquer toutes les révisions [Résolu]

[XceSs]

Bonjour, j'aimerais savoir s'il est possible et comment faire en sorte qu'à l'ouverture d'un classeur les révisions ne s'affichent pas. Le document serait en Mode "Final" dans l'onglet révision.

Merci de votre aide

[XceSs]

J'ai trouvé la solution :

Code :

1
2
3
Private Sub Document_Open()
 WordBasic.ViewChanges
End Sub

@+

[Heureux-oli]

Salut,

Il vaut mieux ne plus utiliser les commandes WordBasic.

Code :

Activedocument.Revisions.AcceptAll

Devrait le faire.

[XceSs]

Ok je vais tester ça aussi

Merci de votre aide

[XceSs]

Re, la commande

Code :

Activedocument.Revisions.AcceptAll

ne fonctionne pas :s

[Heureux-oli]

Salut,

J'avais essayé et les révisions étaient acceptées.

En relisant ta demande, c'est pas ce que tu cherches.

Essaie ceci :

Code :

1
2
3
4
5
 
    With ActiveWindow.View
        .ShowRevisionsAndComments = False
        .RevisionsView = wdRevisionsViewFinal
    End With

[XceSs]

ça marche merci de votre aide