Find and replace all the text flagged with the 'wdDeletedTextMarkStrikeThrough' property

alex100 · #3 08-30-2020, 11:40 PM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA to find text, replace with multiple lines of text	noslenwerd	Word VBA	3	12-31-2019 11:04 AM
Find and replace text with wildcards	arunchandar9	Word VBA	15	06-30-2019 01:06 AM
Macro to find text and replace with form field containing that text	iiiiifffff	Word VBA	16	06-04-2016 01:47 AM
Macro to find coloured text and replace with form-field/formtext containing that text	tarktran	Word VBA	1	11-26-2014 08:12 AM
Find and replace a string of text	errtu	Word	1	01-31-2013 02:09 PM