Hi Ulodesk,
Without seeing your code it's hard to be sure what the problem is. However, I suspect it has to do with your '.Wrap = ' line (if you have one), which should be set to 'wdFindStop'. Try:
Code:
Sub Demo()
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
'Find multiple consecutive paragraph breaks
.Text = "[^13]{2,}"
'Replace with a single paragraph break
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
End With
End Sub