3 būdai, kaip gauti žodžių skaičiaus statistiką, susijusią su teksto laukeliais, išnašomis ir galinėmis pastabomis jūsų dokumente

Šiandienos straipsnyje pateikiami 3 greiti būdai, kaip gauti žodžių skaičiaus statistiką, susijusią su jūsų dokumento teksto laukeliais, išnašomis ir pabaigos išnašomis.

Suskaičiuoti bendrą žodžių skaičių dokumente nėra sunku. Bet jei norite gauti įvairių tekstų žodžių skaičių, reikės atlikti daugiau operacijų. Toliau pateikiami 3 būdai. Skaitykite toliau, kad sužinotumėte, ką galite naudoti. 

1 būdas: suskaičiuokite žodžius, įskaitant tekstus iš teksto laukelių, išnašas ir galūnes

Pagal numatytuosius nustatymus „Word“ skaičiuoja visus dokumente rodomus žodžius, įskaitant tekstus teksto laukeliuose ir žodžius iš išnašų ir pabaigos.

1. Visų pirma, eikite į būsenos juostą ir spustelėkite „Žodžiai“, kad atidarytumėte langą „Žodžių skaičius“.
2. Ten pamatysite visokią statistiką. Įsitikinkite, kad pažymėjote laukelį „Įtraukti teksto laukelius, išnašas ir išnašas“.
3. Tada spustelėkite „Uždaryti“.
4. Jei būsenos juostoje nerandate komandos „Žodžiai“, dešiniuoju pelės mygtuku spustelėkite ten.
5. Tada patikrinkite „Žodžių skaičius“.

2 būdas: neįtraukite tekstų iš teksto laukelių, išnašų ir galinių pastabų iš žodžių skaičiaus

Tai prieštarauja 1 metodui. Taigi jums tereikia atžymėti laukelį „Įtraukti teksto laukelius, išnašas ir pabaigos pastabas“.

3 būdas: paleiskite Word makrokomandą, kad gautumėte atskirą žodžių skaičių iš teksto laukelių, išnašų ir galūnių

1. Pirmiausia, naudodami 1 metodą, suaktyvinkite langelį „Žodžių skaičius“ ir įsitikinkite, kad parinkčių langelis yra pažymėtas.
2. Tada paspauskite „Alt + F11“, kad atidarytumėte VBA redaktorių.
3. Tada į „Normal“ projektą įdėkite naują modulį, pirmiausia spustelėdami „Normalus“.
4. Ir toliau spustelėkite „Įterpti“.
5. Tada pasirinkite „Modulis“.
6. Dukart spustelėkite modulį, kad atidarytumėte kodavimo sritį ir įklijuokite ten šiuos kodus:

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. Galiausiai spustelėkite mygtuką „Vykdyti“.

Jei nėra teksto laukelio, išnašos ar pabaigos, gausite tokį pranešimo laukelį:

Tiesiog spustelėkite „Gerai“, kad tęstumėte. Tada pamatysite kitą langelį, kuriame bus pateikta visa žodžių skaičiaus informacija.

Gaukite atkūrimo įrankį

Kadangi „Word“ gali staiga sugriūti, patartina įsigyti pažangų taisymo produktą, kad būtų galima atlikti taisymo darbus. Toks įrankis gali puikiai sutaupyti sugadintas žodis. Todėl skirkite laiko, kad kuo greičiau jį gautumėte.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti xls bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com