3 metódy na spočítanie počtu slov pre oddiely v dokumente Word

V tomto článku budú k dispozícii 3 spôsoby počítania slov pre sekcie v dokumente Word.

Je ľahké získať celkový počet slov dokumentu. V programe Word ale neexistuje žiadna funkcia, ktorá by nám mohla povedať počet slov v sekcii. A keďže dávame prednosť tomu, aby sme obsahy rovnakej témy dali do jednej časti, napríklad pri organizovaní kapitoly pri písaní knihy, je nevyhnutné, aby sme prišli s riešením, ako počet sekcií získať.   Nasledujú 3 prístupy, ktoré vyžadujú spustenie makra.

Metóda 1: Spočítajte počet slov pre aktuálnu sekciu

1. Najskôr umiestnite kurzor do a tarzískať oddiel.
2. Potom musíte otvoriť editor VBA v programe Word. Kliknite na „Vývojár“ a potom na príkaz „Visual Basic“. Ak na páse s nástrojmi nenájdete „Vývojár“, stlačte namiesto toho klávesy „Alt + F11“.
3. Ďalej kliknite na „Normálny“ projekt v ľavom stĺpci.
4. Potom kliknite na kartu „Vložiť“.
5. V rozbaľovacej ponuke vyberte možnosť Modul.
6. Nový modul otvoríte dvojitým kliknutím.
7. Teraz do otvoreného modulu vložte nasledujúce kódy:

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

8. Na záver kliknite na „Spustiť“ alebo na spustenie kódu stlačte „F5“.

Dostanete správu s celkovým počtom aktuálnych sekcií, napríklad nižšie:

Metóda 2: Spočítajte počet slov pre konkrétnu sekciu

Povedzme, že ste pracovali na knihe a každú kapitolu nastavili ako samostatnú časť. Potom, aby ste vedeli, koľko slov ste napísali v kapitole, môžete využiť túto metódu.

1. Pri inštalácii a spustení makra postupujte podľa vyššie uvedených pokynov.
2. Stačí nahradiť makro týmto:

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. A po jeho spustení bude vstupné pole. Do poľa „Zadať číslo sekcie“ zadajte číslo sekcie a pokračujte kliknutím na tlačidlo „OK“.

Výsledok sa zobrazí v schránke správ.

Metóda 3: Spočítajte počet slov pre všetky sekcie v dokumente

Ako naznačuje podnadpis, týmto spôsobom získate celkový počet slov každej časti v dokumente a uvediete ich v zozname správ.

1. Po prvé, otvorené tarzískať dokument.
2. Napriek tomu budete musieť zopakovať kroky v metóde 1 na inštaláciu a spustenie makra.
3. A tentoraz to zmeňte pomocou tohto makra:

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

Možný výsledok:

Uložte cenné údaje

Pri vybavovaní všetkých druhov dokumentov musíte pamätať na ich bezpečnosť. Pretože nikdy nemôžete zistiť, kedy dôjde k ďalšej strate údajov, odporúča sa zálohovať dôležité súbory. Okrem toho je vždy dobré zaobstarať si nástroj, ktorý to dokáže vymáhať doc, Ak nejaký.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xls oprava a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S