Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte MS Word a prejsť na Visual Basic IDE ( integrované vývojové prostredie ) , stlačením kombinácie klávesov ALT - F11 . 
 
 V okne kódu , zadajte nasledujúci kód programu . 
 
 Public Sub mac ( ) Dim r ako RangeDim w ako RangeDim aj ako IntegerDim t As String 
 
 Options.DefaultHighlightColorIndex 
 
 Set r = Selection.Range 
 
 r.StartOf ( wdParagraph ) 
 
 r.Expand = TrueWith r.Find.Text = " je " . Replacement.Text = " je " . Forward = True.Wrap = wdFindStop.Format = True.MatchCase = False.MatchWholeWord = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd Withr.Find.Execute Nahradiť : = wdReplaceAll 
 
 End Sub 
 
 môžete získať predstavu o tom , čo tento program bude urobiť si všimol určité kľúčové slová v ňom : odsek, nájsť a výber , pre príklad . Program vyhľadá a upozorní na všetky výskyty slova , ktoré zadáte , v rámci aktuálneho odseku 
 
 Všimnite si tieto dva riadky kódu : ... Text = " je " Replacement.Text = " je " 
 
 Tieto riadky povedať Word na čo sa zamerať . V mieste tých " je " s , zadajte ohľadu slovo alebo text , ktorý chcete hľadať a zvýraznenie . 
 Spustenie programu 
 
 Späť na slovo ( alt - F11 ) a zadajte niekoľko odsekov v hodnote texte . Tieto body by mala obsahovať aspoň niekoľko výskytov vyššie uvedeného vyhľadávacieho výrazu ktoré ste si zvolili . 
 
 Po dokončení zadávania textu , umiestnite kurzor do niektorého z odsekov . Spustite program : vybrať alt - F8 , aby sa okno makro zneužitím . Vyberte " mac " makro a stlačte Spustiť . Ak program Word nájde všetky výskyty hľadaného slova ste zadali , v odseku obsahujúcim kurzor , bude zvýraznite slovo . 
 Pochopiť ju prispôsobiť ju 
 
Písanie v jednom skripte môže zlepšiť vašu prácu trochu . Ale ak ste pochopili, ako skript funguje, môžete začať zlepšovať svoj pracovný postup výrazne , a na trvalé báze . ClipArt
 Späť na vývojovom prostredí Visual Basic a pozrieť sa na programovom kóde vo vnútri funkcie mac . Všimnite si, ako funkcie mac dostane k aktuálnemu odseku robiť svoju nahradiť činnosť : to vyzerá pri objekte výber , ktorý predstavuje aktuálne vybraný text alebo textový kurzor . Potom , s použitím Wordu vnútornou reprezentáciu dokumentu , skript " leapfrogs " z aktuálneho kurzora na začiatok odseku , ktorý obsahuje kurzor . 
 
 Tento druh pohybu je umožnená sietí spojov v jazyku VBA pre aplikáciu Word . Aktuálny výber je spojená so súčasným slová , aktuálne vety a aktuálneho odseku . Konkrétne , mac odkazy alebo leapfrogs z aktuálneho výberu na začiatok aktuálneho odseku ( Set r = Selection.Range a r.StartOf ( wdParagraph ) ) . V tomto bode , r je len kurzor , ale chceme , aby sa vzťahujú na celý odsek , a tak sme ju rozšíriť pomocou r.Expand wdParagraph . Ak chcete vyhľadať iba aktuálnu vetu namiesto terajšieho odseku , nahradiť všetky výskyty wdParagraph v kóde programu s wdSentence .