Create Array of Bookmarks

[Bill Foley]

Hey Gang, Word VBA-Wanna-Be here:

I am creating a large document that I can use to create smaller documents by
bookmarking text. Basically, I want to have four-levels of text that I
bookmark by selecting the paragraph(s), clicking a toolbar button that opens
a UserForm, providing a OptionButton group of the four choices, where you
select the choice, then click OK. That will assign a new bookmark name to
the selected text. For example, a_1, a_2. Selecting other text and
choosing another level will generate bookmarks named b_1, b_2, etc.

Once I have the entire document (actually a template) bookmarked, I save it.
I have an AutoNew macro that opens up another UserForm providing the user
with four options of documents to create. If the user chooses "Level 1", I
want all of the "non-applicable" bookmarks deleted. Assuming Level 1
documents have bookmarks named "a_1", a_2", etc., I would want to get rid of
all the "b, c, and d" bookmarks.

My questions are two fold:

1. How do I use VBA to name bookmarks for level "a" to make them "a_1",
"a_2", etc.? I know how to assign a name itself, but not to add 1 to a
starting point.

2. How would I generate the array, search for all bookmarks "not" like the
chosen one, then delete them?

Thanks in advance!

 

[Jean-Guy Marcil]

Bill Foley was telling us:
Bill Foley nous racontait que :

Hey Gang, Word VBA-Wanna-Be here:

I am creating a large document that I can use to create smaller
documents by bookmarking text. Basically, I want to have four-levels
of text that I bookmark by selecting the paragraph(s), clicking a
toolbar button that opens a UserForm, providing a OptionButton group
of the four choices, where you select the choice, then click OK.
That will assign a new bookmark name to the selected text. For
example, a_1, a_2. Selecting other text and choosing another level
will generate bookmarks named b_1, b_2, etc.

Once I have the entire document (actually a template) bookmarked, I
save it. I have an AutoNew macro that opens up another UserForm
providing the user with four options of documents to create. If the
user chooses "Level 1", I want all of the "non-applicable" bookmarks
deleted. Assuming Level 1 documents have bookmarks named "a_1",
a_2", etc., I would want to get rid of all the "b, c, and d"
bookmarks.

My questions are two fold:

1. How do I use VBA to name bookmarks for level "a" to make them
"a_1", "a_2", etc.? I know how to assign a name itself, but not to
add 1 to a starting point.

I do not understand what you mean here.
What starting point? Does "1" mean 1 as in a digit, or "one" as another one?

2. How would I generate the array, search for all bookmarks "not"
like the chosen one, then delete them?

I don't think you need an array. Wouldn't something like this work:

'_______________________________________
Dim MyBook As BookMark

For Each MyBook in ActiveDocument.Bookmarks
If InStr(1, MyBook.Name, "a_") = 0 Then
MyBook.Range.Delete
End If
Next
'_______________________________________

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org

 

[Andrew]

To append a number to a bookmark all you have to do is append an incrementing
variable.

Dim sBmName As String
Dim i As Integer

i = 0

Do
i = i + 1 ' increments i

' Determine bookmark name here and assign it to sBmName...

sBmName = sBmName & "_" & i ' append number
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:=sBmName
End With
Loop

Naturally you'll need to provide a way to exit the loop. But presumably you
already have that bit.

Good Luck

 

[Bill Foley]

Jean,

Sorry if I was confusing. To clarify, I want to increment a bookmark number
as I create new ones. The only reason I was using an array is that is what
I had way back when I first started this using WordBasic. The array part
seemed to be working, but I couldn't figure out the incrementing part.

The original code created the UserForm via code, assigned a number and name
to the bookmark based on which option button was selected. I am trying to
get rid of all Wordbasic stuff and have been trying to convert it into VBA.
I am going to get rid of the coded UserForm and focus on create it myself.
I am also going to use a Select case to determine which option button was
selected. The part I can't figure out is how to increment each new
bookmark.

I have included the original code below:

Public Sub MAIN()
Dim mytype$
Dim numBookmarks
On Error GoTo byebye

WordBasic.BeginDialog 204, 116, "Identify Section"
WordBasic.GroupBox 23, 6, 142, 85, "Mark As"
WordBasic.OptionGroup "OptionGroup1"
WordBasic.OptionButton 35, 18, 100, 16, "PEO Initial",
"OptionButton1"
WordBasic.OptionButton 35, 36, 123, 16, "PEO Requal",
"OptionButton2"
WordBasic.OptionButton 35, 54, 105, 16, "LO Initial",
"OptionButton3"
WordBasic.OptionButton 35, 72, 105, 16, "LO Requal", "OptionButton4"
WordBasic.CancelButton 6, 92, 88, 21
WordBasic.OKButton 112, 92, 88, 21
WordBasic.EndDialog

Dim dlg As Object: Set dlg = WordBasic.CurValues.UserDialog
WordBasic.Dialog.UserDialog dlg

If dlg.OptionGroup1 = 0 Then mytype$ = "poi_": WordBasic.FormatFont Color:=6

If dlg.OptionGroup1 = 1 Then mytype$ = "por_": WordBasic.FormatFont Color:=2

If dlg.OptionGroup1 = 2 Then mytype$ = "loi_": WordBasic.FormatFont Color:=5

If dlg.OptionGroup1 = 3 Then mytype$ = "lor_": WordBasic.FormatFont Color:=3

numBookmarks = WordBasic.CountBookmarks()

WordBasic.EditBookmark Name:=mytype$ + WordBasic.[LTrim$](Str(numBookmarks +
1)), SortBy:=0, Add:=1

Exit Sub

byebye:

Exit Sub

End Sub

=================

Thanks for your help!

--
Bill Foley, Microsoft MVP (PowerPoint)
Microsoft Office Specialist Master Instructor
www.pttinc.com
Check out PPT FAQs at: http://www.rdpslides.com/pptfaq/
"Success, something you measure when you are through succeeding."

 

[Bill Foley]

Thanks Andrew, but I'm not looping through a bunch of existing bookmarks and
adding numbers to them. What I am trying to do is to add a new bookmark
name that is one more then a previously named bookmark.

For example, I select a range of text, click a toolbar button, opening a
userform, selecting an optionbutton, then clicking the OK button. What I am
trying to do with that code is create a bookmark named (for example)
"poi_1". Later on in the document I select more text, repeat the steps
above hoping to get a bookmark named "poi_2". Later on I select text,
choose a different optionbutton, and want it named "loi_1".

I tried doing a bookmark count and incrementing that way but it looked at
all bookmarks and added a number way too high (I actually have four
varieties of bookmarks in this document).

I was hoping I could accomplish this using the below code below, but what
happened the second time I selected text was it deleted the previous
bookmark and named this one with that same name. Not having done this since
Wordbasic, I am trying to find the same syntax with VBA.

The code I am working on is:

==============

Dim i As Integer
i = 1

If OptionButton1.Value = True Then
' what do I need here to check the highest numbered "poi" bookmark?????
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="poi_" & i
End With

==============

The next block of text I select and name needs to know that "poi_1" exists
and call it "poi_2". I'm sure it is something simple, but VBA is not a
strong point of mine.

TIA for any assistance you can provide!

 

[Chuck]

You can count the instances of the root of the bookmark you want to
increment. For instance if you want to add a "poi" bookmark then "poi" is
the root ("poi"+1, "poi"+2) etc. So you can just loop through all the
bookmarks in the document, count the ones that start with "poi", increment
your counter and then add your bookmark with the updated counter.

i = 0
strRoot = "poi"

For Each Bookmark In ActiveDocument.Bookmarks
If Left(Bookmark.Name, 3) = strRoot Then
i = i + 1
End If
Next Bookmark

With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:=strRoot & "_" & i + 1
End With

Of course you'd need to write code to assign the value of strRoot.

 

[Bill Foley]

Thanks, Chuck. I'll give it a go.

 

[Bill Foley]

Works a treat! THANKS!