Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. 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