3 Metoder til at tælle antallet af ord til sektioner i dit Word-dokument

I denne artikel vil der være 3 metoder til at tælle antallet af ord for sektioner i dit Word-dokument.

Det er let at få det samlede antal ord i et dokument. Men der er ingen funktion i Word til at fortælle os antallet af ord i et afsnit. Og i betragtning af det faktum, at vi foretrækker at placere indholdet af det samme emne i et afsnit, såsom at organisere et kapitel, mens vi skriver en bog, er det nødvendigt for os at komme med løsninger til at få sektionstallet.   Følgende er 3 tilgange, som kræver, at du kører en makro.

Metode 1: Tæl antallet af ord for den aktuelle sektion

1. Placer først markøren inden for en målsektion.
2. Derefter skal du åbne VBA-editor i Word. Klik på "Udvikler" og derefter på "Visual Basic" -kommandoen. Hvis du ikke kan finde “Udvikler” i båndet, skal du trykke på “Alt + F11” i stedet.
3. Klik derefter på “Normal” -projektet i venstre kolonne.
4. Klik derefter på fanen "Indsæt".
5. I rullemenuen skal du vælge “Modul”.
6. Åbn nyt modul ved at dobbeltklikke.
7. Nu skal du indsætte nedenstående koder i det åbne modul:

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

8. Endelig skal du klikke på "Kør" eller trykke på "F5" for at udføre koder.

Du modtager et meddelelsesfelt, der viser det samlede antal aktuelle sektioner, som nedenfor:

Metode 2: Tæl antallet af ord for en bestemt sektion

Lad os sige, at du har arbejdet med en bog og indstillet hvert kapitel som et individuelt afsnit. For at vide, hvor mange ord du har skrevet i et kapitel, kan du bruge denne metode.

1. Følg ovenstående trin for at installere og køre en makro.
2. Udskift bare 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 kører det, vil der være en inputboks. I feltet "Indtast sektionsnummer" skal du indtaste sektionsnummeret og klikke på "OK" for at komme videre.

Resultatet vises i en meddelelsesboks.

Metode 3: Tæl antallet af ord for alle sektioner i et dokument

Som underteksten antyder, giver denne måde dig det samlede antal ord for hver sektion i et dokument og viser dem i en meddelelsesboks.

1. Først og fremmest skal du åbne måldokumentet.
2. Stadig skal du gentage trin i metode 1 for at installere og køre makroen.
3. Og denne gang, skift med denne makro:

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 resultat:

Gem værdifulde data

Når du beskæftiger dig med alle slags dokumenter, skal du huske sikkerheden ved dem. Da du aldrig kan fortælle hvornår det næste datatab skal ske, foreslås det at tage backup af vigtige filer. Desuden er det altid godt at få et værktøj, der kan gendanne dok, hvis nogen.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder xls reparation og pdf produkter til reparation af software. For mere information besøg www.datanumen.com