I denne artikkelen vil det være 3 metoder for å telle antall ord for seksjoner i Word-dokumentet.
Det er enkelt å få det totale antallet ord i et dokument. Men det er ingen funksjon i Word for å fortelle oss antall ord i en seksjon. Og gitt til det faktum at vi foretrekker å legge innhold av samme emne i én seksjon, for eksempel å organisere et kapittel mens vi skriver en bok, er det nødvendig for oss å komme opp med løsninger for å få deltellingen. Følgende er 3 tilnærminger som krever at du kjører en makro.
Metode 1: Tell antall ord for gjeldende seksjon
- Plasser først markøren inne i a tarfå seksjon.
- Deretter må du åpne VBA editor i Word. Klikk "Utvikler" og deretter kommandoen "Visual Basic". I tilfelle du ikke finner "Utvikler" i båndet, trykk "Alt+ F11" i stedet.
- Klikk deretter på "Normal" prosjekt i venstre kolonne.
- Klikk deretter på "Sett inn"-fanen.
- På den rullegardinmenyen velger du "Modul".
- Åpne ny modul ved å dobbeltklikke.
- Nå i den åpne modulen limer du inn følgende koder:
Sub CountWordsOfCurrentSection() MsgBox ("Det er " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _ & "ord i gjeldende seksjon.") End Sub
- Til slutt, klikk "Kjør" eller trykk "F5" for å utføre koder.
Du vil motta en meldingsboks som viser det totale antallet gjeldende seksjoner, for eksempel nedenfor:
Metode 2: Tell antall ord for en bestemt seksjon
La oss si at du har jobbet med en bok og setter hvert kapittel som en individuell seksjon. Så for å vite hvor mange ord du har skrevet i et kapittel, kan du bruke denne metoden.
- Følg trinnene ovenfor for å installere og kjøre en makro.
- Bare bytt ut makro med denne:
Sub CountWordsOfSpecificSection() Dim strSecNum As String Dim objDoc As Document Application.ScreenUpdating = False Set objDoc = ActiveDocument strSecNum = InputBox("Skriv inn et seksjonsnummer her:", "Skriv inn seksjonsnummer") MsgBox ("Det finnes " & objDoc.Sections. (strSecNum).Range.ComputeStatistics(wdStatisticWords) _ & " ord i seksjonen " & strSecNum & ".") Application.ScreenUpdating = True End Sub
- Og kjører det, vil det være en inndataboks. I "Angi seksjonsnummer"-boksen, skriv inn seksjonsnummeret og klikk "OK" for å gå videre.
Resultatet vises på en meldingsboks.
Metode 3: Tell antall ord for alle seksjoner i et dokument
Som undertittelen antyder, vil denne måten få deg totalt antall ord for hver seksjon i et dokument og liste dem i en meldingsboks.
- Først av alt, åpne tarfå dokument.
- Likevel må du gjenta trinnene i metode 1 for å installere og kjøre makroen.
- Og denne gangen, endre med denne makroen:
Sub CountWordsOfEachSectionInDoc() Dim objDoc As Document Dim nNumberOfSection As Long Dim strText As String Application.ScreenUpdating = False Set objDoc = ActiveDocument nNumberOfSection = objDoc.Sections.Count For nNumberOfSection =TnumberOfSection The er " & objDoc.Sections (nNumberOfSection) _ .Range.ComputeStatistics(wdStatisticWords) & " ord i seksjonen " & nNumberOfSection & "; " _ & vbNewLine Neste nNumberOfSection MsgBox strText Application.ScreenUpdating = True End Sub
Her er det mulige resultatet:
Lagre verdifulle data
Mens du håndterer alle typer dokumenter, må du huske på sikkerheten til dem. Siden du aldri kan fortelle når neste tap av data vil skje, foreslås det å sikkerhetskopiere viktige filer. Dessuten er det alltid godt å få tak i et verktøy som kan gjenopprette dok, hvis noen.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xls reparasjon og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med