Att veta hur man tar bort genomstruken text med VBA kan du snabbt radera denna potentiellt störande innehåll från dokumentet . Eftersom VBA kräver ingen åtgärd från användaren för att utföra denna uppgift , kan den göra det utan mänskliga fel . VBA -funktionen kärnan i detta projekt är " Font " egendom " Range " klass , där alla ord i dina dokument är medlemmar . Den " Font " Fastigheten har flera komponenter egenskaper som lagrar all formatering du ansöker till ett ord , t.ex. genomstruken effekt . Instruktioner
1
Tryck " Kontroll " och " N " för att skapa ett nytt Word- dokument och sedan skriva några ord i den. Dubbelklicka på ett av orden för att markera den , tryck sedan på "Control " och " D " samtidigt för att visa " Font " i dialogrutan . Klicka på "genomslag " kryssrutan för att placera denna effekt på ordet , klicka sedan på " OK " för att stänga dialogrutan .
2
Klicka på " File " fliken är " Options " objekt och klicka sedan på " Anpassa menyfliksområdet " kommandot för " Kategorier " rutan . Dessa åtgärder tar dig till alternativet för att aktivera visning av " Utvecklare " fliken , som innehar knappen för att arbeta med VBA .
3
Klicka på " Developer " kryssrutan för att göra Word visa " Utvecklare " fliken , klicka sedan på " OK " för att stänga " Alternativ "i dialogrutan .
4
Klicka på " Utvecklare " fliken för " Visual Basic " -knappen för att öppna Visual Basic utvecklingsmiljö, vilket gör att du att skriva , redigera och felsöka program .
5
Klicka på " Infoga " -menyn är " Module " -kommandot för att skapa ett nytt fönster för inmatning av program och sedan klistra in följande program i det nya fönstret . Detta program läser "genomslag " egendom av varje ord i det aktuella dokumentet , och stryks ordet om att fastighetens värde är " Sant . " Programmet använder ordet för " Delete " -funktion , som VBA programmerare kallar en " metod " för att utföra raderingen .
Public Sub delStrikeThrough ( ) katalog
Dim w
ActiveDocument
För varje w In . Ord
p Om w.Font.StrikeThrough = sant då
w.Delete
End If
Nästa
End With
End Sub
6
Klicka på någon av programmets uttalanden , klicka sedan på " Debug " -menyn är " Kliv in " -kommandot , vilket gör att du köra ett program en förklaring i taget . Köra ett program på detta sätt hjälper dig att förstå effekten av varje påstående . Upprepade
7
Press " F8 " för att föra markören till nästa program uttalande . Observera att programmet enbart exekverar " Delete " uttalande en gång - . För enstaka ord med genomstruken teckensnitt du sökt i steg ett
8
Fortsätt trycka " F8 " tills markeringen försvinner , vilket indikerar programmet har körts .
9
Klicka på " Word " -ikonen i Aktivitetsfältet i Windows för att återgå till Word . Lägg märke till att ordet med genomstruken teckensnittet har tagits bort .
