Inserting items into a collection (VBA/Word; Excel/2003)

Topic

New Reply

I have a collection of items and wish to move one of them. I cannot seem to get the command structured correctly. Let us say that I want to move Item(8) from its current position such that it will be located between the current items 4 and 5.

A code example to achieve this would be greatly appreciated.

T.I.A.

Reply | Quote

Replies

Say you have a collection named col. Try the following code:

Dim varItem As Variant
varItem = col.Item(8)
col.Remove Index:=8
col.Add Item:=varItem, Before:=5

Instead of the last line, you can also use

col.Add Item:=varItem, After:=4

Reply | Quote

Thank you Hans

Do you see any pitfalls in abbreviating the code as shown below?

     colFolders.Add Item:=colFolders.Item(8), Before:=5
     colFolders.Remove Index:=9 ' 8 + 1 inserted item

Reply | Quote

Not in itself, but adding the new item before removing the old one would be a problem if you also want to set the Key of the inserted item to that of the original item, since the Key must be unique – you can’t have two items with the same Key.

Reply | Quote

Thanks for the insight.

Reply | Quote