3 Metody obliczania liczby słów dla sekcji w dokumencie programu Word

W tym artykule będą dostępne 3 metody obliczania liczby słów w sekcjach w dokumencie programu Word.

Uzyskanie całkowitej liczby słów w dokumencie jest łatwe. Ale w programie Word nie ma funkcji, która mówi nam o liczbie słów w sekcji. Biorąc pod uwagę fakt, że wolimy umieścić zawartość tego samego tematu w jednej sekcji, na przykład organizując rozdział podczas pisania książki, konieczne jest, abyśmy wymyślili obejścia, aby uzyskać liczbę sekcji.   Poniżej przedstawiono 3 podejścia, które wymagają uruchomienia makra.

Metoda 1: Policz liczbę słów w bieżącej sekcji

1. Najpierw należy umieścić kursor wewnątrz sekcji docelowej.
2. Następnie musisz otworzyć edytor VBA w programie Word. Kliknij „Developer”, a następnie polecenie „Visual Basic”. Jeśli nie możesz znaleźć „Deweloper” na Wstążce, naciśnij „Alt + F11”.
3. Następnie kliknij „Normalny” projekt w lewej kolumnie.
4. Następnie kliknij zakładkę „Wstaw”.
5. W menu rozwijanym wybierz „Moduł”.
6. Otwórz nowy moduł, klikając dwukrotnie.
7. Teraz w otwartym module wklej krzykliwe kody:

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. Na koniec kliknij „Uruchom” lub naciśnij „F5”, aby wykonać kody.

Otrzymasz okno komunikatu, pokazujące całkowitą liczbę bieżących sekcji, takie jak poniżej:

Metoda 2: Policz liczbę słów w określonej sekcji

Powiedzmy, że pracujesz nad książką i ustawiasz każdy rozdział jako osobną sekcję. Następnie, aby dowiedzieć się, ile słów napisałeś w rozdziale, możesz skorzystać z tej metody.

1. Wykonaj powyższe kroki, aby zainstalować i uruchomić makro.
2. Po prostu zamień makro na to:

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. Uruchomienie tego spowoduje wyświetlenie pola wprowadzania. W polu „Wprowadź numer sekcji” wprowadź numer sekcji i kliknij „OK”, aby przejść dalej.

Wynik jest wyświetlany w oknie komunikatu.

Metoda 3: Policz liczbę słów we wszystkich sekcjach w dokumencie

Jak sugeruje podtytuł, w ten sposób otrzymasz całkowitą liczbę słów z każdej sekcji w dokumencie i wyświetlisz je w oknie komunikatu.

1. Najpierw otwórz dokument docelowy.
2. Mimo to musisz powtórzyć kroki w metodzie 1, aby zainstalować i uruchomić makro.
3. I tym razem zmień to makro:

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

Oto możliwy wynik:

Zapisz cenne dane

Mając do czynienia z wszelkiego rodzaju dokumentami, należy mieć na uwadze ich bezpieczeństwo. Ponieważ nigdy nie wiadomo, kiedy nastąpi następna utrata danych, sugeruje się tworzenie kopii zapasowych ważnych plików. Poza tym zawsze dobrze jest zaopatrzyć się w takie narzędzie odzyskać doc, Jeśli w ogóle.

Wprowadzenie autora:

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