Microsoft Office Forums - View Single Post - [Solved] [Reviving solved thread for additional help] Exporting Tracked Changes and Comments to Excel

mjungli · 01-10-2023, 11:02 AM

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

Code:

 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).

Code:

 Select Case Rng.StoryType

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

Code:

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.

Code:

Select Case .Type

I would appreciate help with these errors!