VBA for selecting given text and moving the whole line
Hi All
I have some text in which I'd like to select certain given text , and then place a return above and below so that the whole line it is in is isolated.
For example , the code would find and make bold every line in which the word 'Wrote:' is found in the text below , then put returns above and below :
Original
------------------------------------------------------------
On Tue, May 21, 2019 at 2:54 PM <wrote:
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
On 20/05/2019 15:41,wrote:
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
On 15/05/2019 16:03,wrote:
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
------------------------------------------------------------
After the running the code it would read :
----------------------------------------------------------
On Tue, May 21, 2019 at 2:54 PM <wrote:
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
On 20/05/2019 15:41,wrote:
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
On 15/05/2019 16:03,wrote:
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
Random Text Random Text Random Text Random
--------------------------------------------------
Clearly the amount of occurrences of the chosen text could vary , and this gives an added complication.
Very grateful for any advice on this one. I've attached a sample file.
Thanks.
|