Hrm, well you must have added such a character style at some point. When I run your macro I am warned by NWP:
Unknown menu item path:
:Format:Character Style:Character Style
Which is as I expect, since I have no such character style in my document.
But onward to the problem you're trying to solve! All your macro does is change the character style, which is just one part of the attributes NWP considers. Generally speaking, NWP gathers attributes like so:
1. Paragraph Style (eg: Heading 4)
2. Character Style (eg: Emphatic)
3. Manually applied attributes (eg: those applied using the Character palette)
Attributes found later in the list override those found earlier, eg: the "Unitalic" attribute found in the Heading 4 paragraph style is overridden by the "Italic" attribute found in the Emphatic character style. Your macro merely changes the character style, which still lets either the paragraph style or manually applied attributes add bold/etc to your text.
So, what to do? You'll want to add a manual "Unbold" attribute, so that it has the final word in the matter. You do that by toggling the bold menu, but only if it is check marked, eg:
Code: Select all
If Menu State ':Format:Bold'
Menu ':Format:Bold'
End
Now, you said you wanted to turn off all the character options. Some of those you'll want to toggle off like bold if necessary, but others are simpler because the menus provide direct "None" states. Here's the full macro:
Code: Select all
Menu ':Edit:Select:Select Word'
If Menu State ':Format:Bold'
Menu ':Format:Bold'
End
If Menu State ':Format:Italic'
Menu ':Format:Italic'
End
If Menu State ':Format:Shadow'
Menu ':Format:Shadow'
End
Menu ':Format:Baseline:No Super/Sub'
Menu ':Format:Underline:None'
Menu ':Format:Strikethrough:None'
Menu ':Format:Text Color:Black'
Menu ':Format:Character Case:No Case Change'
Select End
Find ‘\m’, ‘E’
Select End