[Solved] VBA : Word VBA

Hi manojsbabu,

Can you make use of Replace?
Press CTRL+H and use the following,

Replace: ^p^p
With: ^p

Cheers
Andy

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 01/03/2004 by Andy Pope
'
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub