Word Návody S VB

Microsoft Word má silný skriptovací jazyk zvaný Visual Basic , ktoré môžete použiť na automatizáciu akýkoľvek úlohu v programe Word . Môžete vytvoriť Visual Basic skripty , tzv makrá , tým , že nahrávanie , alebo ich zadaním ručne v aplikácii Visual Basic IDE ( integrované vývojové prostredie ) z Word.One z najčastejších úloh , ktoré používatelia programu Word musíte urobiť , je nájsť a nahradiť text . Kým aplikácie Word existujúce funkcie pre hľadanie a nahradzovanie je ľahko ovládateľný , Visual Basic môže robiť to ešte jednoduchšie . Zadajte a spustite nasledujúce makro sa dozviete , ako nájsť a nahradiť pomocou jazyka Visual Basic . Vytvorte program

Budete vytvoriť krátky program zadaním priamo vo vývojovom prostredí Visual Basic . Ale musíte najprv vzorový dokument , ktorý chcete vyskúšať program s Vnútri Word , otvoriť nový dokument a uložte ho pod názvom " vbReplace.doc . " Kopírovanie veľa textu z iného dokumentu a vložte ho do vbReplace.doc .

Stlačte alt- F11 pre vstup do jazyka Visual Basic IDE a rozšíriť projekt vbReplace podstrom v table Project . Rozbaľte Microsoft Word Objects zložku a dvakrát kliknite na ikonu ThisDocument . Visual Basic umiestni kurzor v okne zadanie kódu . Zadajte nasledujúci kód v tomto okne .

Public Sub mac ( ) Dim myrange ako rozsah

' to s aktuálne paragraphSet myrange = Selection.Paragraphs ( 1 ) . Rozsah

S myRange.FindClearFormatting.Font.Bold = False.Format = True.Replacement.ClearFormatting.Replacement.Font.Bold = True.Execute Zakončovanie : = TRUE , Nahradiť : = wdReplaceAll , _FindText : = " " , ReplaceWith : = " " MatchWholeWord : = TrueEnd WithEnd Sub
spustite program

, že program je hotovo , je čas to vyskúšať . Vráťte sa do dokumentu programu Word stlačením Alt - F11 a umiestnite kurzor v každom typickom odseku , najmä ten , ktorý má veľa výskyty slova " k " . Spustenie makra tlačidlom Alt - F8 sa dostať do zoznamu makier voľbou " mac " zo zoznamu a stlačením tlačidla Spustiť . Ak tam boli nejaké prípady , un - tučný o v bode , kde ste umiestnili kurzor , ale teraz sú všetci tučne .
Zmena programu

s jedno makro robiť jeden typ hľadania a nahradenie má nejaké využitie , ale sú schopní ľahko prispôsobí makro na pokrytie rôznych druhov nahradiť operácií je skutočná produktivita booster . Znova zadajte Visual Basic IDE ( alt- F11 ) a prejdite späť ku kódu , ktorý ste zadali , pomocou tably projektu , ako je popísané vyššie .

Zmeňte sub Mac , takže sa ukáže niektoré z " The " , slová môžete tučný do sklonený " LA " s Tentoraz budete obmedziť nahradiť operácie pracovať len na jednu vetu . Tu sú iba riadky , ktoré potrebujete zmeniť : .

Set myrange = Selection.Paragraphs ( 1 ) Rozsah stane Set myrange = Selection.Sentences ( 1 ) Font.Bold = False stane Font.Bold = true .. . Replacement.Font.Bold = TRUE sa Replacement.Font.italic = True.ReplaceWith : . = " " stáva ReplaceWith : = " la "
spustite revidovaný program

Teraz budete testovať program rovnakým spôsobom ako testované pôvodnej verzii . Vráťte sa do dokumentu programu Word a umiestnite kurzor vnútri vety s niektorými odvážnymi prípadoch o " . " Spustite revidovaný makrá pomocou krokov , ktoré ste použili na spustenie pôvodnej verzii . Pozrite sa na odvážne " na " y premení v " LA " s Všimnite si tiež , že súčasný trest bol ovplyvnený skôr než celý odsek .

• Predchádzajúca strana: Ako vytvoriť Drop Box s cenami 
• Ďalšia strana: Visual Basic 6.0 SQL Tutorial