Nisam koristio, pa ne želim da polemišem- sigurno da ima određenih prednosti. Samo informacija da u aktuelnoj verziji YUConv podržana konverzija i u okviru Header/Footera, Fusnota, Shape Oblika.
Razlog zašto sam preporučio YUConv je mogućnost da se iskoristi gotov kod i preradi za sopstvene potrebe što u slučaju Microsofta nije moguće. Evo funkcije koja pretvara latinicu (unicode) u ćirilicu(unicode). Može se koristiti i iz Excela - kao dopuna postojećih funkcija ukoliko nekom treba.
Code:
Function ToCiril(tekst As String) As String
' Pretvara latinicni tekst u cirilicu
' P.Jovanovic 15/09/06 na osnovu YUSCII-UniChar by Nenad Božović
'
Dim Latinica As String
Dim Cirilica As String
Dim i As Integer
Dim k As Integer
Dim cTekst As String
Dim slovo As String
Dim LatLjNjDz
Dim CirLjNjDz
Latinica = "abcdefghijklmnoprstuvzABCDEFGHIJ" & _
"KLMNOPRSTUVZ" & "š" & ChrW(263) & ChrW(273) & _
ChrW(382) & ChrW(269) & "Š" & ChrW(262) & ChrW(272) & _
ChrW(381) & ChrW(268)
Cirilica = ChrW(1072) & ChrW(1073) & ChrW(1094) & ChrW(1076) & _
ChrW(1077) & ChrW(1092) & ChrW(1075) & ChrW(1093) & _
ChrW(1080) & ChrW(1112) & ChrW(1082) & ChrW(1083) & _
ChrW(1084) & ChrW(1085) & ChrW(1086) & ChrW(1087) & _
ChrW(1088) & ChrW(1089) & ChrW(1090) & ChrW(1091) & _
ChrW(1074) & ChrW(1079) & ChrW(1040) & ChrW(1041) & _
ChrW(1062) & ChrW(1044) & ChrW(1045) & ChrW(1060) & _
ChrW(1043) & ChrW(1061) & ChrW(1048) & ChrW(1032) & _
ChrW(1050) & ChrW(1051) & ChrW(1052) & ChrW(1053) & _
ChrW(1054) & ChrW(1055) & ChrW(1056) & ChrW(1057) & _
ChrW(1058) & ChrW(1059) & ChrW(1042) & ChrW(1047) & _
ChrW(1096) & ChrW(1115) & ChrW(1106) & ChrW(1078) & _
ChrW(1095) & ChrW(1064) & ChrW(1035) & ChrW(1026) & _
ChrW(1046) & ChrW(1063)
LatLjNjDz = Array("LJ", "Lj", "lj", "NJ", "Nj", "nj", _
"D" & ChrW(381), "D" & ChrW(382), "d" & ChrW(382))
CirLjNjDz = Array(ChrW(1033), ChrW(1033), ChrW(1113), ChrW(1034), _
ChrW(1034), ChrW(1114), ChrW(1039), ChrW(1039), _
ChrW(1119))
cTekst = tekst ' Posle zamenje LJ, NJ
For i = 0 To UBound(LatLjNjDz)
cTekst = Replace(cTekst, LatLjNjDz(i), CirLjNjDz(i))
Next i
For i = 1 To Len(cTekst)
slovo = Mid(cTekst, i, 1)
k = InStr(1, Latinica, slovo)
If k > 0 Then
Mid(cTekst, i, 1) = Mid(Cirilica, k, 1)
End If
Next i
ToCiril = cTekst
End Function
[Ovu poruku je menjao Jpeca dana 15.09.2006. u 15:54 GMT+1]
Nije to loše Rembrante, samo što ne bi dodao još malo boje?