problem sa konvertovanjem slova

Code:

ublic Sub UniLat2YuLat()
'
' Konverzija iz Unicode Latinice u YuScii Latinicu
' Radi nad selektovanim tekstom
' Prebacuje font u "Times Roman YU"
' Macro created 22/02/99 by Nikola Ilijev
' Verzij1 1.00 sa Search/Replace

    Dim UniChar$(9)
    Dim Yuscii$(9)
    Dim x As Integer

    UniChar$(0) = ChrW$(353): UniChar$(1) = ChrW$(273): UniChar$(2) = ChrW$(269): UniChar$(3) = ChrW$(263): UniChar$(4) = ChrW$(382): _
    UniChar$(5) = ChrW$(352): UniChar$(6) = ChrW$(272): UniChar$(7) = ChrW$(268): UniChar$(8) = ChrW$(262): UniChar$(9) = ChrW$(381)

    Yuscii$(0) = Chr$(123): Yuscii$(1) = Chr$(124): Yuscii$(2) = Chr$(126): Yuscii$(3) = Chr$(125): Yuscii$(4) = Chr$(96): _
    Yuscii$(5) = Chr$(91): Yuscii$(6) = Chr$(92): Yuscii$(7) = Chr$(94) + Chr$(94): Yuscii$(8) = Chr$(93): Yuscii$(9) = Chr$(64)

    Application.ScreenUpdating = False
    
    'Zamena YuScii Latinice -> Unicode Latinicu
    For x = 0 To 9
        Selection.Find.Execute FindText:=UniChar(x), MatchCase:=True, ReplaceWith:=Yuscii(x), Replace:=wdReplaceAll
    Next
    
    Selection.Font.Name = "Times Roman YU"
    
    Application.ScreenUpdating = True
    
End Sub

Code:

Postoji jedna kvačica tu, da kada se uključi XP Style podrška u program, više ni Central European Script podešavanja ne pomažu. Jedino možeš da napraviš svoj font gdje ćeš ono 'ae' zamijeniti sa 'ć' itd... To sigurno radi