3 veidi, kā iegūt dokumentu skaita statistiku saistībā ar dokumenta tekstlodziņiem, zemsvītras piezīmēm un gala piezīmēm

Šodienas rakstā ir 3 ātri veidi, kā iegūt dokumentu skaita statistiku, kas saistīta ar dokumenta tekstlodziņiem, zemsvītras piezīmēm un gala piezīmēm.

Nav grūti iegūt kopējo vārdu skaitu dokumentā. Bet, ja vēlaties iegūt dažāda veida tekstu vārdu skaitu, būs nepieciešamas papildu darbības. Tālāk ir 3 metodes. Lasiet tālāk, lai uzzinātu, ko jūs varat izmantot. 

1. metode: saskaitiet vārdus, ieskaitot tekstus no tekstlodziņiem, zemsvītras piezīmēm un galotnēm

Pēc noklusējuma Word skaita visus dokumentā redzamos vārdus, ieskaitot tekstlodziņos esošos tekstus, kā arī vārdus no zemsvītras piezīmēm un gala piezīmēm.

1. Pirmkārt un galvenokārt, dodieties uz statusa joslu un noklikšķiniet uz “Vārdi”, lai atvērtu lodziņu “Vārdu skaits”.
2. Tur jūs redzēsiet visu veidu statistiku. Pārliecinieties, vai esat atzīmējis izvēles rūtiņu “Iekļaut tekstlodziņus, zemsvītras piezīmes un beigu piezīmes”.
3. Pēc tam noklikšķiniet uz “Aizvērt”.
4. Ja statusa joslā nevarat atrast komandu “Vārdi”, ar peles labo pogu noklikšķiniet uz turienes.
5. Pēc tam pārbaudiet vārdu skaitu.

2. metode: Izslēdziet tekstus no teksta lodziņiem, zemsvītras piezīmes un beigu piezīmes no vārdu skaita

Tas ir pretrunā ar 1. metodi. Tāpēc jums vienkārši jāatceļ izvēles rūtiņa “Iekļaut tekstlodziņus, zemsvītras piezīmes un beigu piezīmes”.

3. metode: palaidiet Word Macro, lai iegūtu atsevišķu vārdu skaitu no tekstlodziņiem, zemsvītras piezīmēm un gala piezīmēm

1. Pirmkārt, aktivizējiet lodziņu “Vārdu skaits”, izmantojot 1. metodē norādīto veidu, un pārliecinieties, vai izvēles rūtiņa ir atzīmēta.
2. Pēc tam nospiediet “Alt + F11”, lai atvērtu VBA redaktoru.
3. Pēc tam ievietojiet jaunu moduli projektā “Normal”, vispirms noklikšķinot uz “Normal”.
4. Pēc tam noklikšķiniet uz “Ievietot”.
5. Pēc tam izvēlieties “Modulis”.
6. Veiciet dubultklikšķi uz moduļa, lai atvērtu kodēšanas apgabalu, un tur ielīmējiet šādus 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. Visbeidzot, noklikšķiniet uz Palaist.

Ja nav tekstlodziņa, zemsvītras piezīmes vai beigu piezīmes, jūs saņemsit ziņojumu lodziņu šādi:

Vienkārši noklikšķiniet uz Labi, lai turpinātu. Tad jūs redzēsiet citu lodziņu, kurā būs norādīta visa informācija par vārdu skaitu.

Iegūstiet atkopšanas rīku

Tā kā Word pēkšņi var sabrukt, ieteicams veikt uzlabotu remonta produktu, lai veiktu labošanas darbu. Šāds rīks var būt lielisks ietaupījums korumpēts Vārds. Tāpēc izmantojiet laiku, lai to iegūtu pēc iespējas ātrāk.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot xls un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar