Asosiy qism microsoft Word dasturi va imkoniyatlari

Назначить
tugmasini bosib oxiri
Закрить
ni bosamiz. 
U quyidagi 4-2-rasmda ko`rsatilgan.

---

49 
4-2-rasm
Izoh: Klavishlar birikmasi tanlangandan so`ng 
Назначить
 tugmasini bosish 
shart. 
Endi asosiy vazifani kirilldan lotinga o`tkazishni boshlaymiz. Buning uchun 
CTRL+H tugmasi yoki 
Главная
menyusidan 
заменить
tugmasini bosish orqali 
Найти и заменить
oynasi ochiladi. Bu oynadagi 
Найти
bo`limiga Kirill 
alfavitidan “a” ni yozib, 
заменить на
bo`limiga Lotin alfavitidan “a” yozib 
заменить все
 tugmasini bosamiz. Shu tariqa barcha harflarni tartib bilan ketma-
ket almashtirib chiqamiz. Microsoft Visual Basic for Applications oynasida “a” 
harfini almashtirish kodi quyidagicha bo`ladi: 
Sub Kirilldan–Lotinga() 
' 
' Kirilldan–Lotinga 
макрос
' 

---

50 
' 
Selection.Find.ClearFormatting 
Selection.Find.Replacement.ClearFormatting 
With Selection.Find 
.Text = "a" 
.Replacement.Text = "
а
" 
.Forward = True 
.Wrap = wdFindContinue 
.Format = False 
.MatchCase = False 
.MatchWholeWord = False 
.MatchWildcards = False 
.MatchSoundsLike = False 
.MatchAllWordForms = False 
End With 
Selection.Find.Execute Replace:=wdReplaceAll 
With Selection.Find 
.Text = "
ю
" 
.Replacement.Text = "yu" 
.Forward = True 
.Wrap = wdFindContinue 
.Format = False 
.MatchCase = False 
.MatchWholeWord = False 
.MatchWildcards = False 
.MatchSoundsLike = False 
.MatchAllWordForms = False 
End With 
Izoh: Imkon qadar juft harflarni avval almashtirib olish kerak shunda hatoliklar 
kam bo`ladi. 

---

51 
Barcha harflarni almashtirgach makros yozishni to`xtatish uchun menyular satridan