Otsingumoodul pole installitud.
VBA Word, kuidas seda teha
(Lõpeb. Algab nr 7)
Sündmused
Sündmus on objekti poolt äratuntav tegevus (näiteks hiireklõps menüüribal, klahvivajutus, uue dokumendi avamine, kasutaja rakenduse sulgemine), millele saab programmeerida vastuse. Sündmuse toimumisel aktiveerub meetod, st. hakatakse täitma objektiga seotud eelmääratletud programme ja funktsioone.
Meetodi aktiveerimine võib toimuda mitte ainult kasutaja tegevuse tulemusena, vaid ka siis, kui toimub mõni sündmus, näiteks tõrge programmis või teatud aja saabumine vms, sel juhul öeldakse, et meetod on aktiveeritud süsteemi poolt. Sündmuste käsitlemise protseduuridele pääseb juurde VBA redaktorist. Objekti, näiteks vormi programmeerimisel on meil juurdepääs tervele sündmuste protseduuride loendile. Põhimõtteliselt ei erine erinevate objektide sündmuste toimumise põhjused üksteisest, nende toimumise põhjuseks jääb samaks hiireklõps, klahvivajutus, objekti fookuse muutmine jne, kuid nende töötlemise protseduurid jagunevad vastavalt. nende kuulumisele objektile.
Selle vormi väljal ja käsunupu hiireklõpsule saab reageerida erineval viisil, näiliselt sama sündmuse töötlemise protseduurid on erinevad, sest kuuluvad erinevatele objektidele. Samuti on sündmuste toimumise jada, mida tuleb nende programmeerimisel arvesse võtta. Näiteks Click sündmusele eelneb sündmus MouseDown ja MouseUp sündmus. Kuid tuleb märkida, et programmi kirjutamisel pole üldse vaja kõiki sündmusi arvesse võtta, peate lihtsalt valima need, mida tööks tõesti vajate. Saate teha ilma sündmuste töötlemist programmeerimata, kuid niipea, kui otsustate kirjutada programmi, mis sisaldab kasutajavorme, seisate kohe silmitsi vajadusega programmeerida sündmuste töötlemise protseduure.
Objektiklassid
Teine oluline mõiste objektorienteeritud programmeerimisel on klassid. Klass on mall, millest luuakse programmi täitmise käigus objekt. Klass määratleb objekti omadused ja meetodid. Kui võtta näide elust, siis esemete klassina võime võtta kooliklassi, kus objektideks on õpilased, igaühel on oma omadused, mis on ainuomased. Samuti on igal klassi objektil üks või mitu identset omadust, näiteks vanus, mis määrab, kas objekt kuulub klassi.
Objekti, mis on loodud klassist, nimetatakse klassi eksemplariks.
Rakendusobjekti mudel
Enne kui hakkate rakendusega töötamiseks automatiseerimisprogramme looma, peate tutvuma rakenduse objektimudeliga (klassihierarhiaga). Klassihierarhia määratleb objektidevahelised seosed ja sisaldab teavet juurdepääsu kohta teistele objektidele. VBA kasutab selleks objektibrauserit.
Objektide vaatamise aken kuvatakse järgmiselt:
1. Aktiveerige Visual Basicu redaktori aken.
2. Valige käsk View\View Objects (või vajutage klahvi F2).
Ekraanile ilmub aken View Objects (joonis 1).
3. Valige vasakus ülanurgas asuvast raamatukogude loendist soovitud teek.
Klasside aknas kuvatakse kõigi valitud teegi klasside loend.
4. Valige loendist Klassid soovitud klass.
Vaateakna paremasse serva ilmub valitud klassi komponentide loend, st. selle omadused, konstandid ja meetodid.
5. Valige komponentide loendist vajalik rida.
Lisateavet kuvatakse allpool asuvas abiaknas.
Kui vajate klassikomponendi kohta üksikasjalikku teavet, klõpsake nuppu " küsimärk" tööriistaribal.
PROGRAMMEERIMINE WORDIS.
Sõnaobjekti mudel
Wordi rakenduses peame töötama selle objektidega. Seetõttu vaatame neid üksikasjalikumalt.
Joonisel fig. Joonis 2 näitab Wordi objektide täielikku mudelit. Peamine objekt, mis seisab objektide hierarhilise püramiidi tipus, on Word ise, mida peetakse rakenduseks (Application), järgmine tase Esitatakse objektide komplektid (Dokumendid, Dialoogid, Windows jne) ja üksikud objektid (nt Valik). Igaüks neist sisaldab ka suurt hulka objekte, omadusi ja meetodeid. Näiteks sisaldab objekt Dokumendid sellega seotud objekte, nagu sõnad, lõigud, järjehoidjad, märgid, dokument jne. Need objektid sisaldavad omakorda rohkem objekte, omadusi ja meetodeid. Sarnaseid objekte sisaldavaid objekte nimetatakse komplektideks või kogumiks (Kogu), neid eristatakse mitmuses kirjutatud nimega (näiteks Dokumendid, Windows, Sõnad). Kasutades Collection objektile omaseid omadusi ja meetodeid, saab sealt valida töötlemiseks ühe konkreetse objekti. Erinevad kogud võivad sisaldada samu objekte, näiteks objekt Words kuulub kogusse Dokumendid, on seotud objektiga Selection ja objektiga Vahemik. Sõnaobjekt on ise objektide kogum. See, et objekt kuulub kollektsiooni, ei tähenda, et seda peetakse millegi muu osaks.
Terve Wordi objektimudeli nägemiseks kasutame Visual Basicu redaktoris Object Vieweri akent.
Visual Basicu redaktori aknas klõpsake nuppu Vaata objekte ja valige loendi Vali teek hüpikmenüüst Word. Akna paremas servas pealkirja Klassid all kuvatakse kõik Wordi objektide komplektid ja vasakul - kõik valitud objekti omadused ja meetodid.
Liigume edasi Wordi objektide peamiste objektide ja kogude, nende meetodite ja omaduste ning kasutusnäidete kirjelduse juurde.
Rakendusobjekt
Nagu eespool öeldud, esindab see objekt Wordi rakendust. Rakenduse objekt sisaldab atribuute ja meetodeid, mis tagastavad tipptaseme objekte.
Näiteks atribuut ActiveDocument tagastab dokumendi objekti ja atribuut nimega Application kasutatakse rakenduse objekti tagastamiseks. Järgmine näide näitab Wordi kasutajanime. See nimi salvestatakse vahekaardi Kasutaja menüüsse Tööriistad/Valikud. MsgBoxi juhis on VBA funktsioon, mis kuvab dialoogiboksi sõnumiga MsgBox Application.UserName (joonis 3).
Paljusid atribuute ja meetodeid, mis tagastavad kõige tavalisemad kasutajaliidese objektid (nt aktiivne dokument (atribuut ActiveDocument)), saab kasutada ilma rakenduse objekti spetsifikaatorita.
Näiteks selle asemel, et kirjutada Application.ActiveDocument.PrintOut, võite lihtsalt kirjutada ActiveDocument.PrintOut. Atribuudid ja meetodid, mida saab kasutada ilma rakenduse objekti spetsifikaatorita, loetakse "globaalseteks". Globaalsete omaduste ja meetodite vaatamiseks objektivaaturis klõpsake real<глобальные>loendi ülaosas blokis Klassid.
Rakenduse objektil on üle 80 atribuudi, mis kajastavad kõiki rakenduse sätteid. Loetleme mõned neist (tabel 1).
Kuidas saate rakenduse objekti omadusi programmis midagi tehes muuta? Selleks saab kasutada mitmeid eriprotseduure. Nendel protseduuridel on spetsiaalsed nimed ja need sooritatakse mõne toimingu ajal automaatselt (tabel 3).
Sisestades nendesse makrodesse VBA juhiste stringe, saate objekte mõjutada, näiteks uue dokumendi loomisel eemaldada ekraanilt kerimisribad ja olekuriba, kirjutades moodulisse Tavaline järgmine makro:
Avalik alamautomaatne uus()
Application.DisplayScrollBars = Vale
Application.DisplayStatusBar = Vale
Tegelikult saate need makrod salvestada mis tahes malli või dokumenti. Erandiks on AutoExeci makro, mis töötab ainult malli Normal.dot alusel, mis on salvestatud käivituskaustavana määratud kausta.
Sarnaseid toiminguid saab teha rakenduse objekti sündmuste haldamise protseduuride abil.
Rakenduse objektil on vähe sündmusi (tabel 4).
Rakenduse objekti sündmustele vastuse programmeerimiseks peate esmalt tegema mitu toimingut:
1. Deklareerige klassimoodulis objektimuutuja.
2. Kirjutage üles sündmuste töötlemise protseduurid.
3. Initsialiseerige deklareeritud objekt teisest moodulist.
Kuidas deklareerida objekti muutujat
Selleks tuleb luua uus klassimoodul ja deklareerida objekti tüüpi Application koos sündmustega. Selleks vali Insert menüüst rida Class Module ning aknas Programm for a new class module sisesta järgmine kood (joonis 4):
Avalik koos sündmuste rakendusega Word.Application
Kutsuge välja atribuutide aken ja muutke atribuut Name klass1 väärtusest EventClassModule.
Ürituse protseduuride kirjeldus
Pärast uus objekt on deklareeritud sündmustega, kuvatakse see programmi aknas ripploendis Objektid ja saate kirjutada uue objekti jaoks sündmuste protseduurid. (Kui valite loendist Objektid uue objekti, kuvatakse selle jaoks kehtivad sündmused ripploendis Protseduurid.) Valige ripploendist Protseduurid sündmus ja klassi moodulisse lisatakse tühi protseduur (joonis 5). Sündmuse käsitlemiseks saate kirjutada vajaliku koodi.
Deklareeritud objekti lähtestamine
Enne protseduuri käivitamist on vaja ühendada klassimoodulis deklareeritud objekt (nimetame seda rakenduseks) rakenduse objektiga. Seda teeb mis tahes moodulist järgmine kood.
Dim X kui uus EventClassModule
Alamregister()
Määra X.App = Word.Application
Nüüd jääb üle vaid registreerimisprotseduur lõpule viia. Saate seda käivitada menüüst või helistada mõne muu mooduli protseduuri kaudu. Rakenduse objekt klassimoodulis osutab seejärel Wordi rakenduse objektile ja sündmuste toimumisel käivitatakse klassimooduli sündmuseprotseduurid.
Dokumentide kogumise objektid
Dokumendid on kõigi praegu Wordis avatud dokumendiobjektide kogu.
Sellel komplektil on oma omadused, meetodid ja sündmused.
Komplektil Dokumendid on vähe atribuute (tabel 5).
Saate kasutada atribuuti Dokumendid dokumentide kogu tagastamiseks. Järgmine näide näitab avatud dokumentide nimesid
Iga aDoc jaoks dokumentides
aName = aName & aDoc.Name & vbCr "vbCr on konstant, mis määratleb käru tagastusmärgi (kood 13)
Komplektis Dokumendid on veidi rohkem meetodeid (tabel 6).
Uue loomiseks kasutatakse meetodit Lisa tühi dokument ja lisades selle komplekti Dokumendid. Järgmine näide loob uue dokumendi malli Normal.dot alusel.
Lisa meetodi süntaks:
väljend.Lisa(mall, uus mall)
väljend – avaldis, mis tagastab objekti Dokumendid.
Mall - ei nõutav parameeter. Sisaldab uue dokumendi jaoks kasutatava malli nime. Kui parameeter on välja jäetud, kasutatakse Normal.dot.
NewTemplate on valikuline parameeter. Kui parameeter on Tõene, avaneb dokument mallina. Vaikeväärtus on False.
Üksuse meetodit kasutatakse konkreetse üksuse valimiseks komplektist. Elementi saab tuvastada nime või selle numbri järgi komplektis.
Meetodi süntaks:
väljend.Üksus(indeks)
Avaldis – avaldis, mis tagastab objekti Dokumendid.
Indeks – seatud elemendi nimi või indeksi number.
Üksuse meetod on komplektide jaoks vaikemeetod. Seetõttu on järgmised kaks koodirida samaväärsed.
Taotlus. Dokumendid (1)
Taotlus.Dokumendid.Üksus(1)
Samaväärsed on ka järgmised read:
Application.Documents ("Aruanne.doc")
Application.Documents.Item("Aruanne.doc")
Avage dokumendifailid Open-meetodil.
Avatud meetodi süntaks on järgmine:
expression.Open(Failinimi, ConfirmConversions, Readonly, AddTo RecentFiles, PasswordDocument, Password Template, Revert, WritePasswordDocument, WritePassword Template, Format)
avaldis on avaldis, mis tagastab objekti Dokumendid.
FileName – nõutav parameeter "faili nimi". See parameeter määrab dokumendi tee. Saate salvestada mitu faili, eraldades failinimed tühikutega.
ConfirmConversions on valikuline parameeter, mille väärtus võib olla Tõene, kui soovite kuvada dialoogiboksi Faili teisendamine, kui fail pole Wordi vormingus.
ReadOnly on valikuline parameeter. Võrdne väärtusega Tõene, kui fail avatakse kirjutuskaitstud kujul.
AddToRecentFiles – valikuline parameeter; kui võrdne väärtusega Tõene, lisatakse fail menüü Fail allservas olevasse failide loendisse.
PasswordDocument on valikuline parameeter. Sisaldab parooli dokumendi avamiseks.
PasswordTemplate on valikuline parameeter. Sisaldab parooli malli avamiseks.
Revert on valikuline parameeter. Kui FileName sisaldab juba avatud dokumendi failinime, siis kui parameeter on Tõene, avatakse dokument uuesti ilma tehtud muudatusi salvestamata. Kui parameetri väärtus on False, siis aktiveeritakse juba avatud dokument.
WritePasswordDocument on valikuline parameeter. Sisaldab dokumendimuudatuste salvestamisel nõutavat parooli.
WritePasswordTemplate on valikuline parameeter. Sisaldab parooli malli muudatuste salvestamiseks.
Vorming on valikuline parameeter. Sisaldab konverterit faili teisendamiseks. Võib kirjutada ühe konstantina: wdOpenFormatAuto, wdOpenFormatDocument, wdOpenFormatRTF, wdOpenFormatTemplate, wdOpenFormatText või wdOpenFormatUnicodeText. Vaikeväärtus on wdOpenFormatAuto.
Välise failivormingu määramiseks kasutage FileConverter objekti atribuuti OpenFormat, mis tagastab sellele parameetrile kirjutatud väärtuse.
Järgmine kood avab faili Sales.doc. Faili nimi on märgitud jutumärkides.
Documents.Open FileName:="C:\My Documents\Sales.doc" " avab dokumendi "Müük.doc"
Järgmine näide läbib kogus Dokumendid olevaid dokumente, et leida kogust nimega "Aruanne.doc" dokument. Kui see dokument on kogus Dokumendid, siis see aktiveeritakse, kui mitte, siis dokument avatakse.
Iga dokumendi jaoks dokumentides
Kui doc.Name = "Report.doc" Siis leitud = Tõene
Kui leitakse<>Tõsi Siis
Documents.Open FileName:="C:\Documents\Report.doc"
Documents("Aruanne.doc").Aktiveeri
Sulemeetodit kasutatakse dokumentide sulgemiseks ja sellel on süntaks:
expression.Close(SaveChanges, OriginalFormat, RouteDocument)
avaldis – avaldis, mis tagastab objekti Dokumendi või Dokumendid.
SaveChanges on valikuline parameeter. Määrab dokumendi salvestamisel tehtava toimingu. See võib olla üks järgmistest WdSaveOptions konstantidest:
WdDoNotSaveChanges (ära salvesta muudatusi);
WdPromptToSaveChanges (näitab dialoogiboksi, mis palub teil muudatused salvestada);
WdSaveChanges (salvestage ilma viipata).
OriginalFormat on valikuline parameeter. Määrab dokumendi salvestamise vormingu. Võib olla üks järgmistest wdOriginalFormati konstantidest: wdOriginalDocumentFormat, wdPromptUser, wdWordDocument.
RouteDocument on valikuline parameeter. Tõene, kui dokument edastatakse järgmisele adressaadile.
Järgmine koodirida sulgeb dokumendi nimega "Report.doc" muudatust salvestamata. See määrab parameetri SaveChanges, millele on konstandiga määratud väärtus "ära salvesta muudatusi".
Documents("Report.doc"). Sulge SaveChanges: = wdDoNotSaveChanges
Salvestamismeetodit kasutatakse ühe või kõigi dokumentide salvestamiseks. Meetodil on mitut tüüpi salvestamist, sõltuvalt oodatavast tulemusest.
1. Väljend.Salvesta.
Seda tüüpi kirje salvestab määratud dokumendi või malli. Kui dokumenti või malli pole varem salvestatud, küsib dialoogiboks Salvesta nimega kasutajalt failinime.
Siin on avaldis avaldis, mis tagastab dokumendi või malli objekti.
2. Väljend.Salvesta(NoPrompt, OriginalFormat).
See kirje salvestab kõik dokumendid komplektis Dokumendid. Kui dokumenti pole varem salvestatud, küsib dialoogiboks Salvesta nimega kasutajalt failinime. See kirje sisaldab ka kahte valikulist parameetrit.
NoPrompt parameeter. Kui sellel parameetril on väärtus Tõsi, siis salvestab Word automaatselt kõik dokumendid. Kui parameetri väärtus on False, palub Word kasutajal salvestada iga muudetud dokument.
Parameeter OriginalFormat määrab dokumentide salvestamise tee. Võib olla võrdne ühega järgmistest wdOriginalFormat konstantidest: wdOriginalDocumentFormat, wdPromptUser või wdWordDocument.
3. Väljend. Salvesta(kommentaar)
See kirje salvestab määratud dokumendi versiooni koos kommentaaridega.
Järgmine näide salvestab aktiivse dokumendi.
ActiveDocument.Save
Järgmine näide salvestab iga dokumendi kogusse Dokumendid ilma kasutajat küsimata.
Documents.Save NoPrompt:=True, OriginalFormat:=wdOriginalDocumentFormat
Kui fail Sales.doc on avatud, salvestab järgmine kood faili versiooni koos sellele lisatud kommentaaridega.
Iga dokumendi jaoks jaotises Dokumendid
Kui Instr(1, doc.Name, "Sales.doc", 1) > 0 Siis
doc.Versions.Save Comment:="väikesed muudatused"
Dokumendi objekt
Esindab dokumendi objekti, kogu Dokumendid elementi. Erinevalt komplektist Dokumendid on objektil Dokumendil rohkem kui sada atribuuti. Põhimõtteliselt kasutatakse dokumendiobjekti atribuute teise objekti või objektide komplekti tagastamiseks, et töötada selle atribuutide ja meetoditega. Dokumendis peate peamiselt töötama sõnade, lõikude, sümbolite ja järjehoidjatega, seega vaatame mõningaid objekti Dokumendi omadusi, mis neid objekte tagastavad (tabel 7).
Komplekti kuuluva dokumendi valimiseks võite kasutada rakenduse objekti atribuuti ActiveDocument.
Järgmises näites kasutatakse aktiveerimismeetodit dokumendi nimega "Dokument 1" algatamiseks. Näide seab ka horisontaalne orientatsioon lehti ja prindib dokumendi.
Documents("Dokument 1").Aktiveeri
ActiveDocument.PageSetup.Orientation = wdOrientLandscape
ActiveDocument.PrintOut
Atribuut Järjehoidjad tagastab järjehoidjate komplekti, mis sisaldab kõiki dokumendis olevaid järjehoidjaid.
See näide leiab aktiivse dokumendi esimese järjehoidja algus- ja lõpupositsioonid.
Koos ActiveDocument.Bookmarks(1)
BookStart = .Alusta
Atribuut Märgid tagastab märkide komplekti, mis sisaldab kõiki dokumendis olevaid märke.
Järgmine näide näitab valiku esimest märki. Kui valikut pole, tagastatakse esimene märk pärast kursorit.
char = Valik. Tähemärgid (1). Tekst
MsgBox "esimene märk on ..." & char
Teine näide tagastab märkide arvu esimeses lauses (loendusse kaasatakse tühikud).
numchars = ActiveDocument.Sentences(1).Märgid.Arv
Loe objekti Dokumendi sündmuste ja meetodite kohta järgmisest artiklist.
Malõšev S.A.
|
Wordi dokumendilehel saab tööd korraldada üsna keerulise programmiga, loomata selleks isegi eraldi Windowsi vorme, mis käivituvad näiteks dokumendi avamisel või dokumendilehel nupule klõpsamisel, kuid lihtsalt asetades sellele andmesisestusväljad ja näidates programmiliselt samal lehel tulemusi pärast andmete muutmist.
Kuid paljusid matemaatilisi arvutusi on lihtsam teostada Exceli süsteem Andmebaasides teabe salvestamisel on Accessil selle teabe töötlemiseks väga suured võimalused. Töötades andmebaasidega suurtes infosüsteemides, võib olla võimalik genereerida aruandeid nende väljundiga Wordis või Excelis ning selliste programmide arendamisega saab tegeleda vaid spetsialist, kes tunneb hästi nii infosüsteemi arhitektuuri andmebaas ja keel VBA.
Saate õppida mõningaid Wordi objektidega töötamise põhimõtteid, kui salvestate teatud toimingute jada Wordi salvestusmakro tööriista abil, mis asub lindi vahekaardil Arendaja. See vahekaart on olemas, kui Sõna valikud Põhilehel on lindiüksuse vahekaardi Kuva arendaja kõrval linnuke.
Teeme järgmist.
1) klõpsa nuppu Salvesta makro, makrole ei saa määrata ei nuppu ega klahve, määrame, kuhu makro tekst salvestatakse: Makro on aktiivse dokumendi jaoks saadaval;
2) liikuda dokumendi lõppu praegusest positsioonist (seda ei olnud lõpus) vajutades Ctrl+End klahve;
3) klõpsake Sisestage võti ja kirjutage sõna "Tere!";
4) korrake uuesti sammu 3 toimingut;
5) vali viimane sõna, vajutades Shift+Home ja vajuta klahvi Delete;
6) mine esimese rea algusesse “Tere!”, vajuta Shift+End ja seejärel klahvi Delete;
7) vahekaardil Arendaja vajuta esmalt nuppu Peata salvestamine, seejärel Visual Basicu nuppu;
8) paneelis Project vasakul avanevas Visual Basicu redaktori aknas topeltklõpsake jaotist Progect() - Modules - NewMacros ja näete paremal akent programmi tekstiga VBA-s, mis on näidatud. joonisel 5.43.
Tarkvaramooduleid sisaldava dokumendi salvestamisel Microsofti süsteem Office 2007 peab valima makrotoega failitüübiks Wordi dokument, vastasel juhul programmi teksti ei salvestata.
Joonisel 5.43 olevas makrotekstis on Selection üks peamisi objekte, mis sisaldab peamist Rakenduse objekti – Wordi rakendust.
Joonis 5.43. Makrotekst VBA-s |
Programmi teksti kirjutamisel saate kasutada atribuutide ja meetodite hüpikloendit, mis kuvatakse Visual Basicu redaktoris standardobjektide jaoks pärast objekti nime kirjutamist ja selle järel asuva punkti klõpsamist (vt joonis 5.44), Täielik kirjeldus objektide omadused ja meetodid on abisüsteemis olemas.
Samuti saate atribuutide ja meetodite hüpikloendi, vajutades klahvikombinatsiooni Ctrl+Tühik.
Lisaks ilmuvad standardprotseduuride ja funktsioonide programmiteksti kirjutamisel nende süntaksile vihjed (vt joonis 5.45).
MsgBoA(Protr [ShsteLz VbMsgBoxStule = vbOKOPlu], [,vaikimisi] [,xpos] [,ypos])
Argumendid:
sõnum– stringi avaldis, mis kuvatakse sõnumina dialoogiboksis. Võib sisaldada mitut rida. Ridade eraldamiseks võite kasutada käru tagastamist (chr(13)), reavahetust (chr(10)) või nende klahvide kombinatsiooni (chr(13) & chr(10));
pealkiri
Vaikimisi– stringi avaldis, mis kuvatakse sisestusväljal vaikimisi, kui kasutaja teist stringi ei sisesta. Kui see argument välja jäetakse, jääb sisestusväli tühjaks;
Xpos– numbriline avaldis, mis määrab horisontaalse kauguse dialoogiboksi vasaku serva ja ekraani vasaku serva vahel;
Ypos– numbriline avaldis, mis määrab dialoogiboksi ülemise äärise ja ekraani ülemise serva vahelise vertikaalse kauguse.
Selle teabe (sisestusväljale sisestatud väärtuse) programmile edastamiseks määrake funktsiooni InputBox tagastatud väärtus stringi muutujale (joonis 75), näiteks:
strA=InputBox("Milliseid istmeid eelistate?","Venemaa Raudteed","Akna ääres")
Riis. 75. Funktsiooni InputBox tulemus
MsgBoxi protseduur kuvab teadet sisaldava dialoogiboksi, ootab, kuni kasutaja nuppu vajutab, ja tagastab seejärel täisarvu, mis näitab, millist nuppu vajutati.
Süntaks:
MsgBox(sõnum [, nupud] [, pealkiri] [, abifail, jaotis])
Argumendid:
sõnum– stringi avaldis, mis kuvatakse sõnumina dialoogiboksis;
nupud - numbriline avaldis, mis esindab väärtuste summat, mis näitavad kuvatavate nuppude arvu ja tüüpi, kasutatava ikooni tüüpi, esmast nuppu ja sõnumikasti modaalsust. Vaikeväärtus on 0. Vaadake selle argumendi kõiki väärtusi tabelist. 17, 18;
pealkiri– stringi avaldis, mis kuvatakse dialoogiboksi tiitliribal. Kui see argument välja jäetakse, asetatakse stringile rakenduse nimi;
abifail– stringi avaldis, mis määrab selle dialoogiboksi kohta abiteavet sisaldava abifaili nime. Kui see argument on määratud, peab olemas olema ka konteksti argument;
peatükk - numbriline avaldis, mis määrab abisüsteemi vastava jaotise numbri.
Tabel 17
Märge. Esimesed nupud on vaikimisi aktiivsed.
Tabel 18
MsgBox Procedure Button Argumendi väärtused
Kui teatekastis on ainult kaks nuppu, on If...siis lause suurepärane selleks, et välja selgitada, millisel nupul klõpsati. Näiteks:
Kui MsgBox("Alusta?", vbYesNo)= vbJah, siis
Operaatorid selle nupu tegevuse jaoks
Operaatorid teise nupu toimingu jaoks
Näide 35 . Koostage programm nii, et vormi käivitamisel sisestage tekstiväljale nimi ja klõpsake nuppu “Välja tekst” ilmub dialoogiaken, mis küsib luba teksti väljastamiseks (joonis 76).
Riis. 76. Näide 35 Vorm kujundusvaates
Vormi töö loetlemine
Privaatne alam CommandButton1_Click()
Kui MsgBox("Väljundtekst?", vbYesNo) = vbYes Siis
Kui Documents.Count = 0, siis Documents.Add Selection.Text = "Õppige, kuidas tekstiga töötada Wordi dokument on oluline osa VBA-s programmeerimise oskusest „+ TextBox1.Text + “ ja vastab kõikide programmeerijate vajadustele!“
Selection.Font.Color = wdColorBlue
Selection.Font.Bold = wdToggle
Selection.Font.Italic = wdToggle
Rakenduse käivitamise tulemusena (joonis 77) ilmub Wordi dokumenti järgmine lause:
Wordi dokumendis tekstiga töötamise õppimine on oluline osa VBA, Sveta keeles programmeerimise oskusest ja vastab kõikide programmeerijate vajadustele!
Riis. 77. Näide 35 vorm töörežiimil
Ülesanded materjali kinnistamiseksNäide 36. Loo vorm, mis jäljendab lihtsaimat peade ja sabade mängu (joonis 78). Mängija seab mündi viskamise asemel lipu ja arvuti pärast nupu vajutamist Mündi viskamine Käivitab juhuslik arv, mis vastab peadele või sabadele. Kui on kokkulangevus, võidab arvuti, mittevastavuse korral võidab mängija. Kõigi toimingutega kaasnevad hüpikaknad.
Täitmise tehnoloogia
1. Looge selle mängu rakendamiseks vorm.
2. Protseduuride kirjeldus.
Mündi viskamise nupp
Privaatne alam CommandButton1_Click()
münt = Int(2 * Rnd)
Kui OptionButton1.Value = Tõene Siis
Kui münt = 0, siis MsgBox on õnnetu. Parem alustage VBA õppimist"
Kui münt = 1, siis MsgBox “lucky. Palju õnne, olete võitnud"
Kui OptionButton2.Value = Tõene Siis
Riis. 78. Näite 36 väljatöötatud vorm töökorras ja dialoogiboks, mis reageerib mängu tulemusele
Kui münt = 1, siis MsgBox on õnnetu. Parem alustage VBA õppimist"
Kui münt = 0, siis MsgBox “lucky. Palju õnne, olete võitnud"
Mängust väljumise nupp
Privaatne alam CommandButton2_Click()
Dim ima As String
intA = MsgBox ("Vajutage nuppu!", vbYesNoCancel +
vbExclamation + vbDefaultButton3, "VBA mannekeenidele!")
Kui MsgBox("start?", vbYesNoCancel) = vbYes Siis
ima = InputBox("sisestage oma nimi", "Sisestuskasti näide")
Kui ma<>"" Siis
MsgBox "Tere," & ima, vbInformation, "Sõnumikasti näide"
MsgBox "teadlik, unustasite oma nime sisestada" & ima, vbExclamation, "veel üks näide sõnumikastist" End If
Kui MsgBox ("Kas olete kindel, et arvasite?", vbYesNoCancel) = vbNo siis
MsgBox ("ha ha")
Muu: MsgBox "Noh, lõpuks!"
Näide 37 . Arendatud mängurakenduses looge aken "Pank", kus kuvatakse mängu peatamisel mängija punktide tulemus. Mängureeglid: kui mängija võidab, lisatakse pangas olevale summale üks, kaotamisel lisatakse see arvutisse (lahutatakse pangas olevast summast).
Esitage kõik vajalikud dialoogiboksid.
Näide 38. Simuleerige täielikku peade ja sabade mängu. Mängija kannab panka teatud summa raha. Mängu ajal ei saa panka raha lisada. Mäng koosneb sammude jadast, mis on a priori piiratud. Järgmisel sammul mõtleb mängija kas peadele või sabadele. Arvuti "viskab" mündi. Kui "münt kukub samale küljele", mille mängija määras, suureneb pank ühe võrra, vastasel juhul väheneb see ühe võrra. Mäng lõpeb kas mängija soovil või siis, kui pangaväärtus muutub nulliks või üle 10 000 rubla. (teatud kogus). Mängija võtab panga sisu endale. Võimalik on pakkuda maksimaalset ja minimaalsed summad, mis olid kogu mängu pangas.
Märge. Saate simuleerida täringu viskamist funktsiooni Int(6* Rnd)+1 abil. Reeglid muutuvad: võidab see, kes viskas kõige rohkem.
Täitmise tehnoloogia
Vaatleme ühte selle probleemi lahendamise võimalust. Teeme selle ülesande keerulisemaks sellega, et iga järgnevat akent kutsub välja vastav tegevus.
1. Laske rakenduse käivitamisel kuvada esimene dialoogiboks (joonis 79). Kui klõpsate nupul "Alusta mängu", ilmuvad dialoogiaknad, mis küsivad mängija nime ja mängu alustamise kinnitust (vt joonis 80). Pärast seda ilmub panuse sisestamise vorm (vt joonis 81).
Privaatne alam CommandButton1_Click()
imya = InputBox("sisesta oma nimi", "Registreerimine", "????")
Kui MsgBox("Alusta?", vbYesNo, "Kas olete meelt muutnud?") =
See vorm teeb esialgse panusevaliku ja käivitab näite 38 põhivormi.
Riis. 79. Näide 38 Mängu käivitamise dialoog
Riis. 80. Käivitage mängu dialoogiboksid
Riis. 81. Pakkumise valiku dialoogiboks
Nupp Viska simuleerib mängijat mündi viskamist, arvutab välja mängija võidud ja kaotused, kuvades vastavad väärtused tekstiakendes koos sõnumiga mängu tulemuse kohta (joonis 82).
Riis. 82. Näite 38 põhivorm, mis simuleerib peade ja sabade mängu
Viska nupp
Privaatne alam CommandButton1_Click()
TextBox1.Value = TextBox1.Value + 1
Kui b = Fix(Rnd * 2 + 1) Siis
TextBox4.Value = TextBox4.Value + 1
TextBox5.Value = TextBox5.Value + 1
TextBox4.Value = TextBox4.Value – 1
TextBox6.Value = TextBox6.Value + 1
Kui TextBox4.Value< 1 Then
MsgBox ("Sa kaotad!!!")
Kui Val(Tekstikast2.Tekst)< Val(TextBox4.Text) Then
Textbox2.Value = Val(Tekstikast4.Tekst)
Kui Val(Tekstikast3.Tekst) > Val(Tekstikast4.Tekst) Siis
Textbox3.Value = Val(Tekstikast4.Tekst)
OptionButton1.Value = Väär
OptionButton2.Value = Väär
CommandButton1.Enabled = Väär
Nupp Välju lõpetab mängu ja väljastab lõplikud teated (vt joonis 83).
Privaatne alam CommandButton2_Click()
MsgBox("Partii" + TextBox1.Value + (Chr(13)) + "purgis" + TextBox4.Value + (Chr(13)) + "teie maksimum" + TextBox2.Value + (Chr(13)) + "teie miinimum" + TextBox3.Value + (Chr(13)) + "skoor" + TextBox5.Value +":" + TextBox6.Value)
Privaatne alamkasutajavorm Initialize()
Laadi kasutajavorm2 maha
OptionButton1.Value = Tõene
TextBox4.Value = a
Silt6.Caption = nimi
TextBox2.Value = TextBox4.Value
TextBox3.Value = TextBox4.Value
Riis. 83. Näite 38 mängu lõpparvutused
Märge. Mängu korrektseks toimimiseks on vaja luua moodul, milles deklareerida globaalsed muutujad, mis sisaldavad teavet algpanuse väärtuse ja mängija nime kohta, samuti käivitada tööriistaribal oleva nupu abil mängu esimene vorm. . Lisaks on vaja vastavate vormide jaoks muuta kõiki mooduleid (joonis 84).
Riis. 84. Globaalsete muutujate deklareerimine ja näite 38 mängu põhivormi käivitusmooduli loomine
6.2. Tüüpdokumentide vormide koostamine ja automaatne täitmine
VBA programmide loomineNäide 39. Õppemaksu tasumisel paneb üliõpilane raha kassasse, kus raamatupidaja täidab käsitsi maksekviitungi. Automatiseerida käsitsi valmistatud raamatupidaja, luues maksekaardi täitva vormi, mille saab vajadusel trükki saata.
Täitmise tehnoloogia
Mall ja rakenduse liides
Liidesena käsitleme esmalt rakenduse lihtsaimat vormi, mis vastab ülesande tingimustele ja sisaldab vastavat tekstiväljad sisend- ja juhtnupud (joonis 85).
Riis. 85. Näidis 39 vorm töökorras
Alustuseks töötame välja standardse dokumendivormi (prinditud vorm). Selle vormi saab teha malli alusel, millel on tekstiväljad, kuhu sisestatakse muutuv teave. Selleks käivitage järgmised käsud: Fail + Loo. Valige uue dokumendiakna paremas servas jaotis Mallid ja hüperlink Minu arvutis(joonis 86). Seejärel ilmub dialoogiboks Mallid(joon. 87), milles vahekaardil On levinud peate valima ikooni uus dokument ja pane lüliti sisse Näidis raamis Loo.
Lülitage paneel sisse Vormid(Vaade + tööriistaribad + vormid). Sest edasine töö Teil on vaja ainult ühte selle paneeli elementi - Tekstiväli
mis võimaldab luua vormile muutuva välja (kas koodi kaudu või kasutaja poolt). Valides kursoriga Wordi dokumendis koha vastava välja leidmiseks ja asetades sellele elemendi Väli, saadaval nõutav vorm. Välja laiendamiseks tuleb kursor sinna asetada ja mitu korda vajutada Tab. Välja allajoonimiseks valige see tekstina ja rakendage sellele allajoon.
Riis. 87. Dialoogimallid
Looge dokumendimall vastavalt joonisele. 88.
Riis. 88. Wordi dokumendi mall, kuhu sisestatakse andmed printimiseks
Mõnel väljal (väljad on esile tõstetud hall taust) saate sisestada vaikeväärtused. Vaikeväärtus määratakse dialoogiboksi abil Omadused, mida saab kuvada järgmiselt:
paremklõpsake soovitud tekstiväljal;
valige kuvatavast kontekstimenüüst Omadused ;
määrake vaikeväärtus (joonis 89).
Vaikeväärtused võimaldavad teil muuta ainult neid andmeid, mis peaksid muutuma harva. Näiteks õppemaksud on põhimõtteliselt samad - 1500 rubla, nii et selle valdkonna väärtus ei muutu väga sageli.
Riis. 89. Tekstivälja „opt_amount” parameetrite määramine
Vaatame teisi vajalikke elemente "Tekstivälja valikud" tööaknas. Põllul Tüüp näitab väljale paigutatava väärtuse tüüpi. Saate välja täita Maksimaalne pikkus , kuigi kõige olulisem VBA kood hilisemaks kasutamiseks on väli Järjehoidja. Selle välja väärtus on silt, kuhu kursor tuleb asetada enne järgmise teabe lisamist dokumenti. Seega, kui kõik nõutavad väljad on määratletud, peate igale neist andma sisukad sildid. Wordi dokumendivormi jaoks, mis on näidatud joonisel fig. 86, määrame (järgi) järgmised sildid:
Perekonnanimi – õpilase perekonnanimi;
Nimi – õpilase nimi;
Isanimi – õpilase isanimi;
Group – grupi nimi;
Kuu_makse – selle kuu nimi, mille eest tasutakse;
makse_summa – hoiustatud summa;
Täisnimi_raamatupidaja – vastuvõtva raamatupidaja perekonnanimi;
Payment_date – maksekuupäev.
Pärast dokumendivormi arendamise lõpetamist salvestame selle nime alla Õpingute eest tasumine kataloogis Mallid. Joonisel fig. 88 näitab loodud dokumendi malli koos muutuvate väljadega.
Dokumendimalli printimismooduli loomine
Nimekiri sisaldab maksekviitungi vormi printimise protseduuri koodi, sellega seotud ja silumisprotseduure.
Nimekiri(sisestage 1. moodul projekt Õpingute eest tasumine)
"taotlusvormi muutujad
Avalik fam1 Stringina
Avalik nimi1 Stringina
Avalik keskmine nimi1 Stringina
Avalikud rühmad1 Stringina
Avalik kuu stringina
Avalik summa Stringina
Avalik boo Stringina
Avalik kuupäev Stringina
" dokumendimalli vormimuutujad
Avalik perekonnanimi Stringina
Avalik nimi Stringina
Avalik keskmine nimi stringina
Avalik grupp Stringina
Avalik month_opl Stringina
Avalik makse_summa stringina
Avalik nimi_konto stringina
Avalik kuupäev_makse stringina
Hämar raamat(8) Nöörina
Dim dataMas(8) Stringina
Dim i täisarvuna
Sub Print() "vormi printimise protseduur
"Sisestame teabe järjehoidjatesse, datamassiividesse
book(1) = "perenimi": dataMas(1) = perekonnanimi
book(2) = "nimi": dataMas(2) = nimi
book(3) = "keskmine nimi": dataMas(3) = keskmine nimi
book(4) = "rühm": dataMas(4) = rühm
raamat(5) = "kuu_makse": dataMas(5) = kuu_makse
book(6) = "makse_summa": dataMas(6) = makse_summa
book(7) = “täisnimi_konto”: dataMas(7) = täisnimi_konto
book(8) = "opt_date": dataMas(8) = kuupäev
"kviitungi väljade täitmine:
ActiveDocument.FormFields(ActiveDocument.Bookmarks(book(i)).Nimi).Result = dataMas(i)
ActiveDocument.PrintPreview Teeb prindi eelvaate.
"Dokumendi tegelikuks printimiseks kasutage rakenduse objekti printimise meetodit (vt abi)
Seoses vastuvõetud ja trükki saadetud muutujate erinevusega kuulutame avalikuks kahte tüüpi muutujaid: need, mis on saadud rakenduse liideseosa kaudu, ja need, mis on trükitud malli kujul.
Pange tähele, et kõik siin olevad andmed on tüüpi String. Sellised sama tüüpi andmed võimaldavad kirjutada need vormiväljadele ainult kahte lauset sisaldava tsüklina (vt loendi kirjeldust).
Taotlusvormi nuppude moodulite loomine
Nupu kasutamine Väljastada sertifikaat koosneb sisestatud teabe lugemisest taotlusvormi tekstiväljadele, nende väärtuste ülekandmisest dokumendimalli vormimuutujatele koos teabe edasise väljastamisega dokumendimalli.
Privaatne alam CommandButton1_Click()
perekonnanimi = perekonnanimi1
nimi = nimi1
isanimi = keskmine nimi1
rühm = rühm1
kuu_makse = kuu
makse_summa = summa
nimi_raamat = raamat
makse_kuupäev = kuupäev
Helista Print
Taotlusvormi muutujatele vormi tekstiväljadele sisestatud väärtuste määramise protseduurid.
Privaatne alamtekstkast1_muutus()
fam1 = TextBox1.Value
Privaatne alamtekstbox2_muutus()
nimi1 = TextBox2.Value
Privaatne alamtekstbox3_muutus()
keskmine nimi1 = Textbox3.Value
Privaatne alamtekstbox4_muutus()
rühm1 = Textbox4.Value
Privaatne alamtekstkast5_change()
kuu = TextBox5.Value
Privaatne alamtekstbox6_change()
summa = TextBox6.Value
Privaatne alamtekstbox7_change()
boo = TextBox7.Value
Privaatne alamtekstbox8_change()
kuupäev = TextBox8.Value
Kompileerige programm ja käivitage see testimiseks.
Tugevdamise ülesanneNäide 40. Töötage välja postiülekande vorm, et hõlbustada töötajate sagedase rahaülekannete töötlemisega seotud tööd.
Valmis dokumendimall ja vorm on näidatud joonisel fig. 90 ja 91.
Riis. 90. Näide muutuvate tekstiväljadega lihtsustatud postitellimuse vormist (dokumendimall)
Dokumendi vormindamine
Enamik oluline omadus Wordis VBA kallal töötamine on rakendustega töötamisel teksti sisestamine dokumenti. Sel eesmärgil kasutatakse objekte Range ja Selection, mis on peamised peaaegu iga toimingu jaoks, mida saab teha kasutades Sõna VBA. Mõnda neist toimingutest saab rakendada dokumentidele tervikuna, kuid üldiselt vajate enne muudatuste tegemist vahemikku või valikut. Vaatame siiski, mida saate dokumendi loomisel teha.
Avatud Wordi dokument sisaldab juba vahemiku objekte, mis vastavad paljudele selle elementidele. Iga lõik, tabel, tabeli lahter, kommentaar jne määratleb vahemikud. Näiteks olemasolevasse dokumenti teksti lisamiseks peate kirjutama koodi:
ActiveDocument.Paragraphs(1).Range.Text = "Oxo-xo!!"
Lisaks asub see rida olemasoleva lõigu lõpus. Teisest küljest saab valikuobjekti kasutades dokumenti lisada ka teksti, kasutades lisamismeetodit ja määrates valikuobjektile atribuudi Text:
Selection.Text = "Word-dokumendis tekstiga töötamise õppimine on VBA-s programmeerimise õppimise oluline osa, " + TextBox1.Text + " ja see vastab kõigi programmeerijate vajadustele!"
Selle programmikoodi täitmise tulemusena kuvatakse Wordi dokumendis järgmine rida: „Word-dokumendis tekstiga töötamise õppimine on oluline osa VBA, Svetlana keeles programmeerimise oskusest ja vastab kasutaja vajadustele. kõik programmeerijad!”
Protseduuride kirjeldus
Privaatne alam CommandButton1_Click()
Kui Documents.Count = 0, siis Documents.Add
Selection.Text = "Kui vool pingega " + TextBox1.Text + "volti läbib juhti pikkusega " + TextBox4.Text + " meetrit, on ristlõige " + TextBox3.Text + "sq mm ja takistus" + TextBox5.Text + " Ohm*mm^2/m for " + TextBox2.Text + " sekundid tõstetakse esile " + TextBox6.Text + " soojusdžaule"
Selection.Collapse direction:=wdCollapseEnd
Lõpeta alam
Privaatne alam CommandButton2_Click()
Laadi mind maha
Lõpeta alam
Privaatne alamtekstbox1_Change()
scet
Lõpeta alam
Privaatne alamtekstkast2_Change()
scet
Lõpeta alam
Privaatne alamtekstbox3_Change()
scet
Lõpeta alam
Privaatne alamtekstkast4_Change()
scet
Lõpeta alam
Private Sub TextBox5_Change()
scet
Lõpeta alam
Privaatne alamkomplekt()
Kui IsNumeric(Tekstikast1.Tekst) = Tõene ja
IsNumeric(Tekstikast2.Tekst) = Tõene ja
IsNumeric(Tekstikast3.Tekst) = Tõene ja
IsNumeric(Tekstikast4.Tekst) = Tõene ja
IsNumeric(Tekstikast5.Tekst) = Tõene ja mitte Val(Tekstikast4.Tekst) = 0 Ja Mitte Val(Tekstikast5.Tekst) = 0 Siis rez = ((Val(Tekstikast1.Tekst) ^ 2) * Val(Tekstikast2.Tekst) * Val(Tekstikast3.Tekst)) / (Val(Tekstikast4.Tekst) * Val(Tekstikast5.Tekst))
Textbox6.Text = Str$(rez)
CommandButton1.Enabled = Tõene
Muidu
TextBox6.Text = ""
CommandButton1.Enabled = Väär
Lõpeta Kui
Lõpeta alam
Wordi töölehel tekstiga töötades peate teadma järgmisi koode.
värvi määratlus
Valik.Font.Värv =
wdColorRed – punane
wdColorDarkRed – Burgundia
wdColorDarkTeal – türkiissinine
wdColorBlue – sinine
wdColorGreen – roheline
wdColorBlack – must
wdColorOrange – oranž
rasvasisalduse määramine
Valik.Font.Bold =
wdToggle – julgus
stiili määratlus
Selection.Font.Italic=
wdToggle – kaldkiri
joonduse määratlus
Selection.ParagraphFormat.Alignment=
wdAlignParagraphRight – parem joondus
wdAlignParagraphCenter – keskjoondus
wdAlignParagraphJustify – vasakule joondamine
konkreetse lause sisestamine teksti
Selection.TypeText Text:="Tekstiga töötamise näide"
uue sisestamine tühi rida
Valik.TüüpLõige
tähe suuruse määramine
Valik.Font.Size = 14
Üks dialoogibokside kujunduselemente on juhtelement Pilt(joonistus). Selle peamised omadused:
Automaatne suurus– muudab vormil oleva pildi suurust (automaatselt või mitte);
Pilt– kuvab vormil kuvatud graafilise faili;
pictureSizeMode – määrab pildi skaleerimise (mitte kogu pildi, kogu objekti pinna, tervenisti objekti sees);
Pildi joondamine– määrab pildi asukoha objekti sees (vasakul, paremal, üleval, all);
piltKülvitöö– katab eseme jooniselt mosaiigiga.
Need omadused määratakse kas objekti omaduste aknas või määratakse loendis.
Märge . Töötades see rakendus Kõik sisendvälja väärtused peavad olema numbrilised. VBA-l on erifunktsioon et kontrollida, kas sisestatud string on numbrikirje või mitte - IsNumeric. Kontrollimaks, kas kahe viimase sisestusvälja väärtused on nullist erinevad, kasutage funktsiooni Val, mis teisendab stringi avaldise numbriliseks, kui stringi avaldis sisaldab alguses numbreid (või kõik koosneb neist).
Funktsioon Str toimib vastupidiselt sellele, mida Val teeb – see teisendab avaldise arvväärtuse stringiväärtuseks, võimaldades väärtust käsitleda stringina.
Seega teisendavad funktsioonid Val ja Str töödeldavate muutujate andmetüübid vastavalt stringist numbriliseks ja numbrilisest stringiks.
Looge Wordis nupp või paneel
Rakenduse otse Wordist kutsumiseks ei saa vormile nuppu või menüüelementi määrata – seda saab teha ainult moodulite puhul. Seetõttu peate taotlema järgmine viis. Looge avatud projektis makro (menüü + lisamine + moodul):
Subloendur ()
kasutajavorm1.Näita
LõppSub
Nimetage see makro ümber, nagu soovite, näiteks Teplo. Ja järgige neid samme:
1. Paremklõpsake kõikjal tööriistaribal.
2. Valige sellest menüüst käsk Seaded(või Teenus + Seaded).
3. Dialoogiboksis Seaded klõpsake vahekaardi ikooni Meeskonnad.
4. Kerige loendit Kategooriad alla ja otsige üksus üles Makrod. Valige see üksus. Valige loendist "Salvesta" selle dokumendi nimi, milles makro loodi.
5. Parempoolsest aknast otsi üles vajalik makro (või VBA programm).
6. Lohistage selle makro või programmi nimi tööriistaribale.
7. Loo vastav nupusilt ja vajadusel pilt (kasutades hiire paremat nuppu).
8. Sulgege dialoogiboks Seadistamine, töö lõpetamiseks.
9. Selle tulemusena luuakse nupp rakenduse käivitamiseks.
Laboritöö nr 5
Seotud Informatsioon.
