Delete Selected Bookmarks

[sks27]

I have a document with 38 bookmarks and need help with:

1. Populating a multi-select list box on a user form with all the bookmarks in that document (friendly names like "Statement Reporting", and not "StatementReporting")
2. Allow the users to choose bookmarks which need to be retained and delete all "unchecked" bookmarks (both the name and the range)
3. Save the updated document as a new file (non-macro-enabled file)
4. Revert the master document with the macro to its original state



Thank you so much for the help. Really appreciate your time.

[gmaxey]

What have tried? Few here are going to develop your project for you. If you want friendly names then you are going to have defined names that you can convert to friendly. Something like this to get you started:

Private Sub UserForm_Initialize()
Dim oBM As Bookmark
  For Each oBM In ActiveDocument.Bookmarks
    ListBox1.AddItem Replace(oBM.Name, "_", " ")
  Next
  ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

[sks27]

Thanks, Greg. That's what I thought would be a way go to - define names as friendly as possible.

[gmayor]

Originally Posted by sks27

3. Save the updated document as a new file (non-macro-enabled file)
4. Revert the master document with the macro to its original state.

Save the document as a macro enabled template and create new documents from it. The new document will always be a facsimile of the template, which in turn is not changed, whatever you do to the document.