3 způsoby, jak získat statistiky počtu slov souvisejících s textovými poli, poznámkami pod čarou a vysvětlivkami ve vašem dokumentu

V dnešním článku jsou 3 rychlé způsoby, jak získat statistiku počtu slov související s textovými poli, poznámkami pod čarou a vysvětlivkami v dokumentu.

Není těžké získat celkový počet slov v dokumentu. Pokud však chcete získat počet slov různých druhů textů, bude zapotřebí více operací. Následují 3 metody. Přečtěte si, co můžete použít. 

Metoda 1: Počítání slov včetně textů z textových polí, poznámek pod čarou a vysvětlivky

Ve výchozím nastavení Word počítá všechna slova, která se objeví v dokumentu, včetně textů v textových polích a slov z poznámek pod čarou a vysvětlivky.

1. Nejprve přejděte do stavového řádku a kliknutím na „Slova“ otevřete pole „Počet slov“.
2. Tam uvidíte všechny druhy statistik. Ujistěte se, že jste zaškrtli políčko „Zahrnout textová pole, poznámky pod čarou a vysvětlivky“.
3. Poté klikněte na „Zavřít“.
4. Pokud nemůžete najít příkaz „Slova“ na stavovém řádku, klikněte na něj pravým tlačítkem.
5. Dále zkontrolujte „Počet slov“.

Metoda 2: Vyloučení textů z textových polí, poznámek pod čarou a vysvětlivek z počtu slov

To je opak metody 1. Takže stačí zrušit zaškrtnutí políčka „Zahrnout textová pole, poznámky pod čarou a vysvětlivky“.

Metoda 3: Spuštěním makra Wordu získáte samostatný počet slov z textových polí, poznámek pod čarou a vysvětlivky

1. Nejprve spusťte pole „Počet slov“ způsobem uvedeným v metodě 1 a ujistěte se, že je políčko zaškrtnuté.
2. Poté stisknutím „Alt+ F11“ otevřete editor VBA.
3. Poté vložte nový modul do projektu „Normální“ kliknutím na „Normální“.
4. A dále klikněte na „Vložit“.
5. Poté vyberte „Modul“.
6. Dvojitým kliknutím na modul otevřete oblast kódování a vložte do ní následující kódy:

Sub SeparateCountNumberOfTextboxFootnoteEndnote()
  Dim lTextboxWords As Long
  Dim lTextboxChars As Long
  Dim lDocumntWords As Long
  Dim lDocumntChars As Long
  Dim objTextboxShape As Shape
  Dim objTemp As Dialog
  Dim bDone As Boolean
  Dim objRange As Range
  Dim lFootnoteWords As Long
  Dim lFootnoteChars As Long
  Dim lEndnoteWords As Long
  Dim lEndnoteChars As Long
 
  Application.ScreenUpdating = False

 Do
   bDone = True
   For Each objTextboxShape In ActiveDocument.Shapes
     If objTextboxShape.Type = msoGroup Then
       objTextboxShape.Ungroup
       bDone = False
     End If
   Next objTextboxShape
 Loop Until bDone

 '  Count the words and characters in the whole document.
 Selection.HomeKey Unit:=wdStory
 Set objTemp = Dialogs(wdDialogToolsWordCount)
   objTemp.Update
   objTemp.Execute
   lDocumntWords = objTemp.Words
   lDocumntChars = objTemp.Characters
 
 With ActiveDocument
 '  Count the words and characters in all textboxes.
   lTextboxWords = 0
   lTextboxChars = 0
   If ActiveDocument.Shapes.Count > 0 Then
     For Each objTextboxShape In .Shapes
       objTextboxShape.Select
       objTemp.Execute
       lTextboxWords = lTextboxWords + objTemp.Words
       lTextboxChars = lTextboxChars + objTemp.Characters
     Next objTextboxShape
   Else
     MsgBox ("There is no text box in this document")
   End If

   '  Count the words and characters in all footnotes.
   lFootnoteWords = 0
   lFootnoteChars = 0
   If ActiveDocument.Footnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdFootnotesStory Then
         objRange.Select
         objTemp.Execute
         lFootnoteWords = lFootnoteWords + objTemp.Words
         lFootnoteChars = lFootnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no footnote in this document")
   End If

   '  Count the words and characters in all endnotes. 
   lEndnoteWords = 0
   lEndnoteChars = 0
   If ActiveDocument.Endnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdEndnotesStory Then
         objRange.Select
         objTemp.Execute
         lEndnoteWords = lEndnoteWords + objTemp.Words
         lEndnoteChars = lEndnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no Endnote in this document")
   End If
 End With
 
 Application.ScreenUpdating = True

 MsgBox (" In this document there are totally" & vbCr _
   & Str(lDocumntWords) & " word(s) and" & Str(lDocumntChars) & " characters" & vbCr & vbCr _
   & "Including:" & vbCr _
   & Str(ActiveDocument.Shapes.Count) & " textboxes contain(s)" & vbCr _
   & Str(lTextboxWords) & " word(s)," & Str(lTextboxChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Footnotes.Count) & " footnotes contain(s)" & vbCr _
   & Str(lFootnoteWords) & " word(s)," & Str(lFootnoteChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Endnotes.Count) & " Endnotes contain(s)" & vbCr _
   & Str(lEndnoteWords) & " word(s)," & Str(lEndnoteChars) & " characters")
End Sub

7. Nakonec klikněte na tlačítko „Spustit“.

Pokud zde není žádné textové pole, poznámka pod čarou nebo vysvětlivka, obdržíte toto okno se zprávou:

Pokračujte kliknutím na „OK“. Poté uvidíte další pole se seznamem všech podrobností o počtu slov.

Získejte nástroj pro obnovu

Vzhledem k tomu, že Word může náhle zkolabovat, je vhodné pořídit si pokročilý opravný produkt, který opravu provede. Takový nástroj může být velkou úsporou zkažené slovo. Udělejte si proto čas a pořiďte si ho co nejdříve.

Ú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ě opravit xls a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com