Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Zadajte nasledujúci text do MS Wordu integrované vývojové prostredie ( IDE ) pre zobrazenie základnej rozsah objektu v akcii . Môžete zadať IDE z Wordu stlačením " Alt " - " F11 " . Zadajte kód do otvoreného priestoru v okne kódu. ClipArt
Public Sub spacePgp ( ) Dim r ako rozsah
Set r = Selection.Range
r.Expand wdParagraphr . insertAfter vbCrLfr.InsertBefore vbCrLf
End Sub
Vrátiť do aplikácie Word ( alt- F11 ) , keď ste napísali program , a umiestnite kurzor ( AKA kurzor ) v každom bode , najmä ten , obklopený odsekov hore a dole . Spustite program výberom Developer > makrá , výber " spacePgp " názov makra zo zoznamu a kliknutím na tlačidlo Spustiť . Makro vložky vozík vráti nad a pod odsekom s kurzora . Medzi kľúčové body v kóde vziať na vedomie sú s odkazom na výber a funkcie insertAfter a insertBefore . Výber odkazuje na umiestnenie kurzora ( AKA kurzor ) a INSERT pridať znaky konca riadku .
Vytvoriť UserForm projektu
Zadajte Visual Basic IDE ako predtým a vyberte položku Vložiť > UserForm . Na novej podobe , pretiahnite dve príkazové tlačidlá z panela nástrojov . V table Vlastnosti zmeniť názov jedného tlačidla na " modrú " , druhý " žltý " . Double - kliknite na tlačidlo " žltý " a zadajte tento programový kód pre udalosť CommandButton2_Click :
Private Sub CommandButton2_Click ( ) Set r = Selection.Ranger.Expand ( wdSentence ) r.HighlightColorIndex = wdYellowEnd Sub
Duplicitné tlačidlá v programe kód
Opíšte kód pre CommandButton2_Click funkcie ( ) do schránky a vložte vyššie uvedený kód prvom stupni funkcie , nad líniu " Private Sub CommandButton2_Click ( ) . " Zmeňte duplicitné CommandButton2_Click čítať CommandButton1_Click , a zmeniť wdYellow na wdBlue . ClipArt
Navigovať do inej časti kódu na tomto dokumente tým , že najprv presunutím kurzora na paneli projektu . Rozbaľte priečinok Microsoft Word objekt tým , že na neho kliknete . Ak existuje niekoľko zložiek s názvom Microsoft Word objekt , vyberte si ten , objaviť sa pod názvom dokumentu , ktorý chcete makro spustiť palcov Napríklad , ak testujete svoj program na texte obsiahnuté v dokumente " MacroStudy , " zložka Ak chcete rozšíriť kliknutím na jeho znamienko plus ( + ) znamienko bude vyzerať takto :
Project ( MacroStudy ) + Microsoft Word Objects
písať kód , ktorý načíta formulár
Dvakrát kliknite na ikonu ThisDocument , ktorá sa zobrazí po rozbalení Microsoft Word Objects zložku . Táto akcia sa dostanete na iné kódové okno , kde budete zadajte kód , ktorý sa zobrazí formulár , ktorý ste vytvorili . Toto je kód pre vstup :
Public Sub colorForm ( ) UserForm1.ShowEnd Sub
Vrátiť do aplikácie Word a umiestnite kurzor do ľubovoľnej vety v texte dokumentu . Spustite program výberom Developer > makrá , a potom výberom " colorForm " , potom stlačte tlačidlo Spustiť . Zobrazí sa vaša forma . Kliknite buď na jeho modrým alebo žltým tlačidlom a pozerať sa na vetu obsahujúce farbu kurzor zmeniť .
Copyright © počítačové znalosti Všetky práva vyhradené