Oh okay, got it now.
I tried it again, and got past that first error, but it's still getting stuck on (error 5852)
Code:
Case wdMainTextStory, wdTextFrameStory
StrOut = StrOut & "Page: " & .Range.Characters.First.Information(wdActiveEndAdjustedPageNumber) & vbTab & .Author & vbTab & .Date & vbTab
and if I comment that out, it gets stuck on (error 5852)
Code:
'Get Revision Type & Scope
Select Case .Type
Thanks!