VBA - Regex - remove double line spacing

[ofw62]

Sometimes, whilst drafting a reply, I see the previous mails with extra empty lines added.

Within a 'simple' text editor this would easily be solved by using a regex.
Find: (\s+?\r\n){2}
Repl: \r\n
(Note: in most cases there are leading spaces before the CRLF, reason why the \s+? is added.

Vainly searched on Internet for a macro example.
Also removing possible indenting (ctrl-b)

Outlook (Office 365).

Any suggestions?
Thanks!

 

[Hornblower409]

I do something similar in my Outlook VBA by calling Word methods. Using the Word VBA Find object can get pretty complicated, but the general idea is to run a series of Find/Replace calls. You can use the built-in Outlook Find And Replace command to get the right Find/Replace syntax and then convert that to code. If you have standalone Word, you can record a macro doing it manually and then just play it back when needed or hack it into something you can call.

Remove {White Space} in front of a line end.
^w^p -> ^p
^w^l -> ^l
Remove any double blank lines.
^p^l^l -> ^p^l
^l^l^p -> ^l^p
^l^l^l -> ^l^l

You have to run the last ones in a loop until it doesn't find any new instances.

Indentation is not something you can do with a Find/Replace (that I know of). You'll have to locate the paragraphs you want to change with VBA code and then modify the Paragraph.LeftIndent property for each one.