The quickest way I can think of to get around this is to set up a drawing file, maybe even a template (dwt) with all the weird text styles with the fonts you want assigned to them.
Then insert, or copy-clip each drawing into it and save it back and the styles will take on those properties.
Another way would be to run a lisp routine:
Code:
(defun c:WEIRDTEXT ()
(command "_style" "<weird style1>" "<desired font>.shx" "" "" "" "" "" "")
(command "_style" "<weird style2>" "<desired font>.shx" "" "" "" "" "" "")
(princ)
)