Mega Code Archive

 

Categories / VisualBasic Script / Word

 

Replace all pairs of paragraph marks in the active document, you could search for ^p^p and replace it with ^p

Sub replace()     ActiveDocument.Content.Find.Execute FindText:="^p^p", ReplaceWith:="^p", _         replace:=wdReplaceAll End Sub