3 meetodit Wordi dokumendi jaotiste sõnade arvu loendamiseks

Sõnalahendused September 28, 2025

Selles artiklis on kolm meetodit, kuidas lugeda Wordi dokumendi jaotiste sõnade arvu.

Dokumendi sõnade koguarvu on lihtne hankida. Kuid Wordis pole funktsiooni, mis ütleks meile jaotise sõnade arvu. Arvestades asjaolu, et eelistame paigutada sama teema sisu ühte jaotisesse, näiteks peatüki korraldamine raamatu kirjutamise ajal, on meil vaja välja mõelda lahendused jaotiste arvu saamiseks. Loendage oma Wordi dokumendi jaotiste sõnade arv  Järgnevalt on toodud 3 lähenemisviisi, mis nõuavad makro käivitamist.

1. meetod: loendage praeguse jaotise sõnade arv

  1. Esiteks asetage kursor sihtrühma.
  2. Seejärel peate Wordis avama VBA redaktori. Klõpsake "Arendaja" ja seejärel käsku "Visual Basic". Kui te ei leia lindilt valikut "Arendaja", vajutage selle asemel "Alt+ F11".
  3. Järgmisena klõpsake vasakpoolses veerus "Tavaline" projekt.
  4. Seejärel klõpsake vahekaarti "Sisesta".
  5. Selles rippmenüüs valige "Moodul".Klõpsake "Tavaline" -> Klõpsake "Lisa" -> klõpsake "Moodul"
  6. Avage uus moodul topeltklõpsuga.
  7. Nüüd kleepige avatud moodulisse järgmised koodid:
Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub
  1. Lõpuks klõpsake koodide käivitamiseks nuppu "Käivita" või "F5".Kleebi koodid -> klõpsake "Käivita"

Saate sõnumikasti, mis näitab praeguste jaotiste koguarvu, näiteks allpool:Sõnade arv praeguses jaotises

2. meetod: loendage konkreetse jaotise sõnade arv

Oletame, et olete töötanud raamatu kallal ja seadnud iga peatüki eraldi jaotisena. Seejärel saate seda meetodit kasutada, et teada saada, mitu sõna olete peatükis kirjutanud.

  1. Makro installimiseks ja käivitamiseks järgige ülaltoodud samme.
  2. Lihtsalt asendage makro selle makroga:
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
  1. Ja selle käivitamisel on sisestuskast. Sisestage väljale "Sisesta jaotise number" jaotise number ja klõpsake edasi liikumiseks "OK".Sisestage jaotise number -> klõpsake "OK"

Tulemus kuvatakse sõnumikastis.

3. meetod: loendage sõnade arv dokumendi kõigi jaotiste jaoks

Nagu alapealkiri viitab, saadakse sel viisil dokumendi iga jaotise sõnade koguarv ja loetletakse need sõnumikasti.

  1. Esiteks avage sihtdokument.
  2. Siiski peate makro installimiseks ja käivitamiseks kordama 1. meetodi samme.
  3. Ja seekord muutke selle makroga:
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

Siin on võimalik tulemus:Sõnade arv dokumendi iga jaotise jaoks

Salvestage väärtuslikke andmeid

Kõikvõimalike dokumentidega tegelemisel tuleb meeles pidada nende turvalisust. Kuna te ei saa kunagi öelda, millal järgmine andmete kadu juhtub, on soovitatav olulised failid varundada. Pealegi on alati hea hankida tööriist, mis suudab taastu dok, kui mõni.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas xls remont ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.