[Reviving solved thread for additional help] Exporting Tracked Changes and Comments to Excel

[mjungli]

Hello!



I am attempting to use the code from this post by Macropod using Office 365. I think the VBA language must have changed a bit from when it was written, as I'm getting a couple of errors not previously solved by the thread https://www.msofficeforums.com/word-...nts-excel.html. I was able to use the code from a separate post to export just comments, but would really like to be able to get the tracked changes as well.

The first error is 424 for

 Select Case wdRng.StoryType

I looked around on MS VBA help and updated it to this, which allowed the code to continue running (although I'm unsure it actually fixed it).

 Select Case Rng.StoryType

Then I received a 5852 error with this, which I commented out to try to move on.

Case wdMainTextStory, wdTextFrameStory
                StrOut = StrOut & "Page: " & .Range.Characters.First.Information(wdActiveEndAdjustedPageNumber) & vbTab & .Author & vbTab & .Date & vbTab

The same error 5852 occurred later with this. I tried to update from .Type to RevisionType after some searching, but the workbook results in no output aside from column titles.

Select Case .Type

I would appreciate help with these errors!