3 metoder för att räkna antalet ord för avsnitt i ditt Word-dokument

I den här artikeln kommer det att finnas tre metoder för dig att räkna antalet ord för avsnitt i ditt Word-dokument.

Det är enkelt att få det totala antalet ord i ett dokument. Men det finns ingen funktion i Word för att berätta antalet ord i ett avsnitt. Och med tanke på det faktum att vi föredrar att lägga innehåll av samma ämne i ett avsnitt, till exempel att organisera ett kapitel medan vi skriver en bok, är det nödvändigt för oss att komma med lösningar för att få avsnittet att räkna.   Följande är tre tillvägagångssätt som kräver att du kör ett makro.

Metod 1: Räkna antalet ord för aktuell sektion

1. Placera först markören inuti ett målavsnitt.
2. Då måste du öppna VBA-redigeraren i Word. Klicka på “Developer” och sedan på “Visual Basic” -kommandot. Om du inte hittar "Utvecklare" i menyfliksområdet, tryck istället på "Alt + F11".
3. Klicka sedan på “Normal” -projekt i den vänstra kolumnen.
4. Klicka sedan på fliken "Infoga".
5. Välj den här rullgardinsmenyn ”Modul”.
6. Öppna ny modul genom att dubbelklicka.
7. Klistra in bälgkoder i den öppna modulen:

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

8. Slutligen, klicka på "Kör" eller tryck på "F5" för att köra koder.

Du kommer att få en meddelandefält som visar det totala antalet aktuella avsnitt, såsom nedan:

Metod 2: Räkna antalet ord för ett specifikt avsnitt

Låt oss säga att du har arbetat med en bok och ställt in varje kapitel som en enskild sektion. För att veta hur många ord du har skrivit i ett kapitel kan du använda den här metoden.

1. Följ stegen ovan för att installera och köra ett makro.
2. Byt bara makro med det här:

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. Och när du kör det kommer det att finnas en inmatningsruta. I rutan "Ange sektionsnummer" anger du sektionsnumret och klickar på "OK" för att gå vidare.

Resultatet visas i en meddelanderuta.

Metod 3: Räkna antalet ord för alla avsnitt i ett dokument

Som undertexten föreslår, kommer detta sätt att få dig totalt antal ord för varje avsnitt i ett dokument och lista dem i en meddelandefält.

1. Först och främst, öppna måldokumentet.
2. Ändå måste du upprepa stegen i metod 1 för att installera och köra makrot.
3. Och den här gången, ändra med detta 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

Här är det möjliga resultatet:

Spara värdefulla data

När du hanterar alla typer av dokument måste du komma ihåg säkerheten för dem. Eftersom du aldrig kan säga när nästa dataförlust ska ske, föreslås det att du säkerhetskopierar viktiga filer. Dessutom är det alltid bra att få ett verktyg som kan återhämta dok, om någon.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive xls reparation och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com