Visual Basic ( VB ) is een programmeertaal die wordt gebruikt voor de snelle ontwikkeling van computerprogramma's . U kunt deze programma's te ontwikkelen binnen Microsoft Word en Excel . Daarbij kunt u gebruik maken van de vele voorwerpen en middelen die elk van deze aanvragen heeft ( dat wil zeggen de ActiveDocument object in Word , of Excel 's ingebouwde Sorteren en Subtotaal functies ) , in tegenstelling tot het maken van objecten uit scratch.Try de volgende projecten voor de ontwikkeling van Visual basisvaardigheden en geletterdheid . Ontdek de Range Object
Typ
de volgende tekst in MS Word geïntegreerde ontwikkelomgeving ( IDE ) om de essentiële Range object in actie te zien . U kunt de IDE van Woord invoeren door op " Alt " - " F11 " . Typ de code in een open ruimte in het venster code . Public Sub spacePgp
( ) Dim r als Range Set
r = Selection.Range
r.Expand wdParagraphr . InsertAfter vbCrLfr.InsertBefore vbCrLf
End Sub Terug
naar Word ( alt - F11 ) als u het programma hebt getypt , en plaats de invoegpositie ( cursor AKA ) in elke paragraaf , vooral een omgeven door punten boven en onder . Voer het programma uit door de ontwikkelaar te selecteren > Macro's , het kiezen van de " spacePgp " macro naam uit de lijst en klikken run . De macro voegt wagen terug boven en onder de paragraaf met de invoegpositie . De belangrijkste punten in de code om kennis te nemen van zijn die verwijzen naar Selectie en de InsertAfter en insertBefore functies . Selectie verwijst naar de locatie van de cursor ( AKA het invoegpunt ) en het invoegen verklaringen voeg de harde returns .
Maak een Userform Project
Voer de Visual Basic IDE als voorheen en kies het Invoegen> Userform menu-item . Op het nieuwe formulier , sleept twee opdrachtknoppen uit de gereedschapskist . In het deelvenster Eigenschappen , wijzigt u de naam van een knop om " blauw ", de andere aan " geel. " Dubbelklik op de " gele " knop en voer dit programma code voor de CommandButton2_Click evenement : Private Sub CommandButton2_Click
( ) Set r = Selection.Ranger.Expand ( wdSentence ) r.HighlightColorIndex = wdYellowEnd Sub
Dupliceer de knop Program code
Kopieer
de code voor de CommandButton2_Click ( ) functie naar het Klembord en plak de code boven het eerste exemplaar van de functie , boven de lijn " Private Sub CommandButton2_Click ( ) . " Wijzig de gedupliceerde CommandButton2_Click te lezen CommandButton1_Click , en wijzig de wdYellow te wdBlue .
Navigeer naar een ander deel van de code van dit document door eerst de cursor te verplaatsen naar het deelvenster Project . Vouw de map Microsoft Word Object 's door erop te klikken . Als er meerdere mappen met de naam Microsoft Word- object , kies degene die te zien zijn onder de naam van het document dat u wilt dat de macro activeert inch Bijvoorbeeld , als je het testen van uw programma op de tekst in het document " MacroStudy , " de map u wilt uitbreiden door op de plus ( + ) teken zal er als volgt uitzien : Project ( MacroStudy ) + Microsoft Word Objecten
Schrijf de code die het formulier
Laadt
Dubbelklik op het ThisDocument pictogram dat verschijnt nadat u de map Microsoft Word Objecten breiden . Deze actie brengt je naar een andere code -venster , waar je de code die het formulier dat u hebt gemaakt wordt weergegeven zult voeren . Dit is de code in te voeren : Public Sub colorForm ( ) op UserForm1.ShowEnd Sub Terug
naar Word , en plaatst u de invoegpositie in een zin in de tekst van het document . Begin uw programma door ontwikkelaar selecteren > Macro's , en vervolgens te kiezen voor " colorForm , " gevolgd door de knop Uitvoeren . Uw formulier verschijnt . Klik ofwel haar blauwe of gele toets en kijk naar de zin met het invoegpunt van kleur veranderen .
|
