Яагаад одоо болтол АриалМон фонд хэрэглэх гэж.....

Одоо одоо ч дээ хэрэглэхээ больсон байлгүй дээ гэхээр хэрэглэсэн хэвээрээ л байх юм. Зарим Вэб дээр /төрийн голдуу/арзайсан тэмдэгтээр бичсэн мэдээ ороод л байх юм. Энэ юутай холбоотой байна вэ...

АриалМон фонд хэрэглэсээр байгаатай л холбоотой...

Анх Windows үйлдэлийн систем гарч байхад Монгол хэлний дэмжлэг аваагүй байх үед манайхан өөрсдөө зохиосон олон фонд гарын драйварууд гарсан тухайн үедээ асуудал шийдсэн боловч.. цагийн эрхээр буруу замаар явчихсан байжээ гэдэг нь харагдсан.

Unicode стандартанд Монгол хэл дэмжлэг болж орсоноос хойш Windows үйлдэлийн системийн үндсэн гарын драйвэрийг хэрэглээд Монгол хэлээр бичих болсон шүү дээ...


Тиймээс одоо АриалМон бус Ариал фондыг хэрэглэж хэвшицгээе. АриалМон фондоор байгаа текстээ макро ашиглан хөрвүүлэн хэрэглэцгээе. Цахим анд Тамирын бичсэн макрог хэрхэн суулгах талаар жаахан зөвлөё.

Office 2003 тай хүмүүс (өөрөөр хэлбэл Word 2003)

Macro-г ашиглах заавар
1. Татаж авсан файлаа онгойлгоод бүгдийг /Ctrl+A/ нь хуулж /Ctrl+C/ аваад аваад Microsoft Word программаа нээгээд Tools -> Macro -> Macros цонхруу ор.
2. Гарч ирсэн цонхны Macro name хэсэг дээр ямар ч хамаагүй нэр оруулан баруун талд буй create товч дээр дар.
3. Шинээр нээгдсэн цонход буй бүх текстийг арилган copy-дсон текстээ paste /Ctrl+V/ хий.
4. Ингээд дээр байрлах Save товч дээр дарсанаар таны Macro ажиллахад бэлэн болно.
5. Одоо та Macro цонхийг хааж Word програмын үндсэн цонхруу ороод дахин Tools -> Macro -> Macros цэсэнд орход саяны үүсгэсэн Macro-ний коммандууд харагдаж байх болно. Ингээд та эдгээрээс хэрэглэхийг хүсэж байгаагаа сонгон Run товчийг дархад таны Word дээр нээсэн файлын үсгүүдийг нэг нэгээр хөрвүүлэх болно.

Харин Office 2007 той хүмүүс (өөрөөр хэлбэл Word 2007)

1. Word-оо нээгээд
2. Ctrl (контрол) товчийг дараастай байж байгаад F8 -ийг дар Өөрөөр хэлбэл зэрэг дар
3. Гарч ирэх Macros гэсэн жижиг цонхноос Macro name хэсэгт нь ямар ч хамаагүй нэр оруулан баруун талд буй create товч дээр дар.
4. Шинээр нээгдсэн цонход буй бүх текстийг арилган доор хөх өнгөөр бичсэн macro-г бүгдийг нь copy-дож аваад copy-дсон текстээ арилгасан текстийн оронд нь paste хий.
5. Ингээд дээр байрлах Save товч дээр дарсанаар таны Macro ажиллахад бэлэн болно.
6. Ашиглахын тулд Хөрвүүлэх Файлаа нээгээд Alt (оолт) товчийг дараастай байж байгаад F8 -ийг дар Өөрөөр хэлбэл зэрэг дар тэгэд гарч ирсэн Macros-оос Хүссэн хөрвүүлэх чиглэлээ сонгоод RUN дараад л болно.


Sub Arial_to_ArialMon()

Max = ActiveDocument.Characters.Count
Selection.HomeKey Unit:=wdStory
i = 1
r = Selection.MoveRight(wdCharacter, 1, wdExtend)
Char = Selection.Text
While (i <= Max)
uni_code = AscW(Char)
Select Case (uni_code)

Case 1025
ascii_code = 168
Selection.TypeText Text:=ChrW(ascii_code)
Case 1028
ascii_code = 170
Selection.TypeText Text:=ChrW(ascii_code)
Case 1256
ascii_code = 170
Selection.TypeText Text:=ChrW(ascii_code)
Case 1198
ascii_code = 175
Selection.TypeText Text:=ChrW(ascii_code)
Case 1031
ascii_code = 175
Selection.TypeText Text:=ChrW(ascii_code)
Case 1105
ascii_code = 184
Selection.TypeText Text:=ChrW(ascii_code)
Case 1108
ascii_code = 186
Selection.TypeText Text:=ChrW(ascii_code)
Case 1257
ascii_code = 186
Selection.TypeText Text:=ChrW(ascii_code)
Case 1111
ascii_code = 191
Selection.TypeText Text:=ChrW(ascii_code)
Case 1199
ascii_code = 191
Selection.TypeText Text:=ChrW(ascii_code)
Case 1040 To 1103
ascii_code = uni_code - 848
Selection.TypeText Text:=ChrW(ascii_code)
Case Else
r = Selection.MoveRight(wdCharacter, 1, wdMove)
End Select
i = i + 1
r = Selection.MoveRight(wdCharacter, 1, wdExtend)
Char = Selection.Text
Wend
End Sub

Sub ArialMon_to_Arial()
Max = ActiveDocument.Characters.Count
Selection.HomeKey Unit:=wdStory

i = 1
r = Selection.MoveRight(wdCharacter, 1, wdExtend)
Char = Selection.Text

While (i <= Max)

acsii_code = AscW(Char)
Select Case (acsii_code)

Case 168
uni_code = 1025
Selection.TypeText Text:=ChrW(uni_code)
Case 170
uni_code = 1256
Selection.TypeText Text:=ChrW(uni_code)
Case 175
uni_code = 1198
Selection.TypeText Text:=ChrW(uni_code)
Case 184
uni_code = 1105
Selection.TypeText Text:=ChrW(uni_code)
Case 186
uni_code = 1257
Selection.TypeText Text:=ChrW(uni_code)
Case 191
uni_code = 1199
Selection.TypeText Text:=ChrW(uni_code)
Case 192 To 255
uni_code = acsii_code + 848
Selection.TypeText Text:=ChrW(uni_code)
Case Else
r = Selection.MoveRight(wdCharacter, 1, wdMove)
End Select
i = i + 1
r = Selection.MoveRight(wdCharacter, 1, wdExtend)
Char = Selection.Text
Wend

End Sub

Ашигласан эх сурвалж http://tustai.blogspot.com/2008/10/blog-post.html