Tekst boxen zijn grafische tools die Word-gebruikers tekst invoegen in voor gemakkelijke plaatsing op een pagina . Deze tools worden vaak gebruikt om vormen zoals sollicitaties te creëren . Het verwijderen van tekstvakken is meestal zo eenvoudig als andere objecten te verwijderen in Word , zoals ellipsen of Word art . Maar als het tekstvak is verborgen , zijn speciale methoden nodig om het te vinden voordat je het kan verwijderen . Met behulp van Visual Basic naar tekstvakken verwijderen maakt u kennis met uitbreiding van de functionaliteit van Word door middel van deze programmeertaal . Instructies
Open Word 1 , druk vervolgens op "Control " en " N " om een nieuw document te starten . Kopen van 2 Klik op het menu "Invoegen " rubriek , klik vervolgens op de " Tekstvak " knop in de " Text " -paneel. Woord wordt een tekstvak weergegeven met instructies voor het gebruik van het tekstvak .
Type 3 over de educatieve tekst met de tekst die u wilt . Dit zal je helpen herinneren de inhoud van het tekstvak , die zal het vinden en verwijderen het makkelijker .
4 Klik op het menu " View " rubriek , klik vervolgens op de ' Print Layout " knop van de " Documentweergaven " paneel .
5 Klik op de toets" Zoom " , voer " 100 " voor het zoompercentage . Dit laat je de grenzen van de pagina , waar je nodig hebt om het tekstvak te verplaatsen buiten de pagina .
6 Klik op een van de tekstvak randen , sleep hem dan uit de pagina, zodat het is onzichtbaar . Het tekstvak nu niet kan worden verwijderd omdat u niet kunt selecteren .
7 Druk " Alt " en vervolgens " F11 " om de Visual Basic ontwikkelomgeving in te voeren . " VB " verwijst naar " Visual Basic " vanaf dit punt .
8 Klik op het menu "Invoegen " rubriek , klik vervolgens op de "Module " punt . Dit voegt een nieuw venster voor het invoeren van een klein VB-programma dat uw tekstvak zal schrappen
9 Plak volgende programma in het venster code : . Sub DeleteTextBox
( ) op Twitter Dim x Dim s
Voor x = 1 To ActiveDocument.Shapes.Count Set
s = ActiveDocument.Shapes ( x ) op stop
Volgende x End Sub
Druk op "F5 "
10 om het programma uit te voeren. Het programma loopt tot het raakt de "Stop" statement .
Klik 11 in de " Direct " -venster en typ " Print ActiveDocument.Shapes.Count . " VB geeft " 1 ", wat betekent het document heeft een tekstvak .
Klik 12 in de " Direct " -venster , dan voert u " Print s.alternativeText . " Het venster zal het u in het tekstvak in een eerdere stap ingevoerde tekst weer te geven . Dit identificeert het tekstvak dat u zult verwijderen
Type 13 het volgende in het " Immediate " venster : . " ActiveDocument.Shapes ( 1 ) Verwijderen. ".
14 Herhaal stap 11 het aantal tekstvakken in het document. VB zal " 0 ", met vermelding van je hebt alle tekstvakken verwijderde geven .
|
