Bralec nam je pisal, da bi v Wordu rad naredil dvoje. Najprej bi rad, da se vse besede, ki jih črkovalnik najde kot napačno zapisane, označijo rdeče in krepko, te besede pa se tudi prekopirajo v nov dokument. Seveda je zadeva takšna, da brez makra ne bo šlo. Čeprav se sliši zelo programersko, pa zadeva ni tako zapletena. Odpremo dokument, nato pa izberemo Orodja &gt Makro &gt Makri ali pa izberemo Alt+F8. V polje Ime makra vpišemo ime, ki ga bomo dali temu makru, recimo OznaciKopirajNapake, da bomo vedeli, za kaj gre. Lahko pa seveda tudi kaj preprostejšega. Zdaj pritisnemo gumb Ustvari in odprl se bo urejevalnik makrov. V desno okno, kjer bo »prazen list«, vpišemo te vrstice:

Sub OznaciKopirajNapake()
'Oznaci vse narobe napisane besede.
'Kopiraj te besede v nov dokument.
Dim rng As Range
Dim docSource As Document
Dim docNew As Document
Set docSource = ActiveDocument
Set docNew = Documents.Add
For Each rng In docSource.SpellingErrors
rng.Font.Color = wdColorRed
rng.Font.Bold = True
docNew.Range.InsertAfter rng.Text & vbCr
Next
End Sub

Nato izberemo File &gt Close and return to Microsoft Word. Zdaj lahko prek Orodja &gt Makro &gt Makri naš makro zaženemo z ukazom Zaženi. Word bo nekaj sekund, odvisno od dolžine dokumenta, »mlel«, nato pa odprl nov dokument, kjer bodo v stolpcu zapisane vse besede, ki jih je črkovalnik v našem dokumentu spoznal za napačno zapisane. Poleg tega bodo v originalnem dokumentu te iste besede na svojih izvirnih mestih označene z rdečo barvo in krepko pisavo.

Moj mikro, september 2011 | Zoran Banovič |