3 metody spočítání počtu slov pro sekce v dokumentu Word

V tomto článku budou 3 způsoby, jak spočítat počet slov pro sekce v dokumentu Word.

Je snadné získat celkový počet slov dokumentu. Ale v Wordu není žádná funkce, která by nám řekla počet slov sekce. A vzhledem k tomu, že dáváme přednost tomu, abychom obsahy stejného tématu dali do jedné sekce, jako je uspořádání kapitoly při psaní knihy, je nutné, abychom přišli s řešením, abychom počet sekcí získali.   Následuje 3 přístupy, které vyžadují spuštění makra.

Metoda 1: Spočítejte počet slov pro aktuální sekci

1. Nejprve umístěte kurzor do cílové sekce.
2. Pak musíte otevřít editor VBA v aplikaci Word. Klikněte na „Vývojář“ a poté na příkaz „Visual Basic“. Pokud na pásu karet nemůžete najít „Vývojář“, stiskněte místo toho „Alt + F11“.
3. Dále klikněte na „Normální“ projekt v levém sloupci.
4. Poté klikněte na kartu „Vložit“.
5. V této rozevírací nabídce vyberte možnost Modul.
6. Otevřete nový modul dvojitým kliknutím.
7. Nyní do otevřeného modulu vložte následující kódy:

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

8. Nakonec spusťte kódy kliknutím na „Spustit“ nebo stisknutím „F5“.

Obdržíte okno se zprávou s celkovým počtem aktuálních sekcí, například níže:

Metoda 2: Spočítejte počet slov pro konkrétní sekci

Řekněme, že pracujete na knize a nastavujete každou kapitolu jako samostatnou sekci. Chcete-li vědět, kolik slov jste napsali v kapitole, můžete použít tuto metodu.

1. Při instalaci a spuštění makra postupujte podle výše uvedených kroků.
2. Stačí nahradit 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 při jeho spuštění bude vstupní pole. Do pole „Zadejte číslo sekce“ zadejte číslo sekce a pokračujte kliknutím na „OK“.

Výsledek se zobrazí v okně se zprávou.

Metoda 3: Spočítat počet slov pro všechny sekce v dokumentu

Jak nadpis napovídá, tímto způsobem získáte celkový počet slov každé sekce v dokumentu a uvedete je do seznamu zpráv.

1. Nejprve otevřete cílový dokument.
2. Stále musíte opakovat kroky v metodě 1 pro instalaci a spuštění makra.
3. A tentokrát to změňte pomocí tohoto 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ýsledek:

Uložte cenná data

Při práci se všemi druhy dokumentů musíte mít na paměti jejich bezpečnost. Protože nikdy nevíte, kdy dojde k další ztrátě dat, doporučuje se zálohovat důležité soubory. Kromě toho je vždy dobré získat nástroj, který to dokáže obnovit doc, jestli nějaký.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně xls oprava a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com