Write a line in you document for example
Hello this is MYSELF writing this
and then run this little piece of code
Sub test() For Each wrd In ThisDocument.Words teststr = wrd ' store original word If UCase(wrd) = teststr Then ' compare this word with a capitalised version and if same MsgBox "Word is in capitals" ' display message box End If Next End Sub
This goes throught each word of the document and sees if it is in capitals by comparing the original word with a capitalised version. If it is then a message will be display.
Having done this then you can see if it is your exception list.
Start with this anyway, I'm sure you figure the rest out.
If not just post back
Good luck
Chas
|