If you've used Microsoft Word's Index feature, you know that Word alphabetizes index entries word by word, like this:<\/p>\n
New Deal<\/p>\n
New World<\/p>\n
Newborn<\/p>\n
News release<\/p>\n
Most indexers and publishers, however, prefer to sort index entries letter by letter, like this:<\/p>\n
Newborn<\/p>\n
New Deal<\/p>\n
News release<\/p>\n
New World<\/p>\n
Is there a way to get Word to sort entries in this way? Yes--with some manual intervention. (If you've never used Word's indexing feature, you might want to read about it in Word Help before continuing.)<\/p>\n
A typical Word index entry looks like this--<\/p>\n
{XE \"New Deal\"}<\/p>\n
--and it will sort in word-by-word order.<\/p>\n
However, if you add a semicolon to the entry, followed by a letter-by-letter spelling (in other words, a spelling that omits the space between words), you can make the entry sort letter by letter. (In case you're wondering, this feature isn't documented in Word Help; you have to dig for it on Microsoft's Web site.)<\/p>\n
The edited entry should look like this:<\/p>\n
{XE \"New Deal;NewDeal\"}<\/p>\n
So for our other examples above, the edited entries would look like this:<\/p>\n
{XE \"New World;NewWorld\"}<\/p>\n
{XE \"Newborn\"}<\/p>\n
{XE \"News release;Newsrelease\"}<\/p>\n
(\"Newborn\" doesn't need editing, since it's already just one word.)<\/p>\n
If we then have Word generate an index using those entries, they'll be sorted letter by letter, like this:<\/p>\n
Newborn<\/p>\n
New Deal<\/p>\n
News release<\/p>\n
New World<\/p>\n
Neat!<\/p>\n
But now I'm wondering: Is there an automated way to edit those index entries?<\/p>\n
[Offstage, right: Loud clanks and clunks as your correspondent rifles through his toolbox.]<\/p>\n
Hmmm. Here's something that *might* do the job. I'll try it and get back to you in about a week.<\/p>\n<\/p>\n
_________________________________________<\/p>\n
READERS WRITE<\/p>\n
After reading last week's article \"Glorious Color,\" Word expert Steve Hudson wrote:<\/p>\n
I *knew* I had an unsettled feeling about your post. It's gelled.<\/p>\n
#1: H9 sure - but yellow on white?<\/p>\n
#2: After reading Steve's note, I could see where it might be easy to miss what I had in mind, so here's a clarification:<\/p>\n #1: H9 sure - but yellow on white?<\/p>\n DARK yellow, which looks pretty good on screen. Regular yellow, as Steve points out, doesn't work well.<\/p>\n #2: The point is that you use the colors only while editing on-screen. When you're ready to print, you attach the *real* template for the final look--and then print.<\/p>\n Thanks to Steve for helping me clarify things.<\/p>\n After reading our article about making punctuation big and bold, Phil Rabichow wrote:<\/p>\n I enjoyed your technique for making punctuation stand out for those of us, er uh, those whose eyes may not be the sharpest (or to avoid eyestrain). I took your idea and expanded on it. I created a macro that would:<\/p>\n 1. Create a character style called Standout that was Times New Roman, 18 points, bold, and red.<\/p>\n 2. Handle the error in case the style already existed.<\/p>\n 3. Replace all punctuation marks in one fell swoop with the new style.<\/p>\n Because of the error handling in 2. above, you can run the macro, add text with additional punctuation, and run the macro again. Also, instead of doing successive Find\/Replace operations, it uses wildcards and Finds: [.,:;\"'\"\"?!] i.e., all types of punctuation. The backslash in front of the question and exclamation marks finds those characters. The macro also finds all quotes (\") and apostrophes. Although it doesn't show in an email, what appears to be 7 apostrophes are really 1 set of quotes, 1 apostrophe, 1 opening smart quote (Alt+0147) and 1 closing smart quote (Alt+0148). [On a Macintosh, the character numbers would be 210 and 211.] Replace contains: ^& (the operator for Find What Text) and is formatted for the Standout character style.<\/p>\n The macro is:<\/p>\n <\/span><\/p>\n Note that this macro will apply to a selection in case you only want to change some of the punctuation. If you remove the apostrophe before the line<\/p>\n Selection.HomeKey Unit:=wdStory<\/p>\n the macro will work on the entire document.<\/p>\n Thank you again for your time and a wonderful publication.<\/p>\n Thanks to Steve for the terrific macro! If you don't know how to use macros like this one, you can find out here.<\/a><\/p>\n And you can learn more about improving the visibility of punctuation (including how to get the big, bold punctuation back to normal) here:<\/p>\n http:\/\/www.topica.com\/lists\/editorium\/read\/message.html?mid=1710712423<\/p>\n<\/p>\n _________________________________________<\/p>\n RESOURCES<\/p>\n The American Society of Indexers is \"the only professional organization in the United States devoted solely to the advancement of indexing, abstracting, and database building.\" Their site has lots of links to indexing and publishing resources and, of course, tons of information about indexing:<\/p>\n\nSub BigPunctuation()\n' BigPunctuation Macro\n' Macro recorded 8\/11\/02 by Phil Rabichow\n' Creates Standout style & replaces punctuation\n' of selection with large red bold font\n'\nOn Error Resume Next\nActiveDocument.Styles.Add Name:=\"Standout\", _\nType:=wdStyleTypeCharacter\nActiveDocument.Styles(\"Standout\").BaseStyle = _\n\"Default Paragraph Font\"\nWith ActiveDocument.Styles(\"Standout\").Font\n.Name = \"Times New Roman\"\n.Size = 18\n.Bold = True\n.Color = wdColorRed\nEnd With\nWith ActiveDocument.Styles(\"Standout\").Font\nWith .Shading\n.Texture = wdTextureNone\n.ForegroundPatternColor = wdColorAutomatic\n.BackgroundPatternColor = wdColorAutomatic\nEnd With\n.Borders(1).LineStyle = wdLineStyleNone\n.Borders.Shadow = False\nEnd With\n' Selection.HomeKey Unit:=wdStory\nSelection.Find.ClearFormatting\nSelection.Find.Replacement.ClearFormatting\nWith Selection.Find\n.Text = \"\"\n.Replacement.Text = \"\"\n.Forward = True\n.Wrap = wdFindContinue\n.Format = False\n.MatchCase = False\n.MatchWholeWord = False\n.MatchWildcards = False\n.MatchSoundsLike = False\n.MatchAllWordForms = False\nEnd With\nSelection.Find.ClearFormatting\nSelection.Find.Replacement.ClearFormatting\nSelection.Find.Replacement.Style = _\nActiveDocument.Styles(\"Standout\")\nWith Selection.Find\n.Text = _\n\"[.,:;\"\"\" & ChrW(8220) & ChrW(8221) & \"'?!]\"\n.Replacement.Text = \"^&\"\n.Forward = True\n.Wrap = wdFindStop\n.Format = True\n.MatchCase = False\n.MatchWholeWord = False\n.MatchAllWordForms = False\n.MatchSoundsLike = False\n.MatchWildcards = True\nEnd With\nSelection.Find.Execute Replace:=wdReplaceAll\nEnd Sub\n<\/pre>\n