text disappearing intermittently when 'Selection.Find' used
I have a document (Dante's Inferno) within which I want to programmatically sequentially select bits of quoted text in order to make a selection from an input box that changes the color of the text. E.G., if it is Dante speaking, I turn the text green, if Virgil, I turn the text purple, etc. The attached code does the job just fine but it intermittently seems to "cut" part of the visible text (see screenshot). Without seeing the totality of the text it makes it very difficult, or impossible, to discern who is speaking ... which sort of renders the whole process pointless.
I don't know if this is a program glitch, or if it is related to processing/rendering unique to my computer [HP Desktop with AMD A-6 processor, Windows 10] to the screen. I have tried fiddling with the timing of the program ('sleep' function, etc.) but to no avail.
Would appreciate any thoughts/suggestions/enlightenment.