Which items in a listbox are not selected?

[clhare]

I have a multiselect listbox on a userform. Each item in the listbox refers to specific text in the document. How would I determine which items in the listbox are not selected so I can delete their associated text?

Any help is greatly appreciated!

Cheryl

[OTWarrior]

what do you mean by a multiselect listbox? i thought you only select one option with a listbox?

[clhare]

With this listbox I have the MultiSelect property set to "1 - fmMultiSelectMulti" so more than one item can be selected.

[OTWarrior]

is there some kind of result property for the listbox so you can read the values? or would it use an index for each item in the list?

[TonyJollans]

This should give you a start ...
For i = 0 To Me.ListBox1.ListCount - 1
If Not Me.ListBox1.Selected(i) Then MsgBox Me.ListBox1.List(i)
Next

[clhare]

The message box just gives me each item in the listbox one at a time, whether I selected it or not.

Also, how would I run the steps that apply to each option in the list box if I'm using "i"?

[TonyJollans]

I'm not sure what else to suggest - it ought to work and it does for me. Can you post a failing document?

And I'm not sure what you mean about steps to take. If you know the non-selected item you do whatever you want - "i" is just an index into the list so you can get the properties of an individual item.

[clhare]

I created a test doc and the macro you gave above does work now (I must have done something wrong before) and the message box only shows the options not selected. But, I can't figure out to use that code to delete text associated with the specific options that are not selected.

[TonyJollans]

This will do what you want in this case:

For i = 0 To Me.lstParagraphs.ListCount - 1
If Not Me.lstParagraphs.Selected(i) Then
BookmarkName = Replace(Me.lstParagraphs.List(i), " ", "")
ActiveDocument.Bookmarks(BookmarkName).Range.Delete
End If
Next


More generally you need to define how the bookmark name is derived from the list item and code as appropriate

[clhare]

Thank you!!