Dokument demonstreerib makrode kasutamist Wordis

Tegemist on nö „üürnik“ rakendustega, mis kasutavad Wordi konteinerina. Rakenduse kasutajaliidesed on realiseeritud vormide abil ning Wordi vahendeid praktiliselt ei kasuta.

Programm Rehmaatika võimaldad teha liitmise harjutusi aja peale. Programm kuvab dialoogiboksis järjest liitmise tehteid, kasutaja peab võimalikult kiiresti sisestama vastuseid. Iga õige vastuse korral liigub ühe sammu paremale, vale vastuse korral teeb Juku sammu tagasi. Eesmärgiks on, et Juku jõuaks võimalikult kiiresti vormi parema servani. Kasutaja saab valida liidetavate suurust. Programm kuvab katsete arvu ja aja

Käivitamiseks klõpsa nuppu:

Teine õpeotstarbeline rakendus demonstreerib graafikaobjektide kasutamist vormil ning animatsioone. Imiteeritakse karistuslöökide sooritamist. Pall liigub järjest värava suunas juhusliku punkti. Programm loendab lööke, tabamusi ja mööda läinud lööke.

Käivitamiseks klõpsa nuppu:

Sub Jalka_1() lööke = 0: tabas = 0: mööda = 0 pall.Left = 80: pall.Top = 380 paus 1 Do pall.Left = 50 + 350 * Rnd() pall.Top = 30 + 120 * Rnd() lööke = lööke + 1 If On_sees(pall, varav) Then tabas = tabas + 1 Hyppa Kraps, 5, 20 Hyppa Juku, 3, 30 Else mööda = mööda + 1 End If If lööke = max Then pall.Left = 80: pall.Top = 380 Exit Sub End If paus 1 pall.Left = 80: pall.Top = 380 paus 1 Loop End Sub	Function On_sees(O1, O2) Dim th, tv th = O1.Left > O2.Left And O1.Left + _ O1.Width < O2.Left + O2.Width tv = O1.Top > O2.Top And O1.Top + _ O1.Height < O2.Top + O2.Height If th = True And tv = True Then Sub paus(pp) Dim pl pl = Timer + pp Do DoEvents Loop While Timer < pl End Sub On_sees = True Else On_sees = False End If End Function Sub Hyppa(kuju, n, h) Dim i For i = 1 To n kuju.Top = kuju.Top - h paus 0.2 kuju.Top = kuju.Top + h paus 0.2 Next i End Sub