Weten hoe doorhalen tekst te verwijderen met VBA kun je snel deze potentieel storend inhoud wissen van uw document . Aangezien VBA vereist geen tussenkomst van de gebruiker om deze taak uit te voeren , kan het zo doen zonder menselijke fout . De VBA -functie in de kern van dit project is de " Font " eigendom van de " Range "-klasse , waarvan alle woorden in uw documenten zijn leden . De " Font " accommodatie heeft meerdere eigenschappen van een component dat alle opmaak toepassen op een woord te slaan , zoals de doorhaling effect . Instructies
Druk op " Control" 1 en " N " naar een nieuw Word- document te maken , typ een paar woorden in het. Dubbelklik op een van de woorden om het te selecteren , druk vervolgens op "Control " en " D " gelijktijdig op de " Lettertype " dialoogvenster weer te geven . Klik op de " Doorhalen " checkbox om dit effect te leggen op het woord en klik op ' OK ' om het dialoogvenster te sluiten . Kopen van 2 Klik op " Options" van het tabblad "Bestand" , klik vervolgens op de " Lint aanpassen " bevel van de " Categorieën " venster . Deze acties brengen u naar de optie voor het inschakelen van het tabblad "Ontwikkelaar " , welke toets geldt voor het werken met VBA .
3 Klik op het selectievakje " Developer " te maken Word weer de " Developer "tab en klik op ' OK Options " om het te sluiten " " dialoogvenster .
4 Klik op de toets "" " tab 's " Ontwikkelaar Visual Basic om de Visual Basic ontwikkelomgeving , waarmee u opent te schrijven , bewerken en debuggen programma .
5 Klik op het menu "Invoegen" de " Module " commando om een nieuw venster voor het invoeren van programma's te maken , dan is het volgende programma te plakken in het nieuwe venster . Dit programma leest de " Doorhalen " eigenschap van elk woord in het huidige document , en verwijdert het woord , indien de waarde van die eigenschap is " True . " Het programma maakt gebruik van de functie van het woord " Delete " , die VBA programmeurs noemen een " methode , " om het wissen uit te voeren . Public Sub delStrikeThrough ( ) Dim w
Met ActiveDocument
voor Elke w in . Woorden
Als w.Font.StrikeThrough = True w.Delete Einde dan
Als
Volgende Einde
Met End Sub
6
Klik op een van de verklaringen van de programma 's , klik op de " Debug " menu 's " Stap in " commando , waarmee u een programma een instructie tegelijk uitvoeren . Het runnen van een programma op deze manier helpt u het effect van elke verklaring te begrijpen .
Druk " F8 " 7 herhaaldelijk om de highlight naar de volgende verklaring van het programma . Merk op dat het programma wordt uitgevoerd alleen de uitspraak " Delete " een keer - . Voor het woord met de doorhaling lettertype dat u in stap een toegepaste
8 Blijf op " F8 " tot het hoogtepunt verdwijnt , wat aangeeft het programma is afgelopen loopt .
9 Klik op het pictogram " Woord " in de Windows taakbalk om terug te keren naar Word . Merk op dat het woord met de doorhaling lettertype is verwijderd .
|
