How to scramble tables in word

[gmaxey]

mana,

All very interesting and it seems to work, as the VBA Locals and Watch windows don't some most of the dictionary values it and without any commenting it is a little difficult to deduce what is actually going on. It seems oDicQue is redundant but it doesn't work without and I don't know why.

[mana]

I'm sorry, it's too difficult to explain with my English proficiency.

as the VBA Locals and Watch windows don't some most of the dictionary values it and without any commenting it is a little difficult to deduce what is actually going on.

Please add 3 lines, and try again

    For Each k In oDicSec.keys
        Set oDicQue(k) = oDicSec(k).Clone
    Next
    
    Dim a, b        '<-- add
    a = oDicSec.items    '<-- add
    b = oDicQue.items    '<-- add

----
5 lists that needs to be generated.

1) oAllList: random list of all tables
2) oDicSec: random lists per document section
3) oDicQue: duplicae of oDicSec
4) oDicOrder: priority list for choice of document section
5)oDicExtract; list of choosen questions

table number can be obtained from oDicSec according oDicOrder and oDicExtract.


マナ