[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!

[macropod]

I've revised the code in the link to correct the Rng references (should be wdRng).

[mjungli]

Oh okay, got it now.

I tried it again, and got past that first error, but it's still getting stuck on (error 5852)

 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)

 'Get Revision Type & Scope
Select Case .Type

Thanks!

[macropod]

I am unable to reproduce that error on the sample file I tested the code with.

Without actually seeing the problem document, it can be difficult for anyone to diagnose the issue. Can you attach a document to a post with some representative data (delete anything sensitive)? You do this via the paperclip symbol on the 'Go Advanced' tab at the bottom of this screen.

[mjungli]

Hi Macropod,

Apparently, a new day has wiped away the bug and I'm not getting the error anymore. I am not sure what I did different, if anything.

Thanks for correcting the macro! This is extremely useful.