Å vite hvordan du sletter gjennomstreket tekst med VBA kan du raskt slette denne potensielt forstyrrende innhold fra dokumentet. Siden VBA krever ingen brukermedvirkning for å utføre denne oppgaven, kan det gjøre det uten menneskelig feil . VBA -funksjonen i kjernen av dette prosjektet er " Skrift" eiendom " Range "-klassen , hvorav alle ord i dokumentene er medlemmer . "Skrift " egenskapen har flere komponent egenskaper som lagrer all formateringen du bruker et ord , for eksempel gjennomstrekingsfargen effekt. Instruksjoner
en

Trykk "Ctrl " og " N" for å opprette et nytt Word-dokument , og skriv noen ord i den. Dobbeltklikk ett av ordene for å velge den, og trykk deretter på "Control " og " D" samtidig for å vise "Skrift " dialogboksen . Klikk på " Gjennomstrek " boksen for å plassere denne effekten på ordet , og klikk " OK " for å lukke dialogboksen .
2

Klikk på " File" fanen "Alternativer " element, klikk deretter på " Tilpass Ribbon "-kommandoen i " kategorier " -panelet . Disse handlingene tar deg til muligheten for å aktivere visning av " Developer "-kategorien , som holder knappen for å arbeide med VBA .
3

Klikk på " Developer " sjekkheftet for å gjøre Word vise " utvikler "fanen , og klikk" OK "for å lukke " Alternativer "i dialogboksen .
4

Klikk på" utvikler " fanen " Visual Basic " -knappen for å åpne Visual Basic utviklingsmiljø , som lar deg å skrive , redigere og feilsøke programmer.
5

Klikk på " Insert " -menyen er " Module" kommandoen for å opprette et nytt vindu for å angi programmer, og lim inn følgende program i det nye vinduet . Dette programmet leser " Gjennomstrek " for hvert ord i dokumentet , og sletter ordet om at boligens verdi er " sant". Programmet bruker ordet er " Delete" -funksjonen, som VBA programmerere kaller en " metode ", for å utføre slettingen.

Public Sub delStrikeThrough ( )

Dim w
p Med ActiveDocument

for hver w In. Words
p Hvis w.Font.StrikeThrough = True Deretter

w.Delete

End If
< p > Neste

End With

End Sub
6

Klikk på en av programmets utsagn , og klikk deretter på " Debug " menyen " Gå inn "-kommandoen , som lar å kjøre et program en uttalelse om gangen. Kjører et program på denne måten hjelper deg å forstå effekten av hver setning .
7

Trykk "F8" gjentatte ganger for å avansere høydepunktet til det neste programmet uttalelse. Legg merke til at programmet bare utfører "Delete " statement en gang - . For den eneste ord med gjennomstreking skriften du brukte i trinn én
8

Fortsett å trykke "F8" til høydepunktet forsvinner , indikerer programmet har kjørt ferdig .
9

Klikk på " Word "-ikonet på oppgavelinjen i Windows for å gå tilbake til Word. Legg merke til at ordet med gjennomstreking skriften har blitt slettet.