With Selection
.HomeKey unit:=wdStory
With .Find
.ClearFormatting
.text = "^p"
.Font.Bold = True
With .Replacement
.text = ""
.Font.Bold = False
End With
.Execute Replace:=wdReplaceAll
End With
End With
With Selection
.HomeKey unit:=wdStory
With .Find
.ClearFormatting
.text = "^p"
.Font.Bold = True
With .Replacement
.text = ""
.Font.Bold = False
End With
.Execute Replace:=wdReplaceAll
End With
End With