Ўзбек тилида ҳужжатлар билан ишласангиз, албатта бундай муаммо билан тўқнашгансиз: матн кириллицада ёзилган, лекин лотин керак — ёки аксинча. Юзлаб саҳифаларни қўлда қайта териш мумкин эмас. Ечим — Microsoft Office учун кирилл лотин macros. Бир марта ўрнатилади, конвертация эса сонияларда амалга ошади.

Кирилл лотин macros нима ва у қандай ишлайди

Макрос (macro) — Microsoft Office ичидаги кичик дастур бўлиб, такрорланадиган амалларни автоматик бажаради. Кирилл лотин word macros битта аниқ амални бажаради: ўзбек алифбосининг ҳар бир кирилл ҳарфини мос лотин ҳарфига алмаштиради — ва аксинча. Тескари йўналишда эса лотин кирилл macros лотинчани кириллицага қайтаради.

Бу шунчаки белгиларни қидириш ва алмаштириш эмас. Сифатли макрос ўзбек тилининг хусусиятларини ҳисобга олади: ў → o', ғ → g', ш → sh, ч → ch, нг → ng, ж → j — ва уларнинг барча регистр вариантлари.

Жадвал: ўзбек кириллица ва лотинча

Microsoft Word га кирилл лотин macros ўрнатиш

Қуйида кирилл лотин word macros ўрнатиш бўйича босқичма-босқич кўрсатма. Word 2016, 2019, 2021 ва Microsoft 365 учун мос келади.

1-қадам: Макрос муҳарририни очинг

Microsoft Word да Alt + F11 тугмасини босинг. Visual Basic for Applications (VBA) муҳаррири ойнаси очилади. Бу Office нинг ўрнатилган воситаси — қўшимча ҳеч нарса ўрнатиш шарт эмас.

2-қадам: Янги модуль яратинг

Муҳаррир чап панелида Normal устига ўнг тугма билан босинг → Insert → Module. Код учун бўш майдон очилади.

3-қадам: Макрос кодини жойлаштиринг

Қуйидаги кодни нусхалаб, бўш модуль майдонига жойлаштиринг:

Sub KirilToLotin()
    Dim oDoc As Document
    Dim oRange As Range
    Dim kiril() As String
    Dim lotin() As String
    Dim i As Integer

    ' Муҳим: икки ва уч ҳарфли бирикмалар АВВАЛ келади
    кирилл = Array("Нг", "нг", "Ш", "ш", "Ч", "ч", _
                  "Ғ", "ғ", "Ў", "ў", "Қ", "қ", "Ҳ", "ҳ", _
                  "Е", "е", "Ё", "ё", "Ж", "ж", "Я", "я", "Ю", "ю", _
                  "А", "а", "Б", "б", "В", "в", "Г", "г", "Д", "д", _
                  "З", "з", "И", "и", "Й", "й", "К", "к", "Л", "л", _
                  "М", "м", "Н", "н", "О", "о", "П", "п", "Р", "р", _
                  "С", "с", "Т", "т", "У", "у", "Ф", "ф", "Х", "х", _
                  "Э", "э", "ъ", "Ъ")

    лотин  = Array("Ng", "ng", "Sh", "sh", "Ch", "ch", _
                  "G'", "g'", "O'", "o'", "Q", "q", "H", "h", _
                  "Ye", "ye", "Yo", "yo", "J", "j", "Ya", "ya", "Yu", "yu", _
                  "A", "a", "B", "b", "V", "v", "G", "g", "D", "d", _
                  "Z", "z", "I", "i", "Y", "y", "K", "k", "L", "l", _
                  "M", "m", "N", "n", "O", "o", "P", "p", "R", "r", _
                  "S", "s", "T", "t", "U", "u", "F", "f", "X", "x", _
                  "E", "e", "", "")

    Set oDoc = ActiveDocument
    Set oRange = oDoc.Content

    With oRange.Find
        .MatchCase = True
        For i = 0 To UBound(kiril)
            .Text = kiril(i)
            .Replacement.Text = lotin(i)
            .Execute Replace:=wdReplaceAll
        Next i
    End With

    MsgBox "Tugadi: kiritilsa  → Lotin!", vbInformation
End Sub

Sub LotinToKiril()
    Dim oDoc As Document
    Dim oRange As Range
    Dim lotin() As String
    Dim kiril() As String
    Dim i As Integer

    ' Муҳим: икки ва уч ҳарфли бирикмалар АВВАЛ келади
    лотин  = Array("Ng", "ng", "Sh", "sh", "Ch", "ch", _
                  "G'", "g'", "O'", "o'", "Q", "q", "H", "h", _
                  "Ye", "ye", "Yo", "yo", "J", "j", "Ya", "ya", "Yu", "yu", _
                  "A", "a", "B", "b", "V", "v", "G", "g", "D", "d", _
                  "Z", "z", "I", "i", "Y", "y", "K", "k", "L", "l", _
                  "M", "m", "N", "n", "O", "o", "P", "p", "R", "r", _
                  "S", "s", "T", "t", "U", "u", "F", "f", "X", "x", _
                  "E", "e")

    кирилл = Array("Нг", "нг", "Ш", "ш", "Ч", "ч", _
                  "Ғ", "ғ", "Ў", "ў", "Қ", "қ", "Ҳ", "ҳ", _
                  "Е", "е", "Ё", "ё", "Ж", "ж", "Я", "я", "Ю", "ю", _
                  "А", "а", "Б", "б", "В", "в", "Г", "г", "Д", "д", _
                  "З", "з", "И", "и", "Й", "й", "К", "к", "Л", "л", _
                  "М", "м", "Н", "н", "О", "о", "П", "п", "Р", "р", _
                  "С", "с", "Т", "т", "У", "у", "Ф", "ф", "Х", "х", _
                  "Э", "э")

    Set oDoc = ActiveDocument
    Set oRange = oDoc.Content

    With oRange.Find
        .MatchCase = True
        For i = 0 To UBound(lotin)
            .Text = lotin(i)
            .Replacement.Text = kiril(i)
            .Execute Replace:=wdReplaceAll
        Next i
    End With

    MsgBox "Tugadi: Лотин → kiritilsa !", vbInformation
End Sub

4-қадам: Сақланг ва ишга туширинг

Сақлаш учун Ctrl + S ни босинг. VBA муҳарририни ёпинг. Word ҳужжатига қайтинг.

Ишга тушириш учун: Кўриш → Макрослар → Макросларни кўриш → KirilToLotin ёки LotinToKiril ни танланг → Бажариш тугмасини босинг.

Тезкор кириш панелига тугма қўшиш

Ҳар сафар меню орқали ишга тушириш ноқулай. Тугмани тўғридан-тўғри асбоблар панелига қўшинг:

• Тезкор кириш панели устига (юқори чап) ўнг тугма босинг → Тезкор кириш панелини созлаш
• "Буйруқларни танлаш" рўйхатида Макрослар ни танланг
• KirilToLotin ва LotinToKiril ни топинг, иккаласини Қўшиш тугмаси билан қўшинг
• OK тугмасини босинг

Энди конвертация — панелдан бир марта босиш.

Excel va PowerPoint учун кирилл лотин macros

Худди шу тамойил Office нинг бошқа дастурларида ҳам ишлайди. Excel да Alt + F11 орқали муҳарририни очинг, худди шу кодни жойлаштиринг — у фаол варақдаги катакчалардаги матнларга қўлланилади. PowerPoint да макрос слайдлардаги матн билан ишлайди.

Кирилл лотин word macros ҳақида тез-тез бериладиган саволлар

Макрос ишга тушмайди — нима қилиш керак?

Эҳтимол, Word да макрослар хавфсизлик сабаби билан ўчирилган. Файл → Параметрлар → Хавфсизлик бошқарув маркази → Хавфсизлик бошқарув маркази параметрлари → Макрос параметрлари га киринг ва "Барча макросларни ёқиш" ёки "Барча макросларни билдиришнома билан ўчириш" ни танланг.

Конвертациядан кейин баъзи сўзлар нотўғри кўринади

Бу матнда ўзбек сўзлари билан аралаш рус сўзлари бўлса юз беради — макрос тилларга қарамасдан барча мос белгиларни алмаштиради. Ечим: ишга туширишдан аввал фақат керакли матн қисмини ажратинг, шунда макрос фақат ажратилган қисмга қўлланилади.

Ҳар бир ҳужжат учун макросни қайта ўрнатиш керакми?

Йўқ. Макрос Normal.dotm шаблонида сақланади ва компьютерингиздаги барча Word ҳужжатларида автоматик мавжуд бўлади.

Макросга альтернативалар

Онлайн кириллица–лотин конвертерлари мавжуд, лекин уларнинг камчиликлари бор: интернет керак, катта ҳужжатлар секин конвертация қилинади ва энг муҳими — матн форматлаш (қалин, курсив, жадваллар, шрифт ўлчами) нусхалашда йўқолади. Кирилл лотин macros барча бу камчиликлардан холи: у тўғридан-тўғри Word ҳужжати ичида ишлайди ва барча форматлашни йўқотмасдан сақлайди.

Хулоса

Microsoft Office да ўзбек ҳужжатлари билан мунтазам ишлайдиган ҳар бир киши учун ажралмас восита. Ўрнатиш 5 дақиқа вақт олади, лекин соатлаб қўлда ишдан тежайди. Бир марта созладингиз — ҳар қандай компьютерда йиллар давомида фойдаланасиз.