Bladwijzer leeg maken

[Sjoef]

Hallo. ik heb een aantal stukken tekst gemarkeerd met een bookmark. Met de volgende code haal ik de bookmark weg.

Public Sub DeleteBmk(bmk)
If ActiveDocument.Bookmarks.Exists(bmk) = True Then
Selection.GoTo What:=wdGoToBookmark, Name:=bmk
ActiveDocument.Bookmarks(bmk).Range.Delete
End If
End Sub

Alleen wordt nu de gehele fysieke bookmark weggehaald. Wat ik wil is dat de bookmark wel blijft bestaan en alleen de tekst weggehaald wordt. Heeft iemand een idee hoe ik dat kan doen?

JoZ

 

[snb]

Public Sub M_snb()
       Range(ActiveDocument.Bookmarks("bmk").Start, ActiveDocument.Bookmarks("bmk").End - 1) = ""
End Sub

 

[Sjoef]

Mijn dank is groot.....