Macropod,

Sorry, I didn't get a chance to post sooner. The additional suggestions worked great and I am very grateful. Thanks, for the answers and thanks also to Fumei as well, for chiming in. I will check out those books for sure.

1. Apart from the header, "Drafted" & " Something," every paragraph that does not start with "Exceeded" contains one comma (that is ","). What if I wanted all the words starting from the comma to the end of such paragraphs not bolded? This will be equivalent to saying that if a paragraph has a bullet style ChrW(61623), then make the font of the words bold until you hit a comma in the paragraph then starting from the comma, the font for all the remaining words in the paragraph will not be bolded.

2. So does that mean that the current position of the cursor anywhere in a Word document can be described using rows and columns addressing? As in Range(cells(a,b), cells(d,c)).

3. If (2) is correct then what is the maximum number of rows and columns in a Word document? Or, maybe, it will be better to ask whether it's a good practice for one to think of the location of a "Selection" in terms of rows and columns?

4. In the code is wdApp just a Word application instance and wdDoc a document instance? I ask this because one would think that by hierarchy and maybe polymorphism, the properties of wdApp would be automatically inherited by wdDoc, but they seem to have different properties.

5. In your code how is Find/Replace applying the style to the paragraphs? This is fascinating to me.

6. What do "^13" and "[!^13]@^13" mean? What does [] mean in Word VBA?

7. Please take the time to comment your code out beginning from the line..With wdDoc.Range. I am particularly interested in comments in the Find/Replace and in the Sub AddBulletStyle() procedure. I think the comments will really help me understand and learn from your code.

Please pardon me for asking too many questions.

Thanks!
Jay