heres my final result.. any suggestions or comments are welcome.
Code:
Sub Font2Arial()
Dim oTextStyle As AcadTextStyle
For Each oTextStyle In ThisDrawing.TextStyles
oTextStyle.fontFile = "c:\windows\fonts\arial.ttf"
If UCase(oTextStyle.Name) Like "*ARIAL BOLD" Then
oTextStyle.fontFile = "c:\windows\fonts\arialbd.ttf"
End If
If UCase(oTextStyle.Name) Like "*TIMES" Then
oTextStyle.fontFile = "c:\windows\fonts\arialbd.ttf"
End If
If UCase(oTextStyle.Name) Like "*BOLD" Then
oTextStyle.fontFile = "c:\windows\fonts\arialbd.ttf"
End If
Next oTextStyle
ThisDrawing.regen acAllViewports
End Sub