Hi,


I am using Word 2010 for this exercise.


I currently have a piece of VBA that compares two documents (using either the CompareDocuments or Compare methods) and this produces a quick summary of the number of differences, their type (Insert/Delete) and the number of characters involved.



Each of the CompareDocuments or Compare methods produce an interim Results document, just as you get when doing this process manually via the Word toolbar/menu. The Results document I get with VBA clearly shows the text of each difference and whether that difference is within the:
Main Document
Header/Footer
Text Boxes
Header/Footer Text Boxes
Footnotes
Endnotes


Once I create an object of the Results document, I can easily iterate through the differences that are in the Main Document, like this:
For Each dsRevision In oResDoc.Revisions
If dsRevision.Type = wdRevisionInsert Then
sngCharacters = sngCharacters + dsRevision.Range.Characters.Count
End If
Next


My problem is that the VBA Revisions collection only seems to include differences that are in the Main Document and nowhere else.



These differences in other locations are clearly being found, I just cannot inspect them with VBA.


I may be missing something fundamental here. Does anyone know how I can use VBA to iterate across the Revisions that appear in the Footnote/Header and Text Box sections of the Results document ?





Many thanks,


Downunder Dave

I'm not exactly sure what you're trying to accomplish (it looks like you're trying to add a count to a string??), but if you have a combined document with redlines in which you need to locate all insertions in all of what in Word are referred to as "stories," e.g., main body, headers, footers, text boxes, etc., then the following code should do that:

Hi Peterson,
Thank you for your reply. You have handed me the missing link. I did not know about the StoryRanges object. It all makes a bit more sense now.


By the way, in the actual project I am trying to do, I am comparing a template to hundreds of documents that have been created by users from that template. I am trying to determine how much text has been added to that that was already in the template. The code that I displayed was finding the number of characters in each revision (that was the subject of an insert action) with:



dsRevision.Range.Characters.Count


and adding that number to the value currently in: sngCharacters


It works like a charm, it is just that without knowing about the StoryRanges object, I could not account for text boxes that a user may have added and inserted text into.


Cheers,


Downunder Dave