J'ai trouvé ce bout de code :
Const wdRevisionsViewFinal = 0
Set objWord = CreateObject("Word.Application" )
Set objDoc = objWord.Documents.Open("c:\scripts\test.doc" )
Set objView = objWord.ActiveDocument.ActiveWindow.View
objView.RevisionsView = wdRevisionsViewFinal
objView.ShowRevisionsAndComments = False
objWord.Visible = True
Donc là , il marcherait apparemment pour ouvrir le fichier qui se trouve dans c:\scripts\test.doc, et je souhaiterai le faire marcher pour tous les documents.
Si qq'un a une idée ou conseil, merci d'avance
Message édité par flashy_fiber le 03-09-2008 à 17:18:25