You don't need VBA to do this. Just use Edit>Replace. Find the style and
replace with nothing.

Signature
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.
> I would like to delete all text occurrences formatted with a specific
> custom paragraph style including the paragraph mark. I am not sure how
[quoted text clipped - 3 lines]
>
> Andreas
andreas - 26 Feb 2007 06:46 GMT
> You don't need VBA to do this. Just use Edit>Replace. Find the style and
> replace with nothing.
[quoted text clipped - 13 lines]
>
> - Zitierten Text anzeigen -
Greg,
thank you for your information. With your help I wrote the following
macro (deleting this style will be a repetitive task).
Sub DelSubTOCStyle()
With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Style = ActiveDocument.Styles("Dipl_SubTOC")
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End Sub