VBA Find & Replace

Question

I\'m using Excel VBA to generate word documents from a spreadsheet. I want to find and replace all double paragraphs with single paragraphs as part of the last step.

Bas

Answer 1

Change

.Execute FindText:="^^p", ReplaceWith:="^p", Replace:=2

to

.Execute FindText:="^p^p", ReplaceWith:="^p", Replace:=2