Recent articles in this newsletter have discussed editing with a concordance, which may be confusing for some readers. Let me explain. In those articles, \"concordance\" really means \"word list.\" It's simply a list of all the words in a document, and it can come in pretty handy in editing.<\/p>\n
Experienced Word users know, however, that a concordance is also a list of words used to create an index. You can learn more in my article here:<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1714146574<\/p>\n
That article explains how to use a one-column concordance, but it's also possible to use a two-column concordance to create an index in a Word document. Why would that be useful? Because it tells Word to index certain words and phrases differently than they appear in the text.<\/p>\n
Let's say your text includes a sentence like this:<\/p>\n
\"George Washington was the first president of the United States of America.\"<\/p>\n
You can create a concordance entry that looks like this:<\/p>\n
George Washington Washington, George<\/p>\n
Then, when Word comes to the words \"George Washington\" in your document, it will create an index entry for \"Washington, George.\" And it will do that for each instance of \"George Washington\" in your document.<\/p>\n
To create a two-column concordance:<\/p>\n
1. Create a new document (CTRL + N).<\/p>\n
2. Click Table > Insert > Table.<\/p>\n
3. Under \"Number of columns,\" enter 2.<\/p>\n
4. Under \"Number of rows,\" enter 1.<\/p>\n
5. Click the OK button to create your table.<\/p>\n
6. In the table, enter your first term and its replacement. For example, in the first column you could enter \"George Washington,\" and in the second column you could enter \"Washington, George.\" (Don't include the quotation marks.)<\/p>\n
7. Press the Tab key to create a new row.<\/p>\n
8. Enter more terms and replacements and rows as needed.<\/p>\n
9. Save your concordance.<\/p>\n
When you're finished, create your index:<\/p>\n
1. Switch to your document.<\/p>\n
2. Click Insert > Index and Tables > Index > AutoMark. (In Word 2002 and later, click Insert > Reference > Index and Tables > Index > Mark Entry.)<\/p>\n
3. Navigate to your concordance file and click it to select it.<\/p>\n
4. Click the Open button and wait while Word marks all of those index entries.<\/p>\n
5. Generate your index as explained here:<\/p>\n
http:\/\/www.topica.com\/lists\/editorium\/read\/message.html?mid=1714065147<\/p>\n
If you're a professional indexer, you probably avoid indexing in this way, although Steve Hudson's Indexer program can help a lot with creating embedded indexes in Word:<\/p>\n
http:\/\/www.geocities.com\/word_heretic\/Indexing.html<\/p>\n
Next week, however, I'll show you the perfect example of when to use a double-column concordance in preparing an index--and an automatic way to create it.<\/p>\n
Thanks to Mark Taylor for suggesting this article.<\/p>\n<\/p>\n
_________________________________________<\/p>\n
READERS WRITE<\/p>\n
Mark Taylor wrote:<\/p>\n
\"Using a concordance table allows you to index using an 'alias.' A table also allows you to index multiple instances of a word, regardless of capitalization. For example, you could find Delaware and DELAWARE in the same document, but both would be a separate entry because the concordance is case sensitive. Using a concordance table gives you a simple workaround to this problem. You could force the index to have both entries found under the heading Delaware, or under DELAWARE.\"<\/p>\n
----------------------------------<\/p>\n
Last week's newsletter included a macro to count revised words in a Word document:<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1717164663 (scroll down to the Readers Write column)<\/p>\n
After looking through the macro (which included the line \"For r = 1 To RevCount\"), Wallace Sagendorph wrote, \"What does that 'r' stand for, anyway?\"<\/p>\n
I responded:<\/p>\n
It doesn't really stand for anything. It's just an incremental counter. Here's how it works:<\/p>\n
RevCount = ActiveDocument.Revisions.Count<\/p>\n
That counts the number of revisions in the active document and stores the count in a variable named RevCount. (Remember X in algebra? That's all a variable is; it's a placeholder for some number.)<\/p>\n
Then we have this:<\/p>\n
For r = 1 To RevCount<\/p>\n
(Something happens here)<\/p>\n
Next r<\/p>\n
That says to Word, \"Starting with the number 1, do (something) however many times RevCount is.\"<\/p>\n
\"Next r\" just increments r by 1.<\/p>\n
So, let's say RevCount = 3, and the (something) was \"Insert 'hello' into my document.\" The macro would insert this:<\/p>\n
hello<\/p>\n
Then it would make r become 2 instead of 1 (Next r).<\/p>\n
Then it would insert this:<\/p>\n
hello<\/p>\n
Then it would make r become 3 instead of 2 (Next r).<\/p>\n
Then it would insert this:<\/p>\n
hello<\/p>\n
When r got to 4, the macro would stop, because 4 is one more than Revcount (3), and you'd have something like this in your document:<\/p>\n
hello<\/p>\n
hello<\/p>\n
hello<\/p>\n
----------------------------------<\/p>\n
Paul Robinson wrote:<\/p>\n
\"I've just got your update. It reminded me that I've been meaning to get in touch to thank you properly for the revisions-counting macro. I'm very grateful for your help.<\/p>\n
\"The macro takes a bit of getting used to. I find it takes an awfully long time to count the revisions in 5-10,000-word documents. In fact, so long, that at first I thought it wasn't working--one really should go and make a cup of tea and leave the computer to itself! This might be worth mentioning in the update.\"<\/p>\n
I responded, \"Yes, and I don't have a way around this--other than get a faster computer. \ud83d\ude42 I've made the macro as efficient as I know how.\"<\/p>\n
If you, gentle reader, know how to speed this up, I'd love to hear from you.<\/p>\n
----------------------------------<\/p>\n
Bill Rubidge wrote:<\/p>\n
It's a funny coincidence about your macro to count revisions. I have been tinkering with this a little myself, and had put together the following macro. It hasn't been optimized at all, in part because I'm still thinking about how to use it to quantify the degree of revision.<\/p>\n
For example, I would consider replacing one word with another, in the same position, to be a very minor revision. A letter change within a word (colour to color) even more minor. But if a revision is long enough (X characters) to indicate a new sentence, that would be an indicator to my client that I had done more work.<\/p>\n
The one weakness of the word revisions tracking tool is that it does not allow us to track a different kind of revision--where text is simply moved from one place to another in a document. (DeltaView from WorkShare can do this for you, but the license is designed for large organizations, so the tool is typically used by law firms. And I don't know whether that \"moved\" information would be accessible as a count, or through VBA.)<\/p>\n
Anyway, as a work in process, here's my draft macro.<\/p>\n
[If you don't know how to use such macros, you can learn how here:<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1706922855.]<\/p>\n
\nSub CountRevs()\nDim intWordCount As Integer\nintWordCount = ActiveDocument.Words.Count\nDim intRevCount As Integer\nintRevCount = ActiveDocument.Revisions.Count\nIf intRevCount = 0 Then\nMsgBox (\"This document has no revisions.\")\nExit Sub\nEnd If\nDim intCounter As Integer\nintCounter = 1\nDim intInsertionCount As Integer\nintInsertionCount = 0\nDim intInsertionLongestLen As Integer\nintInsertionLongestLen = 0\nDim intDeletionCount As Integer\nintDeletionCount = 0\nDim intDeletionLongestLen As Integer\nintDeletionLongestLen = 0\nDim intOtherRevCount As Integer\nintOtherRevCount = 0\nDo While intCounter < intRevCount + 1\nIf ActiveDocument.Revisions(intCounter).Type = _\nwdRevisionInsert Then\nintInsertionCount = intInsertionCount + 1\nIf Len(ActiveDocument.Revisions(intCounter).Range) > _\nintInsertionLongestLen Then\nintInsertionLongestLen = _\nLen(ActiveDocument.Revisions(intCounter).Range)\nEnd If\nElse\nIf ActiveDocument.Revisions(intCounter).Type = _\nwdRevisionDelete Then\nintDeletionCount = intDeletionCount + 1\nIf Len(ActiveDocument.Revisions(intCounter).Range) > _\nintDeletionLongestLen Then\nintDeletionLongestLen = _\nLen(ActiveDocument.Revisions(intCounter).Range)\nEnd If\nElse\nintOtherRevCount = intOtherRevCount + 1\nEnd If\nEnd If\nintCounter = intCounter + 1\nLoop\nMsgBox (\"Results of Revision Inventory: \" & vbCrLf & _\n\"- \" & intWordCount & _\n\" total words in the document (simple count).\" & _\nvbCrLf & \"- \" & intInsertionCount & _\n\" insertions, and longest insertion has \" & _\nintInsertionLongestLen & \" characters.\" & _\nvbCrLf & \"- \" & intDeletionCount & _\n\" deletions, and longest deletion has \" & _\nintDeletionLongestLen & \" characters.\" & _\nvbCrLf & \"- \" & intOtherRevCount & _\n\" other revisions (might be formatting, etc.).\")\nEnd Sub\n<\/pre>\n<\/span><\/p>\n