Macropod, I copied Private Sub AddBulletStyle and placed it in the "General Section" of the module as I would for a function. I then copied Sub Demo into my code. Is this correct?



However, when I compiled, I got a compiler in Sub Demo code, that highlights the last ".End" in the line .End = Rng.End and says, "Argument not optional"

Thanks!
Jay

As I haven't seen the rest of your code, I can't really say whether what you've done is 'correct'. One might just as easily re-name the sub, then Call it from your existing one.
Did you adjust the 'Rng' variable to reference Word.Range? Likewise, based on what you've posted so far, you should change 'ActiveDocument' to 'MyDoc'.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Macropod,
I followed your suggestions by qualifying the rng object, activedocument etc., ran it and I'm happy to say it is getting very close to what I want. However, I must admit I don't think I made my requirements quite clear enough in the beginning but I think if you can re-tweak the code slightly to meet the following conditions I will be good.

1. If the first word of a paragraph is "Drafted" do Nothing. Don't touch the paragraph.

2. If (the first word of a paragraph IS NOT "Drafted") and (the first word of the same paragraph IS NOT "Exceeded") then apply the bullet ChrW(61623). **NOTE: Bullet should be on/or closest to page margin but distance between the bullet and the paragraph should be about 0.5 inch. Also, the paragraph font.bold = true

3. If the first word of a paragraph is "Exceeded" then apply the hollow circle bullet "O" . NOTE**: Bullet should be 1 inch from page margin but distance between the bullet and the paragraph should be about 0.5 inch. Also the paragraph font.bold = false

4. In any case do not change the current paragraph.spacesafter or spacebefore setting between any two paragrapghs

Thanks in advance. This is so close!
Jay