Thank you for your suggestion, Andrew!
I managed to find the way to loop through the document revisions and reject them, but right now I am unable to change their font style... I would be mainly interested in changing the font color, and its shading color (Font.Shading.BackgroundPatternColor).
The code below is what I have so far, but not fully working (font colors do not get changed)...
Code:
For Each oRevision In ActiveDocument.Revisions
If (oRevision.Type = 2) Then
oRevision.Reject
oRevision.Range.Font.Color = wdColorRed
oRevision.Range.Font.Shading.BackgroundPatternColor = RGB(222, 222, 222)
End If
Next oRevision
My aim is to reject all tracked deletions (the strike-throughs will automatically get deleted with that) and then change the font characteristics.
I am actually using this with a JavaScript that highlights keywords on the web. The problem is that when I load FireFox Reader View (F9), the JavaScript CSS highlights are no longer displayed. That's because Reader View ignores all CSS stylings, no matter what. Anyhow, after a lot of searching and digging, I managed to find an HTML tag that I can use to mark these keywords. So, using the '<del>' tag, these keywords show up with a strike-through in Reader View mode. That's ok, because I only need to copy and paste this data into MS Word documents, where later I will reverse the process and re-highlight the original keywords. Sure, it's not the most elegant solution, but I have not found any other way to copy data from Reader View into Word and preserve the keyword highlighting. I choose Reader View instead of the regular FireFox view because the content is much better formatted for reading. All I need to do is switch to Reader View, select the entire page with Ctrl + A, and copy/paste the content into MS Word (where other formatting macros are run).
Alex