Deleting only all bookmarks contents not the bookmarks

[adilprodigy]

Good morning everybody,

I want to delete the bookmarks texts in the document before close.

Can you helps me?

Thank you

[macropod]

Try:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  For i = 1 To .Bookmarks.Count
    .Bookmarks(i).Range.Text = vbNullString
  Next
End With
Application.ScreenUpdating = True
End Sub