3 metoder for å telle antall ord for seksjoner i Word-dokumentet ditt

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. Tell antall ord for seksjoner i Word-dokumentet ditt  Følgende er 3 tilnærminger som krever at du kjører en makro.

Metode 1: Tell antall ord for gjeldende seksjon

  1. Plasser først markøren inne i a tarfå seksjon.
  2. 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.
  3. Klikk deretter på "Normal" prosjekt i venstre kolonne.
  4. Klikk deretter på "Sett inn"-fanen.
  5. På den rullegardinmenyen velger du "Modul".Klikk "Normal" -> Klikk "Sett inn" -> Klikk "Modul"
  6. Åpne ny modul ved å dobbeltklikke.
  7. 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
  1. Til slutt, klikk "Kjør" eller trykk "F5" for å utføre koder.Lim inn koder -> Klikk "Kjør"

Du vil motta en meldingsboks som viser det totale antallet gjeldende seksjoner, for eksempel nedenfor:Antall ord i gjeldende seksjon

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.

  1. Følg trinnene ovenfor for å installere og kjøre en makro.
  2. 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
  1. Og kjører det, vil det være en inndataboks. I "Angi seksjonsnummer"-boksen, skriv inn seksjonsnummeret og klikk "OK" for å gå videre.Skriv inn seksjonsnummer-> Klikk "OK"

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.

  1. Først av alt, åpne tarfå dokument.
  2. Likevel må du gjenta trinnene i metode 1 for å installere og kjøre makroen.
  3. 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:Antall ord for hver seksjon i dokumentet

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

Kommentarer er stengt.