Hi 1with49,

Welcome to VBAX!

Firstly, to correct your code:

Your For Each statement is back to front, it should be[vba]For Each snt in ActiveDocument.Words[/vba]You can't just say snt.bold by itself, you must say[vba]snt.Bold = True[/vba]Finally you are missing an End If.

Now, to make your life easier, you should be able to do this with a Find and Replace.

In the Find/Replace Dialog (Ctrl+h)

Check "Use Wildcards"
Find \<\<BOLD\>\>(*)\<\</BOLD\>\>
Replace with \1

Set Formatting for Replace by putting the cursor in the replace with box and clicking on Format, Selecting Font and setting it to Bold in the Dialog.

(I hope I have typed that in correctly) - the less than and greater than symbols want preceding with backslashes so that they are interpreted as the characters themselves, and the asterisk wants surrounding in parentheses so identify it as a separate term (the first or only in this case) which can be used in the replace.