Bladwijzers verwijderen

[terbeest]

Hallo Helpmij-ers,

In een document komen een aantal bladwijzers (bookmarks) voor. Deze zijn genaamd
beginsectie_[naam sectie] nu heb ik een macro nodig die deze bookmarks (dus alle bookmarks die beginnnen met beginsectie_ ) kan verwijderen zonder dat de overige bookmarks worden aangetast.

Er zijn nog anderen bookmarks waar ik eenzelfde code voor nodig heb (bookmarks met andere namen en ook andere daar aan gekoppelde acties), maar dat kan ik nadat de code voor de beginsecties goed is waarschijnlijk zelf wel voor elkaar krijgen.

Kunnen jullie mij opweg helpen met dit probleem?

Alvast heel erg bedankt!

 

[terbeest]

Heb de onderstaande code weten uit te vogelen, alleen krijg ik nu de melding:
Het gevraagde lid van de selectie bestaat niet! bij iedere bookmark die het script verwijdert.

Wat kan dat zijn?


Sub bladwijzer_verwijderen()
Dim J As Integer
For J = 1 To ActiveDocument.Bookmarks.Count
bookmarkpartname = Left(ActiveDocument.Bookmarks(J).Name, 12)
bookmarkfullname = ActiveDocument.Bookmarks(J).Name
If bookmarkpartname = "beginsectie_" Then GoTo delete Else GoTo no_delete

delete:
Selection.GoTo What:=wdGoToBookmark, Name:=bookmarkfullname
Selection.delete

no_delete:
Next J

End Sub

 

[Axel Hagg]

Bookmarks verwijderen

For Each f In ActiveDocument.Bookmarks
If Left(f.Name, Len(NaamVanBookmark)) = NaamVanBookmark Then f.Delete
Next