CleanupMacro runs subs to rm whitespace, replace local styles with char ones

Would like to add a bit to exit the procedure if the char styles are not present, remind user to attach template or seek help.