Անցյալ գիշեր եմ գրել:
Կոդ:
Sub Normal2Unicode()
'
' Normal2Unicode
' Created by A†eis†
'
Ss = Selection.Start
Se = Selection.End
If Se - Ss < 0 Then End
For i = Ss To Se - 1
Selection.Start = i
Selection.End = i + 1
tar = Selection
If AscW(tar) = 164 Or AscW(tar) = 165 Then GoTo 10
If AscW(tar) = 167 Then Selection = chr(171)
If AscW(tar) = 166 Then Selection = chr(187): GoTo 10
If tar = chr(187) Then Call unicode_stugum: GoTo 10 ' Pakogh chakerti Yev YE tari problem
If AscW(tar) = 168 Then Selection = ChrW(1415) 'yev tar@
If AscW(tar) = 177 Then Selection = ChrW(1374) ' harcakan nshan
If AscW(tar) < 178 Or AscW(tar) > 253 Then GoTo 10
If AscW(tar) / 2 = AscW(tar) \ 2 Then Selection = ChrW(1328 + (AscW(tar) - 176) / 2)
If AscW(tar) / 2 <> AscW(tar) \ 2 Then Selection = ChrW(1376 + (AscW(tar) - 177) / 2)
10: Next i
Selection.Start = Ss
Selection.End = Se
Selection.Font.Name = "tahoma armenian"
End Sub
Sub unicode_stugum()
'
' Normal2Unicode
' Created by A†eis†
' Yete hajord tar@ ASCII -e nshanakum e da YE tarn e
'
ascii = False
HinSel = Selection.Start
Selection.Start = HinSel + 1
Selection.End = HinSel + 2
If AscW(Selection) < 1000 And AscW(Selection) <> 32 And AscW(Selection) <> 13 Then ascii = True
Selection.Start = HinSel
Selection.End = HinSel + 1
If ascii Then Selection = ChrW(1381)
End Sub
Էականորեն տարբերվում է Թարումյանի տարբերակից և մոտեցումով և ծավալով:
Չակերտների հարցը լուծված է (մասամբ), միջակետը չեմ ստուգել:
Սպասում եմ Ձեր կարծիքներին և գտած վրիպակներին:
Էջանիշներ