Wordни очамиз

.Text = "й"

.Replacement.Text = "q"

Қаторларда турганини кўриш мумкин. Бу харфларни алмаштириб макросни ишга солсак янги харфларни алмаштиради. Масалан, «й» ўрнига «ц», «q» ўрнига «w» харфларини қўйиб Wordнинг асосий ойнасига қайтиб «Панель быстрого запуска» бўлимидан макрос тугмасини боссак матндаги «ц» ўрнига «w» харфларини қўйиб чиқади.

Демак ушбу код харфларни алмаштириш коди экан. Ундан барча харфларни алмаштиришда фойдаланамиз. Бунинг учун дастурнинг кўк ранггга бўялган қисмини ажратиб қирқиб оламиз(Ctrl+x билан ёки менюда қайчи шаклидан «қирқиб олиш» тугмаси билан).

Sub Макрос1()

'

' Макрос1 Макрос

'

'

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "й"

.Replacement.Text = "q"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Макросни ичи бўш қолади. Унинг сарлавхаси «Sub Макрос1()» ёзилган қаторни бироз пастга тушириб ўрнига «Sub alm(a As String, b As String)» буйруғини ёзамиз. Кейинги қаторларга қирқиб олинган кодни қўямиз, сунг «End Sub» буйруғини ёзамиз. Дастурдаги "й" ўрнига a, "q" ўрнига b ёзамиз. Хуллас ўзгаришларни бажариб бўлгач дастур қуйидаги холга келиши керак:

Энди пастдаги Makros ичига(«end sub»dan олдин) ушбу дастур матнини

Dim l As String, k As String

lt = "`qwertyuiop[]asdfghjkl;'zxcvbnm,./"

kr = "ёйцукенгшщзхъфывапролджэячсмитьбю."

For i = 1 To Len(lt)

l = Mid(lt, i, 1)

k = Mid(kr, i, 1)

alm l, k

Next

ёзамиз.

Шундан сўнг макрос дастурининг сўнгги кўриниши қуйидагича бўлади:

Wordнинг асосий ойнасига қайтиб «Тезкор панел»дан макроснинг тугмасини босамиз. У матндаги барча нотўғри киритилган сўзларни тўгрилаб беради. Фақат Криллда киритилиши керак бўлиб лотинда киритиб қуйилган матнни тўғрилайди. Агарда сизга аксинча зарур бўлса, унда яна бир макрос яратамиз.