I've got the following code I'm running from Access that shows everything I select in the document as "wdRevisionInsert" for the type. If I accept all changes then I can get no revision status. Any idea why I can get "wdNoRevision" on anything I select?
Code:
dim AppWrd as new word.application
dim rng as word.range
set sdDoc = ActiveDocument
Set rng = WdDoc.range
with rng.find
.text = "the" 'Anything that doesn't have revision history as show with "All Markup" selected
.execute
end with
if rng.revisions(1).type = wdNoRevision
stop
end if