MS word bat script to determine if a file has track changes on and if there are changes

Posted on 2014-07-31
Last Modified: 2016-02-10
Hi Experts, I have about 50,000 word documents sitting on a file server as part of an application that I support.  There was an issue where some of the files - no telling how many - we're saved with track changes on and unaccecpted changes to the document (I.e., the red text).  I need to write a program that will examine each file and determine if A) track changes is enabled, B) if there are any unaccecpted changes, C) when the file was last modified, D) who modified it.

I'm thinking that this information is stored in the metadata of the file somewhere, or at least in the file properties.  I believe a batch program would be the easiest way to do this with the output going to a .txt or .csv file.  I would actually be more comfortable if there were a VBA program that I could run out of Excel that could do the analysis ( I'm pretty good with VBA)

Any suggestions would be much appreciated - I'm in kind of a crunch here.

- Jamey
Question by:JamesCbury
  • 2

Author Comment

ID: 40234463
for anyone tracking this thread I think I might have figured something out... please comment if there are issues here.   to get to the track changes data I had to open the file, pull the attributes, close the file.  It does what I want it to, but is a bit clunky...
Sub Check_track_changes()

    'Clear the existing data
    Range([C7], Cells([C7].End(xlDown).Row, 11)).ClearContents
    'set the directiory folder
    sFolder = ActiveSheet.Range("FD_Path")
    'set the doc types in scope
    sExt = Array(".doc", ".docx", ".docm")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFSO.GetFolder(sFolder)
    Set oShell = CreateObject("Shell.Application")
    Set oNamespace = oShell.Namespace(sFolder)
    Set wApp = CreateObject("Word.Application")
    iRow = 7
    For Each oFile In oFolder.Files
        For E = 0 To UBound(sExt)
            If LCase(Right(oFile.Name, Len(sExt(E)))) = sExt(E) Then
                'log the open time *Debugging purposes*
                Cells(iRow, 9) = Now()
                'Update the progress
                [D3] = "Now Processing File " & iRow - 6 & " of " & oFolder.Files.Count
                'write the file name(from metadata)
                Cells(iRow, 3) = oFile.Name
                'Open the file to get attributes
                'wApp.Visible = True
                On Error GoTo Bad_File_Err
                Set myDoc = wApp.Documents.Open(Filename:=oFile.Path, ReadOnly:=True)
                On Error GoTo 0
                'Check if track changes is on
                If myDoc.TrackRevisions = True Then
                    Cells(iRow, 4) = "On"
                ElseIf myDoc.TrackRevisions = False Then
                    Cells(iRow, 4) = "Off"
                End If
                'Get the count of changes
                Cells(iRow, 5) = myDoc.Revisions.Count
                'Get the count of comments
                Cells(iRow, 6) = myDoc.Comments.Count
                'Close the file **DO NOT SAVE CHANGES**
                myDoc.Close SaveChanges = False
                'Application.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
                'Get the date modified (from metadata)
                Cells(iRow, 7) = FormatDateTime(oFile.DateLastModified, 2)
                'log the close time *Debugging purposes*
                Cells(iRow, 10) = Now()
                Cells(iRow, 11) = Cells(iRow, 10) - Cells(iRow, 9) 'calculate the cycle time
                iRow = iRow + 1
            End If
        Next E
    Next oFile
    [D3] = ""
Exit Sub

    Cells(iRow, 4) = "Cannot open this file - check for corruption"
    Cells(iRow, 9) = "Failed"
    GoTo Resume_Files
End Sub

Open in new window

LVL 24

Accepted Solution

Phillip Burton earned 500 total points
ID: 40499920
Track Changes is not part of the metadata - see for details of Word's metadata. You can certainly get Author and last saved as part of the metadata, and if you are in a time crunch, Filecats Professional might be a good idea.

The only way to ascertain if Track Changes is on is to open each of the files like James is doing. Do bear in mind that, if you do that, it MAY change some of the time metadata such as Last Accessed (emphasis on MAY), even if not saved. So I would suggest cataloguing in Filecats Professional first (which doesn't affect such data), and then doing James' solution, and combining the two.

Author Closing Comment

ID: 40622086
Thanks Phillip - that's good advice.  I will make that update to my program for future use.
LVL 34

Expert Comment

ID: 41459298
It may not be part of the official metadata, but Track Changes IS a saved flag. I'm not certain how this would be read in an older .doc Word file, but it's pretty easy in .docx. All of the newer Office formats that end in "x" are actually ZIP files that contain a variety of resources, so it's very easy to discover in the XML.

Basically, you'd write a script that unzipped the file (some 3rd party libraries might let you just decompress a single file into memory, which would be even faster). In the resulting "word" subfolder, you'll have 2 files that have the info you want - document.xml and settings.xml.

If Track Changes is enabled, then the settings.xml file will contain this text:

If there are revisions, then the document.xml file will contain a tag that starts with <w: and indicates the operation, like "<w:del", and it will have a "w:date" attribute, and a "w:author" attribute, like this:

<w:del w:id="1" w:author="Fooey Barress" w:date="2016-02-10T20:42:00Z">

You can use Xpath syntax to search for such tags using most major XML libraries.

The older pre-2010 formats use a proprietary binary format that would require a separate library to read, assuming the Office SDK doesn't give you the necessary info.

In any event, reading the data like this should give you a good idea without risking any modifications to the file AND it has the added bonus of not requiring an instance of Word running in memory to open/close all that stuff.

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

No matter the version of Windows you are using, you may have some problems with Windows Search running too slow or possibly not running at all. Before jumping into how you can solve this issue, just know there are many other viable alternative deskt…
Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
Learn how to make your own table of contents in Microsoft Word using paragraph styles and the automatic table of contents tool. We'll be using the paragraph styles in Word’s Home toolbar to help you create a table of contents. Type out your initial …
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

910 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now