3 načina da dobijete statistiku broja riječi u vezi s okvirima za tekst, fusnotama i završnim napomenama u vašem dokumentu

U današnjem članku postoje 3 brza načina da dobijete statistiku broja riječi koja se odnosi na tekstualne okvire, fusnote i endnote u vašem dokumentu.

Nije teško dobiti ukupan broj riječi u dokumentu. Ali ako želite da dobijete broj riječi različitih vrsta tekstova, tada će biti potrebno više operacija. Slijede 3 metode. Čitajte dalje da vidite šta možete koristiti. 

Metoda 1: Prebrojite riječi uključujući tekstove iz okvira za tekst, fusnote i endnote

Prema zadanim postavkama, Word broji sve riječi koje se pojavljuju u dokumentu, uključujući tekstove u okvirima za tekst i riječi iz fusnota i završnih bilješki.

1. Prvo i najvažnije, idite na statusnu traku i kliknite na "Riječi" da biste otvorili okvir "Broj riječi".
2. Tamo ćete vidjeti sve vrste statistike. Provjerite jeste li označili okvir "Uključi okvire za tekst, fusnote i endnote".
3. Zatim kliknite na “Zatvori”.
4. Ako ne možete pronaći komandu “Words” na statusnoj traci, kliknite desnim tasterom miša na nju.
5. Zatim provjerite "Broj riječi".

Metoda 2: Izuzimanje tekstova iz okvira za tekst, fusnota i završnih bilješki iz broja riječi

Ovo je suprotno metodi 1. Dakle, trebate samo da poništite izbor u polju „Uključi okvire za tekst, fusnote i endnote“.

Metoda 3: Pokrenite Word makro da biste dobili odvojeni broj riječi iz okvira za tekst, fusnota i završnih bilješki

1. Prvo, aktivirajte okvir „Broj riječi“ koristeći način iz metode 1 i uvjerite se da je okvir opcija označen.
2. Zatim pritisnite “Alt+ F11” da otvorite VBA editor.
3. Zatim umetnite novi modul u "Normal" projekat tako što ćete prvo kliknuti na "Normal".
4. Zatim kliknite na “Insert”.
5. Zatim odaberite "Modul".
6. Dvaput kliknite na modul da otvorite područje kodiranja i tamo zalijepite sljedeće kodove:

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. Na kraju, kliknite na dugme "Pokreni".

Ako nema okvira za tekst, fusnote ili endnote, primit ćete okvir za poruku ovako:

Samo kliknite na “OK” da nastavite. Tada ćete vidjeti još jedan okvir u kojem su navedeni svi detalji o broju riječi.

Nabavite alat za oporavak

Budući da se Word može iznenada srušiti, preporučljivo je nabaviti napredni proizvod za popravku koji će obaviti posao popravljanja. Takav alat može biti odlična ušteda za korumpirani Word. Stoga, iskoristite vrijeme da ga nabavite što je prije moguće.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti xls i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com