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
Kako ovaj kod povezati sa aplikacijom tj. optionButton, TextBox, ListBox da mi tekst prikazuje kako treba?
Hvala
[Ovu poruku je menjao Aleksandar Ružičić dana 10.05.2007. u 23:32 GMT+1]