3 módszer a szövegdobozokkal, lábjegyzetekkel és végjegyzetekkel kapcsolatos szószám-statisztika lekérésére a dokumentumban

A mai cikkben 3 gyors módszer található a dokumentum szövegdobozaihoz, lábjegyzeteihez és végjegyzeteihez kapcsolódó szószámstatisztika lekérésére.

Nem nehéz megállapítani a szavak teljes számát egy dokumentumban. De ha meg akarja szerezni a különböző típusú szövegek szavainak számát, akkor több műveletre lesz szükség. Az alábbiakban 3 módszer található. Olvasson tovább, hogy megtudja, mit használhat. 

1. módszer: Szavak számlálása, beleértve a szövegdobozokból, lábjegyzetekből és végjegyzetekből származó szövegeket

Alapértelmezés szerint a Word a dokumentumban megjelenő összes szót számolja, beleértve a szövegmezőkben lévő szövegeket és a lábjegyzetekből és végjegyzetekből származó szavakat is.

1. Először is, menj az állapotsorra, és kattints a „Szavak” gombra a „Szavak száma” mező megnyitásához.
2. Ott mindenféle statisztika látható. Győződjön meg arról, hogy bejelölte a „Szövegdobozok, lábjegyzetek és végjegyzetek szerepeltetése” négyzetet.
3. Ezután kattintson a „Bezárás” gombra.
4. Ha nem találja a „Words” parancsot az állapotsorban, kattintson rá jobb gombbal.
5. Ezután ellenőrizze a „Szavak számát”.

2. módszer: Szövegek kizárása a szövegdobozokból, lábjegyzetekből és végjegyzetekből a szószámlálásból

Ez ellentétes az 1. módszerrel. Tehát csak törölnie kell a „Szövegdobozok, lábjegyzetek és végjegyzetek szerepeltetése” négyzet jelölését.

3. módszer: Futtassa a Word makrót a szövegdobozok, lábjegyzetek és végjegyzetek külön számának lekéréséhez

1. Először is aktiválja a „Szószám” négyzetet az 1. módszer szerint, és győződjön meg arról, hogy az opció négyzet be van jelölve.
2. Ezután nyomja meg az „Alt+F11” gombot a VBA-szerkesztő megnyitásához.
3. Ezután helyezzen be egy új modult a „Normál” projektbe úgy, hogy először kattintson a „Normál” gombra.
4. Ezután kattintson a „Beszúrás” gombra.
5. Ezután válassza a „Modul” lehetőséget.
6. Kattintson duplán a modulra a kódolási terület megnyitásához, és illessze be oda a következő kódokat:

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. Végül kattintson a „Futtatás” gombra.

Ha nincs szövegdoboz, lábjegyzet vagy végjegyzet, akkor a következő üzenetdobozt kapja:

Csak kattintson az „OK” gombra a folytatáshoz. Ezután megjelenik egy másik mező, amely felsorolja a szószám minden részletét.

Szerezzen be egy helyreállítási eszközt

Mivel a Word hirtelen összeomolhat, ajánlatos fejlett javítóterméket beszerezni a javításhoz. Egy ilyen eszköz nagyszerű megtakarítást jelenthet korrupt Word. Ezért ragadja meg az időt, hogy minél előbb szerezzen be egyet.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xls javítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com