This vba code will identify bearings and place correct symbols where required.
Save 'ChangeBearingText.mvba’ in C:\ProgramData\Bentley\MX V8i (SELECTseries 4)\WorkSpace\*Working location*\*Working location*\vba
Auto load .mvba file in MX/Microstation
Use keyin: vba run App_ChangeBearingText.ChangeBearingText