Delete a line which has a unique Style with a macro

[Octavee Uhl]

Hello,

I am trying to find a way to delete many lines in a document, which all have
a unique paragraph style. How can I do that?

Thanks
Octavee

 

[Doug Robbins - Word MVP]

Use the following:

Selection.HomeKey wdStory
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Heading
1,Section,Main,h1,Heading1")
With Selection.Find
Do While .Execute(FindText:="", MatchWildcards:=False, Wrap:=wdFindStop,
Forward:=True) = True
Selection.Range.Bookmarks("\line").Range.Delete
Loop
End With

Replace Heading 1,Section,Main,h1,Heading1 with the name of the style that
you want to use.
--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP