Visual Basic ( VB ) är ett programmeringsspråk som används för snabb utveckling av datorprogram . Du kan utveckla dessa program i Microsoft Word och Excel . Om du gör det kan du utnyttja de många föremål och resurser var och en av dessa tillämpningar ( dvs. ActiveDocument objektet i Word eller Excel : s inbyggda Sortera och Delsumma funktioner ) , i motsats till att skapa objekt från scratch.Try följande projekt för att utveckla din Visual grundläggande färdigheter och läskunnighet . Utforska Range Object
Skriv följande text i MS Word integrerade utvecklingsmiljö ( IDE ) för att se det väsentliga objektet Range i aktion . Du kan ange IDE från Word genom att trycka på " Alt " - " F11 " . Skriv in koden i valfri öppen plats i koden fönstret .
Public Sub spacePgp ( ) Dim r Som Range
Set r = Selection.Range
r.Expand wdParagraphr . InsertAfter vbCrLfr.InsertBefore vbCrLf
End Sub
Återgå till Word ( alt - F11 ) när du har skrivit programmet , och placera insättningspunkten ( AKA markör ) i någon punkt , speciellt en omgiven av punkterna ovan och nedan . Kör programmet genom att välja Utvecklare > Makron , välja " spacePgp " macro namn från listan och klicka på Kör . Makrot infogar radbrytningar ovanför och nedanför stycket med insättningspunkten . De viktigaste punkterna i koden för att ta del av är de som avser Urval och InsertAfter och InsertBefore funktioner . Urval hänvisar till markörens läge ( AKA insättningspunkten ) och uttalanden Infoga lägga till vagnretur .
Skapa en UserForm Project
Ange Visual Basic IDE som förut och välj Infoga > UserForm menyalternativet . På den nya formen , drar två kommandoknappar från verktygslådan . I fönstret Egenskaper , byta namn på en knapp för att " blå ", den andra " gula ". Dubbelklicka på " gula " knappen och skriv in detta program kod för CommandButton2_Click händelsen :
Private Sub CommandButton2_Click ( ) Set r = Selection.Ranger.Expand ( wdSentence ) r.HighlightColorIndex = wdYellowEnd Sub
Addera Duplicera knappens programkoden
Kopiera koden för CommandButton2_Click ( ) funktionen till Urklipp och klistra in koden ovanför den första instans av funktionen , ovanför linjen " Private Sub CommandButton2_Click ( ) . " Ändra dupliceras CommandButton2_Click att läsa CommandButton1_Click , och ändra wdYellow till wdBlue .
Navigera till en annan del av koden för det här dokumentet genom att först flytta markören till Project rutan . Expandera Microsoft Word Object mapp genom att klicka på den . Om det finns flera mappar som heter Microsoft Word Object , välj den som uppträder under namnet på det dokument du vill att makrot ska köras i. Till exempel, om du testar ditt program på texten i dokumentet " MacroStudy , " mappen du vill expandera genom att klicka på dess plus ( + ) tecknet ser ut så här :
Project ( MacroStudy ) + Microsoft Word Objects
Skriv koden som laddar Form
Dubbelklicka på ThisDocument ikonen som visas när du expanderar Microsoft Word Objects mappen . Denna åtgärd tar dig till en annan kod fönster , där du kan ange koden som visas i formuläret som du skapade . Detta är koden för att komma in :
Public Sub colorForm ( ) UserForm1.ShowEnd Sub
Återgå till Word , och placera insättningspunkten i någon mening i dokumentets text . Starta programmet genom att välja Utvecklare > Makron , och sedan välja " colorForm , " följt av knappen Kör . Ditt formulär visas . Klicka antingen sin blå eller gula knappen och se meningen med införandet färg förändring .
