Hello I tried the below code but this is not working ie no text was deleted in my doc.
Could someone explain to me why?

Sub DeleteStyledText()
With ActiveDocument.Content.Find
.ClearFormatting
.Style = ActiveDocument.Styles("Heading 3")
Do While .Execute(FindText:="", Forward:=True, Format:=True) = True
.Parent.Delete
Loop
End With
End Sub

Thanks in advance

Mel