Attribute VB_Name = "NewMacros" Sub Ascii_2_Ucode_L_C() ' ' MacrosAscii2UcodeL ' Ascii to Unicode Lowercase ' 20.06.99 BPG ' ÁΠÕÀÐÇÓÊÈÃÀÌ ÓÌÈÉÍÃÈÑ ËÞÄÃÐÓÊÆÄ ÉÍÌÅÄÐÒÈÐÄÁÀ ' ÉÄÇÃÄÁÀ ÚÈÉÊØÈ ' ' Vascii = 192 Vunicode = 4304 For i = 1 To 39 Selection.Find.ClearFormatting Selection.Font.Name = "BPG Chveulebrivi Um" Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ChrW(Vascii) .Replacement.Text = ChrW(Vunicode) .Font.Name = "BPG Chveulebrivi Um" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Vascii = (Vascii + 1) Vunicode = (Vunicode + 1) Next i End Sub Sub Ucode_L_2_Ascii() ' ' MacrosUcodeL2Ascii ' UnicodeL to Ascii ' 20.06.99 BPG ' ÓÌÈÉÍÃÈÑ ËÞÄÃÐÓÊÈÃÀÌ ÁÎÂ-ÆÄ ÉÍÌÅÄÐÒÈÐÄÁÀ ' ' Vascii = 192 Vunicode = 4304 For i = 1 To 39 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ChrW(Vunicode) .Replacement.Text = ChrW(Vascii) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Vascii = (Vascii + 1) Vunicode = (Vunicode + 1) Next i End Sub Sub Ascii_2_Ucode_U() ' ' MacrosAscii2UcodeU ' Ascii to Unicode Uppercase ' 20.06.99 BPG ' ÁΠÕÀÐÇÓÊÈÃÀÌ ÓÌÈÉÍÃÈÑ ËÇÀÅÐÓÊÆÄ ÉÍÌÅÄÐÒÈÐÄÁÀ ' Vascii = 192 Vunicode = 4256 For i = 1 To 39 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ChrW(Vascii) .Replacement.Text = ChrW(Vunicode) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Vascii = (Vascii + 1) Vunicode = (Vunicode + 1) Next i End Sub Sub AnBani() Attribute AnBani.VB_Description = "Macro recorded 6.7.2000 by Beso" Attribute AnBani.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Macro1" ' ' Macro AnBani Prints common and Georgian characters ' of ASCII and UNICODE range ' Macro recorded 6.7.2000 by Beso ' ÁÄÝÃÀÅÑ ÁΠÃÀ ÓÌÈÉÍÃÈÑ ÃÈÀÎÀÆÍÌÑ + ÊÀÇÈÌÓÐÈ ' Selection.Font.Bold = wdToggle Selection.Font.Size = 12 Selection.Font.Name = "Arial" Selection.TypeText Text:="BPG-InfoTech Font -- ... " Selection.Font.Bold = wdToggle Selection.TypeParagraph ' cifrbi da sxva - ÚÈÔÐÄÁÈ ÃÀ ÑÞÅ. Vascii = 33 For i = 33 To 64 Text = ChrW(Vascii) Selection.TypeText Text:=Text Vascii = (Vascii + 1) Next i Selection.TypeParagraph ' A-Z Vascii = 65 For i = 65 To 90 Text = ChrW(Vascii) Selection.TypeText Text:=Text Vascii = (Vascii + 1) Next i Selection.TypeParagraph Vascii = 91 For i = 91 To 96 Text = ChrW(Vascii) Selection.TypeText Text:=Text Vascii = (Vascii + 1) Next i Selection.TypeParagraph ' a-z Vascii = 97 For i = 97 To 122 Text = ChrW(Vascii) Selection.TypeText Text:=Text Vascii = (Vascii + 1) Next i Selection.TypeParagraph Vascii = 123 For i = 123 To 160 Text = ChrW(Vascii) Selection.TypeText Text:=Text Vascii = (Vascii + 1) Next i Selection.TypeParagraph Vascii = 161 For i = 161 To 191 Text = ChrW(Vascii) Selection.TypeText Text:=Text Vascii = (Vascii + 1) Next i Selection.TypeParagraph ' ASCII qartuli - ÁΠÕÀÐÇÓÊÈ Selection.Font.Bold = wdToggle Selection.TypeText Text:="*** Georgian ASCII ***" Selection.Font.Bold = wdToggle Selection.TypeParagraph Vascii = 192 For i = 192 To 229 Text = ChrW(Vascii) Selection.TypeText Text:=Text Vascii = (Vascii + 1) Next i Selection.TypeParagraph ' ASCII darchenili 256-mde Vascii = 230 For i = 230 To 255 Text = ChrW(Vascii) Selection.TypeText Text:=Text Vascii = (Vascii + 1) Next i Selection.TypeParagraph ' UNICODE mxedruli Selection.Font.Bold = wdToggle Selection.TypeText Text:="*** Georgian UNICODE lowercase ***" Selection.Font.Bold = wdToggle Selection.TypeParagraph Vascii = 4304 For i = 1 To 45 Text = ChrW(Vascii) Selection.TypeText Text:=Text Vascii = (Vascii + 1) Next i Selection.TypeParagraph ' vbechdav abzacis qartul nishans Selection.Font.Bold = wdToggle Selection.TypeText Text:="*** Georgian UNICODE paragraph ***" Selection.Font.Bold = wdToggle Selection.TypeParagraph Text = ChrW(4347) Selection.TypeText Text:=Text Selection.TypeParagraph ' INUCODE mtavruli Selection.Font.Bold = wdToggle Selection.TypeText Text:="*** Georgian UNICODE uppercase ***" Selection.Font.Bold = wdToggle Selection.TypeParagraph Vascii = 4256 For i = 1 To 39 Text = ChrW(Vascii) Selection.TypeText Text:=Text Vascii = (Vascii + 1) Next i Selection.TypeParagraph End Sub Sub BPG_2_Unicode_L() ' ' Converts BPG/InfoTech ASCII to Unicode LowerCase ' 30.07.2000 BPG ' Here Georgian text font of BPG series ' ÄÑ ËÀÉÐÍ ÉÈÇÞÓÊÍÁÑ ÁΠÑÄÐÈÑ ÔÍÌÒÈÇ ' ØÄÑÐÓÊÄÁÓÊ ÒÄÕÑÒÑ ÃÀ ÀÉÍÌÅÄÐÒÈÐÄÁÑ ' ÓÌÍÉÍà ÕÀÐÇÓÊÈÑ ËÞÄÃÐÓÊ ÌÀÜÈÊØÈ ' Ä.È. ÎÀÒÀÐÀ ÀÑÍÄÁÀà ' Dim SACKISI(38) Dim SABOLOO(38) ' aq gansazgvrulia sackisi textis ' BPG-InfoTech kodebi SACKISI(1) = ChrW(192) 'À SACKISI(2) = ChrW(193) 'Á SACKISI(3) = ChrW(194) ' SACKISI(4) = ChrW(195) 'à SACKISI(5) = ChrW(196) 'Ä SACKISI(6) = ChrW(197) 'Å SACKISI(7) = ChrW(198) 'Æ SACKISI(8) = ChrW(199) 'Ç SACKISI(9) = ChrW(200) 'È SACKISI(10) = ChrW(201) 'É SACKISI(11) = ChrW(202) 'Ê SACKISI(12) = ChrW(203) 'Ë SACKISI(13) = ChrW(204) 'Ì SACKISI(14) = ChrW(205) 'Í SACKISI(15) = ChrW(206) 'Î SACKISI(16) = ChrW(207) 'Ï SACKISI(17) = ChrW(208) 'Ð SACKISI(18) = ChrW(209) 'Ñ SACKISI(19) = ChrW(210) 'Ò SACKISI(20) = ChrW(211) 'Ó SACKISI(21) = ChrW(212) 'Ô SACKISI(22) = ChrW(213) 'Õ SACKISI(23) = ChrW(214) 'Ö SACKISI(24) = ChrW(215) '× SACKISI(25) = ChrW(216) 'Ø SACKISI(26) = ChrW(217) 'Ù SACKISI(27) = ChrW(218) 'Ú SACKISI(28) = ChrW(219) 'Û SACKISI(29) = ChrW(220) 'Ü SACKISI(30) = ChrW(221) 'Ý SACKISI(31) = ChrW(222) 'Þ SACKISI(32) = ChrW(223) 'ß SACKISI(33) = ChrW(224) 'à SACKISI(34) = ChrW(225) 'àÍÄ SACKISI(35) = ChrW(226) 'ÀÈ SACKISI(36) = ChrW(227) 'ÅÈÄ SACKISI(37) = ChrW(228) 'ÞÀÐ SACKISI(38) = ChrW(229) 'ÉÍ ' aq gansazgvrulia sboloo textis ' UNICODE kodebi shesabamisad SABOLOO(1) = ChrW(4304) 'À SABOLOO(2) = ChrW(4305) 'Á SABOLOO(3) = ChrW(4306) ' SABOLOO(4) = ChrW(4307) 'à SABOLOO(5) = ChrW(4308) 'Ä SABOLOO(6) = ChrW(4309) 'Å SABOLOO(7) = ChrW(4310) 'Æ SABOLOO(8) = ChrW(4311) 'Ç SABOLOO(9) = ChrW(4312) 'È SABOLOO(10) = ChrW(4313) 'É SABOLOO(11) = ChrW(4314) 'Ê SABOLOO(12) = ChrW(4315) 'Ë SABOLOO(13) = ChrW(4316) 'Ì SABOLOO(14) = ChrW(4317) 'Í SABOLOO(15) = ChrW(4318) 'Î SABOLOO(16) = ChrW(4319) 'Ï SABOLOO(17) = ChrW(4320) 'Ð SABOLOO(18) = ChrW(4321) 'Ñ SABOLOO(19) = ChrW(4322) 'Ò SABOLOO(20) = ChrW(4323) 'Ó SABOLOO(21) = ChrW(4324) 'Ô SABOLOO(22) = ChrW(4325) 'Õ SABOLOO(23) = ChrW(4326) 'Ö SABOLOO(24) = ChrW(4327) '× SABOLOO(25) = ChrW(4328) 'Ø SABOLOO(26) = ChrW(4329) 'Ù SABOLOO(27) = ChrW(4330) 'Ú SABOLOO(28) = ChrW(4331) 'Û SABOLOO(29) = ChrW(4332) 'Ü SABOLOO(30) = ChrW(4333) 'Ý SABOLOO(31) = ChrW(4334) 'Þ SABOLOO(32) = ChrW(4335) 'ß SABOLOO(33) = ChrW(4336) 'à SABOLOO(34) = ChrW(4337) 'àÍÄ SABOLOO(35) = ChrW(4338) 'ÀÈ SABOLOO(36) = ChrW(4339) 'ÅÈÄ SABOLOO(37) = ChrW(4340) 'ÞÀÐ SABOLOO(38) = ChrW(4341) 'ÉÍ For i = 1 To 38 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = SACKISI(i) .Replacement.Text = SABOLOO(i) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Next End Sub Sub LatinGeorgian_2_Unicode_L() ' ' Converts LathinGeorgian (transliteration) to Unicode LowerCase ' 30.07.2000 BPG ' Here Georgian text font of BPG series ' ÄÑ ËÀÉÐÍ ÉÈÇÞÓÊÍÁÑ ÊÀÇÈÌÓÐÈ ' ÒÐÀÌÑÊÈÒÄÐÀÚÈÈÑ ÔÍÌÒÈÇ ' ØÄÑÐÓÊÄÁÓÊ ÕÀÐÇÓÊ ÒÄÕÑÒÑ ÃÀ ÀÉÍÌÅÄÐÒÈÐÄÁÑ ' ÓÌÍÉÍà ÕÀÐÇÓÊÈÑ ËÞÄÃÐÓÊ ÌÀÜÈÊØÈ ' Ä.È. ÎÀÒÀÐÀ ÀÑÍÄÁÀà ' Dim SACKISI(38) Dim SABOLOO(38) ' aq gansazgvrulia sackisi textis ' LathinGeorgian kodebi SACKISI(1) = ChrW(97) 'À SACKISI(2) = ChrW(98) 'Á SACKISI(3) = ChrW(103) ' SACKISI(4) = ChrW(100) 'à SACKISI(5) = ChrW(101) 'Ä SACKISI(6) = ChrW(118) 'Å SACKISI(7) = ChrW(122) 'Æ SACKISI(8) = ChrW(84) 'Ç SACKISI(9) = ChrW(105) 'È SACKISI(10) = ChrW(107) 'É SACKISI(11) = ChrW(108) 'Ê SACKISI(12) = ChrW(109) 'Ë SACKISI(13) = ChrW(110) 'Ì SACKISI(14) = ChrW(111) 'Í SACKISI(15) = ChrW(112) 'Î SACKISI(16) = ChrW(74) 'Ï SACKISI(17) = ChrW(114) 'Ð SACKISI(18) = ChrW(115) 'Ñ SACKISI(19) = ChrW(116) 'Ò SACKISI(20) = ChrW(117) 'Ó SACKISI(21) = ChrW(102) 'Ô SACKISI(22) = ChrW(113) 'Õ SACKISI(23) = ChrW(82) 'Ö SACKISI(24) = ChrW(121) '× SACKISI(25) = ChrW(83) 'Ø SACKISI(26) = ChrW(67) 'Ù SACKISI(27) = ChrW(99) 'Ú SACKISI(28) = ChrW(90) 'Û SACKISI(29) = ChrW(119) 'Ü SACKISI(30) = ChrW(87) 'Ý SACKISI(31) = ChrW(120) 'Þ SACKISI(32) = ChrW(106) 'ß SACKISI(33) = ChrW(104) 'à SACKISI(34) = ChrW(999) 'àÍÄ SACKISI(35) = ChrW(999) 'ÀÈ SACKISI(36) = ChrW(999) 'ÅÈÄ SACKISI(37) = ChrW(999) 'ÞÀÐ SACKISI(38) = ChrW(999) 'ÉÍ ' aq gansazgvrulia sboloo textis ' UNICODE kodebi shesabamisad SABOLOO(1) = ChrW(4304) 'À SABOLOO(2) = ChrW(4305) 'Á SABOLOO(3) = ChrW(4306) ' SABOLOO(4) = ChrW(4307) 'à SABOLOO(5) = ChrW(4308) 'Ä SABOLOO(6) = ChrW(4309) 'Å SABOLOO(7) = ChrW(4310) 'Æ SABOLOO(8) = ChrW(4311) 'Ç SABOLOO(9) = ChrW(4312) 'È SABOLOO(10) = ChrW(4313) 'É SABOLOO(11) = ChrW(4314) 'Ê SABOLOO(12) = ChrW(4315) 'Ë SABOLOO(13) = ChrW(4316) 'Ì SABOLOO(14) = ChrW(4317) 'Í SABOLOO(15) = ChrW(4318) 'Î SABOLOO(16) = ChrW(4319) 'Ï SABOLOO(17) = ChrW(4320) 'Ð SABOLOO(18) = ChrW(4321) 'Ñ SABOLOO(19) = ChrW(4322) 'Ò SABOLOO(20) = ChrW(4323) 'Ó SABOLOO(21) = ChrW(4324) 'Ô SABOLOO(22) = ChrW(4325) 'Õ SABOLOO(23) = ChrW(4326) 'Ö SABOLOO(24) = ChrW(4327) '× SABOLOO(25) = ChrW(4328) 'Ø SABOLOO(26) = ChrW(4329) 'Ù SABOLOO(27) = ChrW(4330) 'Ú SABOLOO(28) = ChrW(4331) 'Û SABOLOO(29) = ChrW(4332) 'Ü SABOLOO(30) = ChrW(4333) 'Ý SABOLOO(31) = ChrW(4334) 'Þ SABOLOO(32) = ChrW(4335) 'ß SABOLOO(33) = ChrW(4336) 'à SABOLOO(34) = ChrW(4337) 'àÍÄ SABOLOO(35) = ChrW(4338) 'ÀÈ SABOLOO(36) = ChrW(4339) 'ÅÈÄ SABOLOO(37) = ChrW(4340) 'ÞÀÐ SABOLOO(38) = ChrW(4341) 'ÉÍ For i = 1 To 38 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = SACKISI(i) .Replacement.Text = SABOLOO(i) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Next End Sub Sub Unicode_L_2_LatinGeorgian() ' ' Converts Unicode lowerCase to LathinGeorgian (transliteration) ' 30.07.2000 BPG ' Here Georgian text font of BPG series ' ÄÑ ËÀÉÐÍ ÉÈÇÞÓÊÍÁÑ ÓÌÈÉÍà ËÞÄÃÐÓÊÑ ' ÃÀ ÀÉÍÌÅÄÐÒÈÐÄÁÑ ÕÀÐÇÓÊÈ ' ÊÀÇÈÌÓÐÈ ÒÐÀÌÑÊÈÒÄÐÀÚÈÈÑ ÒÄÕÑÒÀà ' Dim SACKISI(38) Dim SABOLOO(38) ' aq gansazgvrulia sackisi textis ' LathinGeorgian kodebi SACKISI(1) = ChrW(97) 'À SACKISI(2) = ChrW(98) 'Á SACKISI(3) = ChrW(103) ' SACKISI(4) = ChrW(100) 'à SACKISI(5) = ChrW(101) 'Ä SACKISI(6) = ChrW(118) 'Å SACKISI(7) = ChrW(122) 'Æ SACKISI(8) = ChrW(84) 'Ç SACKISI(9) = ChrW(105) 'È SACKISI(10) = ChrW(107) 'É SACKISI(11) = ChrW(108) 'Ê SACKISI(12) = ChrW(109) 'Ë SACKISI(13) = ChrW(110) 'Ì SACKISI(14) = ChrW(111) 'Í SACKISI(15) = ChrW(112) 'Î SACKISI(16) = ChrW(74) 'Ï SACKISI(17) = ChrW(114) 'Ð SACKISI(18) = ChrW(115) 'Ñ SACKISI(19) = ChrW(116) 'Ò SACKISI(20) = ChrW(117) 'Ó SACKISI(21) = ChrW(102) 'Ô SACKISI(22) = ChrW(113) 'Õ SACKISI(23) = ChrW(82) 'Ö SACKISI(24) = ChrW(121) '× SACKISI(25) = ChrW(83) 'Ø SACKISI(26) = ChrW(67) 'Ù SACKISI(27) = ChrW(99) 'Ú SACKISI(28) = ChrW(90) 'Û SACKISI(29) = ChrW(119) 'Ü SACKISI(30) = ChrW(87) 'Ý SACKISI(31) = ChrW(120) 'Þ SACKISI(32) = ChrW(106) 'ß SACKISI(33) = ChrW(104) 'à SACKISI(34) = ChrW(999) 'àÍÄ SACKISI(35) = ChrW(999) 'ÀÈ SACKISI(36) = ChrW(999) 'ÅÈÄ SACKISI(37) = ChrW(999) 'ÞÀÐ SACKISI(38) = ChrW(999) 'ÉÍ ' aq gansazgvrulia saboloo textis ' UNICODE kodebi shesabamisad SABOLOO(1) = ChrW(4304) 'À SABOLOO(2) = ChrW(4305) 'Á SABOLOO(3) = ChrW(4306) ' SABOLOO(4) = ChrW(4307) 'à SABOLOO(5) = ChrW(4308) 'Ä SABOLOO(6) = ChrW(4309) 'Å SABOLOO(7) = ChrW(4310) 'Æ SABOLOO(8) = ChrW(4311) 'Ç SABOLOO(9) = ChrW(4312) 'È SABOLOO(10) = ChrW(4313) 'É SABOLOO(11) = ChrW(4314) 'Ê SABOLOO(12) = ChrW(4315) 'Ë SABOLOO(13) = ChrW(4316) 'Ì SABOLOO(14) = ChrW(4317) 'Í SABOLOO(15) = ChrW(4318) 'Î SABOLOO(16) = ChrW(4319) 'Ï SABOLOO(17) = ChrW(4320) 'Ð SABOLOO(18) = ChrW(4321) 'Ñ SABOLOO(19) = ChrW(4322) 'Ò SABOLOO(20) = ChrW(4323) 'Ó SABOLOO(21) = ChrW(4324) 'Ô SABOLOO(22) = ChrW(4325) 'Õ SABOLOO(23) = ChrW(4326) 'Ö SABOLOO(24) = ChrW(4327) '× SABOLOO(25) = ChrW(4328) 'Ø SABOLOO(26) = ChrW(4329) 'Ù SABOLOO(27) = ChrW(4330) 'Ú SABOLOO(28) = ChrW(4331) 'Û SABOLOO(29) = ChrW(4332) 'Ü SABOLOO(30) = ChrW(4333) 'Ý SABOLOO(31) = ChrW(4334) 'Þ SABOLOO(32) = ChrW(4335) 'ß SABOLOO(33) = ChrW(4336) 'à SABOLOO(34) = ChrW(4337) 'àÍÄ SABOLOO(35) = ChrW(4338) 'ÀÈ SABOLOO(36) = ChrW(4339) 'ÅÈÄ SABOLOO(37) = ChrW(4340) 'ÞÀÐ SABOLOO(38) = ChrW(4341) 'ÉÍ For i = 1 To 38 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = SABOLOO(i) .Replacement.Text = SACKISI(i) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Next End Sub Sub PS_2_Unicode_L() ' ' Converts Parliamen-Soros to Unicode LowerCase ' 30.07.2000 BPG ' Here Georgian text font of BPG series ' ÄÑ ËÀÉÐÍ ÉÈÇÞÓÊÍÁÑ ÑÍÐÍÑ-ÎÀÐÊÀËÄÌÒÈÑ ' ÔÍÌÒÈÇ ' ØÄÑÐÓÊÄÁÓÊ ÒÄÕÑÒÑ ÃÀ ÀÉÍÌÅÄÐÒÈÐÄÁÑ ' ÓÌÍÉÍà ÕÀÐÇÓÊÈÑ ËÞÄÃÐÓÊ ÌÀÜÈÊØÈ ' Ä.È. ÎÀÒÀÐÀ ÀÑÍÄÁÀà ' Dim SACKISI(38) Dim SABOLOO(38) ' aq gansazgvrulia sackisi textis ' LathinGeorgian kodebi SACKISI(1) = ChrW(192) 'À SACKISI(2) = ChrW(193) 'Á SACKISI(3) = ChrW(194) ' SACKISI(4) = ChrW(195) 'à SACKISI(5) = ChrW(196) 'Ä SACKISI(6) = ChrW(197) 'Å SACKISI(7) = ChrW(198) 'Æ ' ÙÀËÀÒÄÁÀ SACKISI(34) = ChrW(199) 'àÍÄ ' ******** SACKISI(8) = ChrW(200) 'Ç SACKISI(9) = ChrW(201) 'È SACKISI(10) = ChrW(202) 'É SACKISI(11) = ChrW(203) 'Ê SACKISI(12) = ChrW(204) 'Ë SACKISI(13) = ChrW(205) 'Ì ' ÙÀËÀÒÄÁÀ SACKISI(35) = ChrW(206) 'ÀÈ ' ******** SACKISI(14) = ChrW(207) 'Í SACKISI(15) = ChrW(208) 'Î SACKISI(16) = ChrW(209) 'Ï SACKISI(17) = ChrW(210) 'Ð SACKISI(18) = ChrW(211) 'Ñ SACKISI(19) = ChrW(212) 'Ò ' ÙÀËÀÒÄÁÀ SACKISI(36) = ChrW(213) 'ÅÈÄ ' ******** SACKISI(20) = ChrW(214) 'Ó SACKISI(21) = ChrW(215) 'Ô SACKISI(22) = ChrW(216) 'Õ SACKISI(23) = ChrW(217) 'Ö SACKISI(24) = ChrW(218) '× SACKISI(25) = ChrW(219) 'Ø SACKISI(26) = ChrW(220) 'Ù SACKISI(27) = ChrW(221) 'Ú SACKISI(28) = ChrW(222) 'Û SACKISI(29) = ChrW(223) 'Ü SACKISI(30) = ChrW(224) 'Ý SACKISI(31) = ChrW(225) 'Þ ' ÙÀËÀÒÄÁÀ SACKISI(37) = ChrW(226) 'ÞÀÐ ' ******** SACKISI(32) = ChrW(227) 'ß SACKISI(33) = ChrW(228) 'à ' ******** SACKISI(38) = ChrW(229) 'ÉÍ ' aq gansazgvrulia sboloo textis ' UNICODE kodebi shesabamisad SABOLOO(1) = ChrW(4304) 'À SABOLOO(2) = ChrW(4305) 'Á SABOLOO(3) = ChrW(4306) ' SABOLOO(4) = ChrW(4307) 'à SABOLOO(5) = ChrW(4308) 'Ä SABOLOO(6) = ChrW(4309) 'Å SABOLOO(7) = ChrW(4310) 'Æ SABOLOO(8) = ChrW(4311) 'Ç SABOLOO(9) = ChrW(4312) 'È SABOLOO(10) = ChrW(4313) 'É SABOLOO(11) = ChrW(4314) 'Ê SABOLOO(12) = ChrW(4315) 'Ë SABOLOO(13) = ChrW(4316) 'Ì SABOLOO(14) = ChrW(4317) 'Í SABOLOO(15) = ChrW(4318) 'Î SABOLOO(16) = ChrW(4319) 'Ï SABOLOO(17) = ChrW(4320) 'Ð SABOLOO(18) = ChrW(4321) 'Ñ SABOLOO(19) = ChrW(4322) 'Ò SABOLOO(20) = ChrW(4323) 'Ó SABOLOO(21) = ChrW(4324) 'Ô SABOLOO(22) = ChrW(4325) 'Õ SABOLOO(23) = ChrW(4326) 'Ö SABOLOO(24) = ChrW(4327) '× SABOLOO(25) = ChrW(4328) 'Ø SABOLOO(26) = ChrW(4329) 'Ù SABOLOO(27) = ChrW(4330) 'Ú SABOLOO(28) = ChrW(4331) 'Û SABOLOO(29) = ChrW(4332) 'Ü SABOLOO(30) = ChrW(4333) 'Ý SABOLOO(31) = ChrW(4334) 'Þ SABOLOO(32) = ChrW(4335) 'ß SABOLOO(33) = ChrW(4336) 'à SABOLOO(34) = ChrW(4337) 'àÍÄ SABOLOO(35) = ChrW(4338) 'ÀÈ SABOLOO(36) = ChrW(4339) 'ÅÈÄ SABOLOO(37) = ChrW(4340) 'ÞÀÐ SABOLOO(38) = ChrW(4341) 'ÉÍ For i = 1 To 38 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = SACKISI(i) .Replacement.Text = SABOLOO(i) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Next End Sub Sub Unicode_L_2_PS() ' ' Converts Parliamen-Soros to Unicode LowerCase ' 30.07.2000 BPG ' Here Georgian text font of BPG series ' ÄÑ ËÀÉÐÍ ÉÈÇÞÓÊÍÁÑ ÑÍÐÍÑ-ÎÀÐÊÀËÄÌÒÈÑ ' ÔÍÌÒÈÇ ' ØÄÑÐÓÊÄÁÓÊ ÒÄÕÑÒÑ ÃÀ ÀÉÍÌÅÄÐÒÈÐÄÁÑ ' ÓÌÍÉÍà ÕÀÐÇÓÊÈÑ ËÞÄÃÐÓÊ ÌÀÜÈÊØÈ ' Ä.È. ÎÀÒÀÐÀ ÀÑÍÄÁÀà ' Dim SABOLOO(38) Dim SACKISI(38) ' aq gansazgvrulia SABOLOO textis ' LathinGeorgian kodebi SABOLOO(1) = ChrW(192) 'À SABOLOO(2) = ChrW(193) 'Á SABOLOO(3) = ChrW(194) ' SABOLOO(4) = ChrW(195) 'à SABOLOO(5) = ChrW(196) 'Ä SABOLOO(6) = ChrW(197) 'Å SABOLOO(7) = ChrW(198) 'Æ ' ÙÀËÀÒÄÁÀ SABOLOO(34) = ChrW(199) 'àÍÄ ' ******** SABOLOO(8) = ChrW(200) 'Ç SABOLOO(9) = ChrW(201) 'È SABOLOO(10) = ChrW(202) 'É SABOLOO(11) = ChrW(203) 'Ê SABOLOO(12) = ChrW(204) 'Ë SABOLOO(13) = ChrW(205) 'Ì ' ÙÀËÀÒÄÁÀ SABOLOO(35) = ChrW(206) 'ÀÈ ' ******** SABOLOO(14) = ChrW(207) 'Í SABOLOO(15) = ChrW(208) 'Î SABOLOO(16) = ChrW(209) 'Ï SABOLOO(17) = ChrW(210) 'Ð SABOLOO(18) = ChrW(211) 'Ñ SABOLOO(19) = ChrW(212) 'Ò ' ÙÀËÀÒÄÁÀ SABOLOO(36) = ChrW(213) 'ÅÈÄ ' ******** SABOLOO(20) = ChrW(214) 'Ó SABOLOO(21) = ChrW(215) 'Ô SABOLOO(22) = ChrW(216) 'Õ SABOLOO(23) = ChrW(217) 'Ö SABOLOO(24) = ChrW(218) '× SABOLOO(25) = ChrW(219) 'Ø SABOLOO(26) = ChrW(220) 'Ù SABOLOO(27) = ChrW(221) 'Ú SABOLOO(28) = ChrW(222) 'Û SABOLOO(29) = ChrW(223) 'Ü SABOLOO(30) = ChrW(224) 'Ý SABOLOO(31) = ChrW(225) 'Þ ' ÙÀËÀÒÄÁÀ SABOLOO(37) = ChrW(226) 'ÞÀÐ ' ******** SABOLOO(32) = ChrW(227) 'ß SABOLOO(33) = ChrW(228) 'à ' ******** SABOLOO(38) = ChrW(229) 'ÉÍ ' aq gansazgvrulia saboloo textis ' UNICODE kodebi shesabamisad SACKISI(1) = ChrW(4304) 'À SACKISI(2) = ChrW(4305) 'Á SACKISI(3) = ChrW(4306) ' SACKISI(4) = ChrW(4307) 'à SACKISI(5) = ChrW(4308) 'Ä SACKISI(6) = ChrW(4309) 'Å SACKISI(7) = ChrW(4310) 'Æ SACKISI(8) = ChrW(4311) 'Ç SACKISI(9) = ChrW(4312) 'È SACKISI(10) = ChrW(4313) 'É SACKISI(11) = ChrW(4314) 'Ê SACKISI(12) = ChrW(4315) 'Ë SACKISI(13) = ChrW(4316) 'Ì SACKISI(14) = ChrW(4317) 'Í SACKISI(15) = ChrW(4318) 'Î SACKISI(16) = ChrW(4319) 'Ï SACKISI(17) = ChrW(4320) 'Ð SACKISI(18) = ChrW(4321) 'Ñ SACKISI(19) = ChrW(4322) 'Ò SACKISI(20) = ChrW(4323) 'Ó SACKISI(21) = ChrW(4324) 'Ô SACKISI(22) = ChrW(4325) 'Õ SACKISI(23) = ChrW(4326) 'Ö SACKISI(24) = ChrW(4327) '× SACKISI(25) = ChrW(4328) 'Ø SACKISI(26) = ChrW(4329) 'Ù SACKISI(27) = ChrW(4330) 'Ú SACKISI(28) = ChrW(4331) 'Û SACKISI(29) = ChrW(4332) 'Ü SACKISI(30) = ChrW(4333) 'Ý SACKISI(31) = ChrW(4334) 'Þ SACKISI(32) = ChrW(4335) 'ß SACKISI(33) = ChrW(4336) 'à SACKISI(34) = ChrW(4337) 'àÍÄ SACKISI(35) = ChrW(4338) 'ÀÈ SACKISI(36) = ChrW(4339) 'ÅÈÄ SACKISI(37) = ChrW(4340) 'ÞÀÐ SACKISI(38) = ChrW(4341) 'ÉÍ For i = 1 To 38 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = SACKISI(i) .Replacement.Text = SABOLOO(i) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Next End Sub Sub KerningPares() Attribute KerningPares.VB_Description = "Macro recorded 29.11.2000 by Beso" Attribute KerningPares.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Macro1" ' ' Macro recorded 29.11.2000 by Beso ' ASCII ÁΠËÍÉÊÄ - 192 To 224 ' ASCII ÁΠÂÐÛÄÊÈ - 192 To 229 For vAsoPirveli = 192 To 224 For vAsoMeore = 192 To 224 Text = ChrW(vAsoPirveli) + ChrW(vAsoMeore) Selection.TypeText Text:=Text Next vAsoMeore Selection.TypeParagraph Next vAsoPirveli End Sub Sub FartoVicro() Attribute FartoVicro.VB_Description = "Macro recorded 16.12.2000 by Beso" Attribute FartoVicro.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Macro1" ' ' Macro1 Macro ' Macro recorded 16.12.2000 by Beso ' ÔÀÐÇÍ-ÅÈÜÐÍÜÄ Dim SACKISI(11) Dim SABOLOO(38) SACKISI(1) = " Æ" SACKISI(2) = " Ó" SACKISI(3) = " Ø" SACKISI(4) = "Ü " SABOLOO(1) = "ñ" SABOLOO(2) = "ö" SABOLOO(3) = "ø" SABOLOO(4) = "ù" For i = 1 To 4 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = SACKISI(i) .Replacement.Text = SABOLOO(i) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Next End Sub