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.   Følgende er 3 tilnærminger som krever at du kjører en makro.

Metode 1: Tell antall ord for gjeldende seksjon

1. Først plasserer du markøren inne i en målseksjon.
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".
6. Åpne ny modul ved å dobbeltklikke.
7. Nå i den åpne modulen limer du inn følgende koder:

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. 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.

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("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. 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.

1. Først av alt, åpne måldokumentet.
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 = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next 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