title: Revision processing in Word VBA processes more revisions than exist
body: <p>I have a script which processes revisions in a Word document. However, when I run it, it seems to process many, MANY more revisions than exist in the document. I've created some example code, below:</p>
  <pre><code>Sub TestRevs()
  Dim CountRevs As Long
  Dim Index As Long
  Dim file1 As Long
  
  file1 = FreeFile
  
  Open &quot;C:\path\Testoutput.txt&quot; For Output As #file1
  CountRevs = ActiveDocument.Revisions.Count
  Index = 1
  
  For Each RevisionStuff In ActiveDocument.Revisions
      Print #file1, &quot;Processing &quot; &amp; Index &amp; &quot; of &quot; &amp; CountRevs &amp; &quot; revisions.&quot;
      Index = Index + 1    
  Next RevisionStuff
  
  End Sub
  </code></pre>
  <p>After I let it run for a minute or two, I end up with the following in my output file:
  <a href="https://i.stack.imgur.com/WH3rg.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/WH3rg.png" alt="Log file extract" /></a></p>
  <p>Anyone give me any clues as to what's going on? TIA</p>
  <p><strong>Update:</strong>
  I took this code out and applied it to another, much smaller file, and it processed without any problems, identifying the correct number of revisions. So it would appear to be a 'feature' of the original Word file, but the question still stands: what would cause this?</p>