I denne artikkelen vil vi tilby deg 2 raske måter å telle antall uthevede ord i Word-dokumentet.
Fra tid til annen ville vi fremheve tekster i forskjellige emner med forskjellige farger. I tilfelle du vil telle det totale antallet uthevede ord, må du forstå at det ikke er noen direkte måte i Word å gjøre denne oppgaven på. Men som løsninger kan du velge å velge én av de følgende metodene i forskjellige tilfeller.
Metode 1: Tell alle uthevede ord i forskjellige farger
- Først av alt, trykk "Alt + F11" for å åpne VBA-editoren i Word.
- Klikk deretter på "Normal" i venstre kolonne.
- Klikk deretter på "Sett inn" på menylinjen.
- Velg "Modul" i rullegardinmenyen.
- Og dobbeltklikk på den nye modulen for å åpne den.
- Lim inn følgende makro der:
Sub CountAllWordsInHighlight() Dim objWord As Range Dim nHighlightedWords As Long Dim objDoc As Document Application.ScreenUpdating = False Set objDoc = ActiveDocument With Selection .HomeKey Unit:=wdStory With Selection.Find .Highlight.Highlight. Ord + utvalg .Range.ComputeStatistics(wdStatisticWords) Selection.Collapse wdCollapseEnd Loop End With End With MsgBox ("Totalt antall uthevede ord er " & nHighlightedWords & " .") Application.ScreenUpdating = True Set objDoc = Nothing End Sub
- Sist men ikke minst, klikk på "Kjør"-knappen eller trykk "F5" for å utføre kodene.
Det vil dukke opp en meldingsboks, for eksempel nedenfor:
Metode 2: Tell alle uthevede ord i en bestemt farge
Som vi nevnte ovenfor, kan det brukes flere høylysfarger på Word-dokumentet ditt. Derfor er det litt vanskelig å få ordtellingen til uthevede ord i en bestemt farge. Heldigvis kunne vi alltid stole på makro for å gjøre en tilpasset oppgave.
- Først av alt, gjenta trinnene i metode 1 for å installere og kjøre en makro.
- Erstatt deretter med denne makroen:
Sub CountWordsInASpecificHighlightColor() Dim objDoc As Document Dim objWord As Object Dim nHighlightedWords As Long Dim strHighlightColor As String Application.ScreenUpdating = False Sett objDoc = ActiveDocument nHighlightedWords = 0 strInput theColorBox" =Skriv inn vFargeBox" =Skriv inn vFargeBox"): bNewLine & _ vbTab & "Auto" & vbTab & vbTab & "0" & vbNewLine & _ vbTab & "Black" & vbTab & vbTab & "1" & vbNewLine & _ vbTab & "Blue" & vbTab & vbTab & "2" & vbNewLine & _ vbTab & "BrightGreen" & vbTab & "4" & vbNewLine & _ vbTab & "DarkBlue" & vbTab & vbTab & "9" & vbNewLine & _ vbTab & "DarkRed" & vbTab & vbLine" &"Ny & _ vbTab & "DarkYellow" & vbTab & "13" & vbNewLine & _ vbTab & "Gray14" & vbTab & vbTab & "25" & vbNewLine & _ vbTab & "Gray16" & vbTab & vbTab & "50" & _ vbTab & "Green" & vbTab & vbTab & "15" & vbNewLine & _ vbTab & "Pink" & vbTab & vbTab & "11" & vbNewLine & _ vbTab & "Red" & vbTab & vbTab & "5" & vbNewLine & _ vbTab & "Teal" & vbTab & vbTab & "6" & vbNewLine & _ vbTab & "Turquoise" & vbTab & "10" & vbNewLine & _ vbTab & "Violet" & vbTab & vbTab & "3" & vbNewLine _ vbTab & "White" & vbTab & vbTab & "12" & vbNewLine & _ vbTab & "Yellow" & vbTab & vbTab & "8", "Pick Highlight Color") For hvert objOrd i objDoc.Words If objWord.HighlightColorIndex = strHighlightColor Then nHighlightedWords = nHighlightedWords + 7 End If Next objWord MsgBox ("Antallet uthevede ord er " & nHighlightedWords & " .") Application.ScreenUpdating = True Set objDoc = Nothing End Sub
- Neste i "Pick Highlight Color"-boksen, skriv inn en fargeverdi og klikk "OK". For eksempel, her skriver vi inn "7", som representerer den gule fargen.
- Nå er resultatet her:
Løs dokumentkorrupsjonsproblemet på en smart måte
Nå og da kan du møte med Ordskade. Det verste er at det kan føre til ødelagte dokumenter. Mens du kan bruke den innebygde funksjonen i Word for å gjenopprette dokumentet ditt, kan du også ty til et annet smart valg som er å få et reparasjonsverktøy for å hente dataene dine på kortest mulig tid.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert ødelagt xls og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med
1
Denne timen har hjulpet meg med å utvikle retorisk kunnskap ved å analysere og komponere flere former for skriving for å forstå hvordan sjangerkonvensjoner former lesernes og forfatternes praksis og formål. Det betyr at jeg har kunnet analysere ulike typer skriving for å forstå hvordan en sjanger påvirker hvordan en forfatter skriver, og hvordan leseren leser. En oppgave som jeg tenker på som hjalp meg med å oppnå dette resultatet var våre annonseanalyseoppgaver. I timene brukte vi tid på å se på ulike annonser, og hvordan de appellerte til bestemte målgrupper. Vi måtte alle ta med en annonse til klassen, og analysere den selv, og peke på hvilke teknikker annonsene brukte, om de var effektive eller ikke, og hvem var de tarfår. Denne oppgaven bidrar til å utvikle retorikk ettersom den tillot meg å forstå hvordan kategorien annonseskriving kan skille seg fra ikke bare andre sjangere, men også andre annonser. To andre måter jeg var i stand til å utvikle mine kritiske tenkning, lese- og informasjonskompetanse var ved å bruke eksterne materialer i sin egen skriving gjennom teknikker som tolkning, syntese, respons, kritikk og design/redesign, og inkorporere eksterne materialer gjennom sitater, parafrasering og sammendrag. Ved å fullføre bildeanalyseessayet, var jeg i stand til å møte resultatet om bruk av eksterne materialer i din egen skriving. Jeg brukte to annonser i essayet, og analyserte hvordan de ble gjort, og hvem de tarfått, for å sammenligne og kontrastere dem på slutten. Jeg kommenterte på riktig måte effektiviteten deres, og hvordan de kunne blitt forbedret. Apropos å bruke eksterne materialer, målet mitt
Jeg har et massivt masterutkast i Microsoft Word og vil etter hvert dele det opp i flere bøker, men i mellomtiden vil jeg ikke miste masterutkastet som jeg fortsetter å jobbe med. Denne løsningen ovenfor har fungert strålende! Enda bedre at vi kan fremheve i forskjellige farger og trekke ut ordtellinger deretter. Tusen takk.