Deleting cloned paragraphs

[ShaileshShinde]

Hi,

This question was related to the previous question from which i got the macro ...

Sub Demo()
Application.ScreenUpdating = False
Dim oPara As Paragraph
For Each oPara In ActiveDocument.Paragraphs
  With oPara.Range
    .InsertBefore .Text
   .Paragraphs.First.Range.Font.Color = wdColorOrange
  End With
Next
Application.ScreenUpdating = True
End Sub

now the new requirement for this was to remove the inserted paragraph[inserBefore .Text]

Can you please provide the macro or reference for this.

Thanks In advance!
Shail

[macropod]

You really don't need a macro for that - simply use Find/Replace to remove all the bold text.