Track Changes in Word

[Excelprincess]

Dilemma: I have a department that creates & shares word documents within the company. They have created docs on Word 2000 using track changes. Now we have XP and when another user opens the document, track changes is activated with the animations. Is there a way to disable the track changes feature on all the documents without going into each document saved?

 

[SkipVought]

hey princess,

the answer is, "Yes!" but...

Changeing the property is not hard...

With ActiveDocument
    .TrackRevisions = False
    .ShowRevisions = False
End With

The problem is finding and opening all the documents. If they are all in a folder, then you can write a loop to process all the documents in a folder...

    Set fs = Application.FileSearch
    With fs
        FileName = Application.GetOpenFilename("Jpeg Files (*.doc), *.doc")
        For i = Len(FileName) To 1 Step -1
            If Mid(FileName, i, 1) = "\" Then
                Exit For
            End If
        Next
        .LookIn = Left(FileName, i - 1)
        .FileName = "*.doc"
        If .Execute(SortBy:=msoSortByFileName, _
        SortOrder:=msoSortOrderAscending) > 0 Then
            MsgBox "There were " & .FoundFiles.Count & _
                " file(s) found."
            lRow = 1
            i = 1
            For i = 1 To .FoundFiles.Count
                Documents.Open (.FoundFiles(i))
            Next i
        Else
            MsgBox "There were no files found."
        End If
    End With

Hope this helps Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[SkipVought]

Sorry, princess,

You'll need to put this code inside the loop...

Documents.Open (.FoundFiles(i))
With ActiveDocument
    .TrackRevisions = False
    .ShowRevisions = False
   Application.DisplayAlerts = False
    .Save
End With

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com