Delete Selected Bookmarks

sks27 · #1 05-31-2016, 11:56 AM

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 · #2 05-31-2016, 04:19 PM

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:

Code:

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 · #3 06-03-2016, 12:19 AM

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

gmayor · #4 06-03-2016, 02:05 AM

Quote:

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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete Bookmarks in Footnotes	brent chadwick	Word VBA	3	12-24-2015 01:40 PM
Delete Text when selected.	Eduardo Care	Word VBA	1	11-03-2015 05:49 PM
Form updating Bookmarks - writes to the bookmarks multiple times	PeterPlys	Word VBA	13	01-14-2015 06:41 AM
Delete starting number *) and delete Unneeded data in series	frustrated teacher	Word VBA	5	12-07-2014 06:53 PM
Macro Delete Selected Text	smonczka	Word VBA	2	11-05-2011 03:18 AM