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
- Najskôr umiestnite kurzor do a tarzískať oddiel.
- 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“.
- Ďalej kliknite na „Normálny“ projekt v ľavom stĺpci.
- Potom kliknite na kartu „Vložiť“.
- V rozbaľovacej ponuke vyberte možnosť Modul.
- Nový modul otvoríte dvojitým kliknutím.
- Teraz do otvoreného modulu vložte nasledujúce kódy:
Sub CountWordsOfCurrentSection () MsgBox ("Existujú" & Selection.Sections (1) .Range.ComputeStatistics (wdStatisticWords) _ & "slová v aktuálnej sekcii.") End Sub
- 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.
- Pri inštalácii a spustení makra postupujte podľa vyššie uvedených pokynov.
- Stačí nahradiť makro týmto:
Sub CountWordsOfSpecificSection () Dim strSecNum As String Dim objDoc As Document Application.ScreenUpdating = False Set objDoc = ActiveDocument strSecNum = InputBox ("Sem zadajte číslo sekcie:", "Zadajte číslo sekcie") MsgBox ("Existujú" & objDoc.Sections (strSecNum) .Range.ComputeStatistics (wdStatisticWords) _ & "slová v sekcii" & strSecNum & ".") Application.ScreenUpdating = True End Sub
- 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.
- Po prvé, otvorené tarzískať dokument.
- Napriek tomu budete musieť zopakovať kroky v metóde 1 na inštaláciu a spustenie makra.
- A tentoraz to zmeňte pomocou tohto makra:
Sub CountWordsOfEachSectionInDoc () Dim objDoc ako dokument Dim nNumberOfSection tak dlhý Dim strText ako reťazec Application.ScreenUpdating = False Set objDoc = ActiveDocument nNumberOfSection = objDoc.Sections.Count For nNumberOfSection = 1 To nNumberOfSection strText = strText = strText = strText = strText = strText = tam (nNumberOfSection) _ .Range.ComputeStatistics (wdStatisticWords) & "slová v sekcii" & nNumberOfSection & ";" _ & vbNewLine Ďalej 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