O'zbek tilida hujjatlar bilan ishlasangiz, albatta bunday muammo bilan to'qnashgansiz: matn kiritilsa da yozilgan, lekin lotin kerak — yoki aksincha. Yuzlab sahifalarni qo'lda qayta terish mumkin emas. Yechim — Microsoft Office uchun kiril lotin macros. Bir marta o'rnatiladi, konvertatsiya esa soniyalarda amalga oshadi.

Kiril lotin macros nima va u qanday ishlaydi

Makros (macro) — Microsoft Office ichidagi kichik dastur bo'lib, takrorlanadigan amallarni avtomatik bajaradi. Kiril lotin word macros bitta aniq amalni bajaradi: o'zbek alifbosining har bir kirill harfini mos lotin harfiga almashtiradi — va aksincha. Teskari yo'nalishda esa lotin kiril macros lotinchani kiritilsa ga qaytaradi.

Bu shunchaki belgilarni qidirish va almashtirish emas. Sifatli makros o'zbek tilining xususiyatlarini hisobga oladi: ў → o', ғ → g', ш → sh, ч → ch, нг → ng, ж → j — va ularning barcha registr variantlari.

Jadval: o'zbek kiritilsa va lotincha

Microsoft Word ga kiril lotin macros o'rnatish

Quyida kiril lotin word macros o'rnatish bo'yicha bosqichma-bosqich ko'rsatma. Word 2016, 2019, 2021 va Microsoft 365 uchun mos keladi.

1-qadam: Makros muharririni oching

Microsoft Word da Alt + F11 tugmasini bosing. Visual Basic for Applications (VBA) muharriri oynasi ochiladi. Bu Office ning o'rnatilgan vositasi — qo'shimcha hech narsa o'rnatish shart emas.

2-qadam: Yangi modul yarating

Muharrir chap panelida Normal ustiga o'ng tugma bilan bosing → Insert → Module. Kod uchun bo'sh maydon ochiladi.

3-qadam: Makros kodini joylashtiring

Quyidagi kodni nusxalab, bo'sh modul maydoniga joylashtiring:

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

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

    lotin = 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

    ' Muhim: ikki va uch harfli birikmalar AVVAL keladi
    lotin = 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")

    kiril = 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: Lotin → kiritilsa !", vbInformation
End Sub

4-qadam: Saqlang va ishga tushiring

Saqlash uchun Ctrl + S ni bosing. VBA muharririni yoping. Word hujjatiga qayting.

Ishga tushirish uchun: Ko'rish → Makroslar → Makroslarni ko'rish → KirilToLotin yoki LotinToKiril ni tanlang → Bajarish tugmasini bosing.

Tezkor kirish paneliga tugma qo'shish

Har safar menyu orqali ishga tushirish noqulay. Tugmani to'g'ridan-to'g'ri asboblar paneliga qo'shing:

• Tezkor kirish paneli ustiga (yuqori chap) o'ng tugma bosing → Tezkor kirish panelini sozlash
• "Buyruqlarni tanlash" ro'yxatida Makroslar ni tanlang
• KirilToLotin va LotinToKiril ni toping, ikkalasini Qo'shish tugmasi bilan qo'shing
• OK tugmasini bosing

Endi konvertatsiya — paneldan bir marta bosish.

Excel va PowerPoint uchun kiril lotin macros

Xuddi shu tamoyil Office ning boshqa dasturlarida ham ishlaydi. Excel da Alt + F11 orqali muharririni oching, xuddi shu kodni joylashtiring — u faol varaqdagi katakchalardagi matnlarga qo'llaniladi. PowerPoint da makros slaydlardagi matn bilan ishlaydi.

Kiril lotin word macros haqida tez-tez beriladigan savollar

Makros ishga tushmaydi — nima qilish kerak?

Ehtimol, Word da makroslar xavfsizlik sababi bilan o'chirilgan. Fayl → Parametrlar → Xavfsizlik boshqaruv markazi → Xavfsizlik boshqaruv markazi parametrlari → Makros parametrlari ga kiring va "Barcha makroslarni yoqish" yoki "Barcha makroslarni bildirishnoma bilan o'chirish" ni tanlang.

Konvertatsiyadan keyin ba'zi so'zlar noto'g'ri ko'rinadi

Bu matnda o'zbek so'zlari bilan aralash rus so'zlari bo'lsa yuz beradi — makros tillarga qaramasdan barcha mos belgilarni almashtiradi. Yechim: ishga tushirishdan avval faqat kerakli matn qismini ajrating, shunda makros faqat ajratilgan qismga qo'llaniladi.

Har bir hujjat uchun makrosni qayta o'rnatish kerakmi?

Yo'q. Makros Normal.dotm shablonida saqlanadi va kompyuteringizdagi barcha Word hujjatlarida avtomatik mavjud bo'ladi.

Makrosga alternativalar

Onlayn kiritilsa –lotin konverterlari mavjud, lekin ularning kamchiliklari bor: internet kerak, katta hujjatlar sekin konvertatsiya qilinadi va eng muhimi — matn formatlash (qalin, kursiv, jadvallar, shrift o'lchami) nusxalashda yo'qoladi. Kiril lotin macros barcha bu kamchiliklardan xoli: u to'g'ridan-to'g'ri Word hujjati ichida ishlaydi va barcha formatlashni yo'qotmasdan saqlaydi.

Xulosa

Microsoft Office da o'zbek hujjatlari bilan muntazam ishlaydigan har bir kishi uchun ajralmas vosita. O'rnatish 5 daqiqa vaqt oladi, lekin soatlab qo'lda ishdan tejaydi. Bir marta sozladingiz — har qanday kompyuterda yillar davomida foydalanasiz.