List Randomizer Macro for Word 2010

[incurablegeek]

Way back with Word '97 one of my students wrote a convenient macro for randomizing lists of words. Briefly, the list was highlighted and the Macro button (or keystrokes) pushed - and the list was nicely randomized.



I do not have this Macro anymore and need a similar one for Office 2010 32 bit (MS Word only).

Note: I am well aware of online randomizers as well as using Excel to randomize a list. However, I wish to eliminate time/energy wasted steps and randomize word lists within Word 2010 itself.

Any suggestions?

[macropod]

Cross-posted at: http://www.vbaexpress.com/forum/show...-for-Word-2010
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

[incurablegeek]

I wasn't even remotely aware that this was "cross-posting", as I thought these were two separate threads/forums.

My apologies.

[macropod]

Also cross-posted at: http://social.technet.microsoft.com/...010?forum=word
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

The whole point of the etiquette reminder is that these are different forums!

[incurablegeek]

The whole point of the etiquette reminder is that these are different forums!

OK, twice now you have scorned me like a disreputable child. Is there an answer to my question in there somewhere?

Suggestion: Less concern about "etiquette"; More interest in helping.

[macropod]

Originally Posted by incurablegeek

OK, twice now you have scorned me like a disreputable child.

Scorned? Hardly. Hopefully, though, you've got the message that whilst we have no objections to cross-posting, the courtesy of letting those on the affected forums/boards know that's what you've done is expected. The tenor of the rest of your response suggests otherwise.

Is there an answer to my question in there somewhere?

Perhaps you should read the threads in your other cross-posts. I had indeed provided an answer on one of them.

Suggestion: Less concern about "etiquette"; More interest in helping.

Suggestion: Watch your attitude or you'll soon find: (a) the reputation you get will mean no-one will be interested in helping you; and (b) yourself banned from forums like this one.

[incurablegeek]

Remove me from this forum and all its sister affiliates. Macropod is the only one who responds to my query - but hardly in a helpful way.

Please understand I do not tolerate disrespect all that well. Never have and never will.

[fumei]

Your attitude is unfortunate, and (I obviously do not know for sure) perhaps indicates you did not read the link that explains WHY cross-posting is frowned upon. You mention respect, and that is indeed the point. No one has mentioned at all that you should not post in other forums. Just tell us about it. THAT is showing us respect. The point being is that if you do not show respect, you will likely not get it.

All this is explained in the link.

Suggestion: Less concern about "etiquette"; More interest in helping.

They are entwined together.

BTW: how much did you google this; because if you do there are many items that have this subject...with answers.

[incurablegeek]

Paul,

Please understand I wish you no ill-will at all.

It's just that I found all your posts to be redundant and scornful without any attempt to assist me. I did apologize for not being aware of all the sister links, and I would think that apology would suffice.

I don't know what more you could require, short of complete supplication before you. That, sir, shall never happen.

At the same time, I am neither a keyboard warrior nor someone with so much time on my hands I can waste it on senseless dialogue.

You have my apology and my admission of ignorance as to the fact that separate URL's are indeed identical forums. Can we not move on?

Regards,

Dennis

Footnote: When I was looking for help on constructing a Macro similar to what one of students did way back when, I did a simple Google search to locate the appropriate forums. Now it seems that several of these forums are linked.

Suggestion: Please post some sort of Notification/Warning that these sites with separate URL's and names are in fact the same identical forum.

I did not know that. I'm sure other newcomers don't know it either.

A bit of clarity might be helpful, lest one transgress and be completely unaware of even doing so.

As Robert Frost said, "Good fences make good neighbors".

[fumei]

Suggestion: Please post some sort of Notification/Warning that these sites with separate URL's and names are in fact the same identical forum.

Ummm, but they are NOT the same identical forum(s). That is the point! Again, this is explained in the link about cross-posting. Please read it. If someone is
posting the same thing in these DIFFERENT forums and they do not tell us, it is very possible someone can be making effort and using time to answer something that is already answered in another DIFFERENT forum.

my admission of ignorance as to the fact that separate URL's are indeed identical forums

No need to admit that because...they are not. I have no idea how you got the idea they are same forums.

[fumei]

Look, I can a give a real example. Once upon a time I spent 90 minutes working out a solution for someone and posted it to a forum. Then I hopped over to another forum. There I found the same person had posted the same question and got an answer from someone else. My 90 minutes was wasted effort and time. BTW it was macropod that gave the other answer.

It is perfectly fine to post the same question to different forums - and they ARE different forums - just mention that you have posted in the other forum(s). That is it. Nothing too difficult. Just tell us. Again, this is explained in the link macropod posted. Please read it.

From a simple google search...
http://www.wordbanter.com/showthread.php?t=76728
http://www.lifehacker.com.au/2012/07...icrosoft-word/
http://ask.metafilter.com/86477/How-...Microsoft-Word
http://instructional-design-speciali...isting-ms.html

I am not sure if these will give you the answer you want, but they may give you a start.

[incurablegeek]

Fumei,

Much appreciate. And I do fully empathize with your hesitation to assist. Quite frankly, I feel that too many knowledgeable people give too much on forums and are appreciated way too little. I have felt that way myself on occasion, having assisted people without even receiving a simple "thank you" in return.

A lot of really lazy people just "hit and run", taking advantage of people who have put in the work to actually learn something. My apologies if I came across as one of them.

I will check out the links you posted, and once again thank you for your kind contribution.

[fumei]

You are welcome.

[fumei]

I will offer a suggestion for a demonstration of what macropod and I are talking about.

This thing right here. This thread, and
http://www.vbaexpress.com/forum/show...-for-Word-2010

same subject; same question, same topic and discussion.

Yet it is fragmented between the two forums. Time delays in the conversation, almost two separate conversations...but they are NOT two separate conversations. Just two locations in (ahem) different forums. Does it not help to know about the other part of the conversation??????

[gmaxey]

Dennis,

Paul and Gerry I think are Microsoft MVPs in good standing. That means (or used to at least) that they have a world wide reputation for being helpful. I on the other hand quit the MVP program before being dismissed for my more acerbic style.

Despite your earlier assertions, you were not dissed here or elsewhere. Your subsequent apologies are both warranted and I think well received.

As best I can tell, Paul's solution is based on a " " (space) separated list. Here is a slight variation based on a paragraph separated list:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngIndex As Long
Dim arrWords() As String
Dim arrRandom
  arrWords = Split(Left(Selection.Range.Text, Len(Selection.Range.Text) - 1), vbCr)
  arrRandom = RandomizeArray(arrWords)
  Selection.Delete
  For lngIndex = 0 To UBound(arrRandom)
    Selection.Range.Text = Selection.Range.Text & arrRandom(lngIndex) & vbCr
  Next lngIndex
End Sub
  
 Function RandomizeArray(arrInput() As String) As Variant
Dim lngIndex As Long
Dim varTemp As Variant
Dim lngRandom As Long
Dim varRandomized As Variant
   
  Randomize
  ReDim varRandomized(LBound(arrInput) To UBound(arrInput))
  For lngIndex = LBound(arrInput) To UBound(arrInput)
    varRandomized(lngIndex) = arrInput(lngIndex)
  Next lngIndex
  For lngIndex = LBound(arrInput) To UBound(arrInput)
    lngRandom = CLng(((UBound(varRandomized) - lngIndex) * Rnd) + lngIndex)
    varTemp = varRandomized(lngIndex)
    varRandomized(lngIndex) = varRandomized(lngRandom)
    varRandomized(lngRandom) = varTemp
  Next lngIndex
  RandomizeArray = varRandomized
End Function