3 spôsoby, ako získať štatistiku počtu slov súvisiacu s textovými poľami, poznámkami pod čiarou a vysvetlivkami v dokumente

V dnešnom článku sú 3 rýchle spôsoby, ako získať štatistiku počtu slov súvisiacu s textovými poľami, poznámkami pod čiarou a vysvetlivkami v dokumente.

Nie je ťažké získať celkový počet slov v dokumente. Ak však chcete získať počet slov rôznych druhov textov, bude potrebných viac operácií. Nasledujú 3 metódy. Čítajte ďalej a zistite, čo môžete použiť. 

Metóda 1: Spočítajte slová vrátane textov z textových polí, poznámok pod čiarou a vysvetliviek

V predvolenom nastavení Word počíta všetky slová, ktoré sa v dokumente zobrazia, vrátane textov v textových poliach a tiež slov z poznámok pod čiarou a vysvetliviek.

1. Najprv prejdite na stavový riadok a kliknite na „Slová“, čím otvoríte pole „Počet slov“.
2. Tam uvidíte všetky druhy štatistík. Skontrolujte, či ste začiarkli políčko „Zahrnúť textové polia, poznámky pod čiarou a poznámky pod čiarou“.
3. Potom kliknite na „Zavrieť“.
4. Ak nenájdete príkaz „Slová“ na stavovom riadku, kliknite tam pravým tlačidlom myši.
5. Ďalej skontrolujte „Počet slov“.

Metóda 2: Vylúčenie textov z textových polí, poznámok pod čiarou a vysvetliviek z počtu slov

Je to proti metóde 1. Takže stačí zrušiť začiarknutie políčka „Zahrnúť textové polia, poznámky pod čiarou a poznámky pod čiarou“.

Metóda 3: Spustením makra programu Word získate samostatný počet slov od textových polí, poznámok pod čiarou a poznámok pod čiarou

1. Najskôr spustite políčko „Počet slov“ spôsobom uvedeným v metóde 1 a skontrolujte, či je začiarknuté políčko.
2. Ďalej stlačte „Alt + F11“, aby ste otvorili editor VBA.
3. Potom vložte nový modul do projektu „Normálne“ tak, že najskôr kliknete na „Normálny“.
4. Ďalej kliknite na „Vložiť“.
5. Potom zvoľte „Modul“.
6. Dvojitým kliknutím na modul otvorte oblasť kódovania a vložte do nej nasledujúce 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. Nakoniec kliknite na tlačidlo „Spustiť“.

Ak tu nie je textové pole, poznámka pod čiarou alebo poznámka pod čiarou, zobrazí sa vám okno so správou takto:

Pokračujte kliknutím na tlačidlo „OK“. Potom uvidíte ďalšie políčko so zoznamom všetkých podrobností o počte slov.

Získajte nástroj na obnovenie

Pretože program Word sa môže zrazu zrútiť, je vhodné zaobstarať si produkt na pokročilú opravu, ktorý vykoná opravu. Takýto nástroj môže byť skvelým šetričom skazené Slovo. Využite preto čas, aby ste si nejaký zaobstarali čo najskôr.

Ú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 opraviť xls a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S