3 sposoby uzyskiwania statystyk dotyczących liczby słów związanych z polami tekstowymi, przypisami dolnymi i końcowymi w dokumencie

W dzisiejszym artykule są trzy szybkie sposoby uzyskania statystyk liczby słów związanych z polami tekstowymi, przypisami dolnymi i końcowymi w dokumencie.

Nie jest trudno uzyskać całkowitą liczbę słów w dokumencie. Ale jeśli chcesz uzyskać liczbę słów z różnych rodzajów tekstów, będzie wymaganych więcej operacji. Poniżej przedstawiono 3 metody. Czytaj dalej, aby zobaczyć, czego możesz użyć. 

Metoda 1: Policz słowa, w tym teksty z pól tekstowych, przypisów i przypisów końcowych

Domyślnie program Word zlicza wszystkie wyrazy występujące w dokumencie, w tym teksty w polach tekstowych oraz słowa z przypisów dolnych i końcowych.

1. Przede wszystkim przejdź do paska stanu i kliknij „Słowa”, aby otworzyć pole „Liczba słów”.
2. Tam zobaczysz różnego rodzaju statystyki. Upewnij się, że zaznaczyłeś pole „Uwzględnij pola tekstowe, przypisy i przypisy końcowe”.
3. Następnie kliknij „Zamknij”.
4. Jeśli nie możesz znaleźć polecenia „Słowa” na pasku stanu, kliknij je prawym przyciskiem myszy.
5. Następnie sprawdź „Licznik słów”.

Metoda 2: Wyklucz teksty z pól tekstowych, przypisów dolnych i końcowych z liczby słów

Jest to przeciwieństwo metody 1. Wystarczy więc odznaczyć pole „Uwzględnij pola tekstowe, przypisy dolne i końcowe”.

Metoda 3: Uruchom makro programu Word, aby uzyskać oddzielną liczbę słów z pól tekstowych, przypisów dolnych i końcowych

1. Po pierwsze, wywołaj pole „Liczba słów”, korzystając z metody 1 i upewnij się, że pole opcji jest zaznaczone.
2. Następnie naciśnij „Alt + F11”, aby otworzyć edytor VBA.
3. Następnie wstaw nowy moduł do projektu „Normalny”, klikając najpierw „Normalny”.
4. Następnie kliknij „Wstaw”.
5. Następnie wybierz „Moduł”.
6. Kliknij dwukrotnie moduł, aby otworzyć obszar kodowania i wklej tam następujące kody:

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 koniec kliknij przycisk „Uruchom”.

Jeśli nie ma pola tekstowego, przypisu lub przypisu końcowego, otrzymasz następujący komunikat:

Po prostu kliknij „OK”, aby kontynuować. Następnie zobaczysz kolejne okno zawierające wszystkie szczegóły dotyczące liczby słów.

Zdobądź narzędzie do odzyskiwania

Ponieważ program Word może nagle się zwinąć, zaleca się zakup zaawansowanego produktu naprawczego, aby wykonać zadanie naprawcze. Takie narzędzie może być wielką oszczędnością zepsute słowo. Dlatego wykorzystaj czas, aby jak najszybciej go zdobyć.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym napraw xls i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com