Asosiy qism microsoft Word dasturi va imkoniyatlari

Вид>Макросы
 
bo`limiga, makrosni nomini yozib, 
Создать
tugmasini bosamiz. Bizga quyidagi( 
3-9-rasm) oyna ochiladi va uyerga (kursor turgan yerga) quyidagi kodni yozamiz. 
3-9-rasm. 
Sub matn_uzunligi() 
' 
' matn_uzunligi
Макрос

---

44 
' 
Dim a As Single 
a = Len(Selection.Text) 
MsgBox (a) 
EndSub 
Bu tuzilgan dastur(makros)da:
Sub matn_uzunligi()- dasturning nomini bildiradi. Ya’ni yuqoridagi dasturda 
dastur nomi matn_uzunligi;
Dim a As Single – o`zgaruvchi e’lon qilinadi. A o`zgaruvchining Single tipiga 
tegishli ekanligini bildiradi. Single tipi -3.402823E38 dan +3.402823E38 gacha 
qiymatlarni qabul qiladi;
a = Len(Selection.Text) — a o`zgaruvchiga qiymat beriladi. Bu yerda 
Selection.Text xujjatdagi belgilangan matn. Len(Selection.Text) belgilangan 
matnning uzunligi; 
MsgBox (a) — a ning qiymatini xabar oynasida chiqaradi;
End Sub — dastur ishini o`z nixoyasiga etkazadi; 
Dasturni ishga tushirish uchun matnni belgilab Alt+F8 ni yoki