3 metode pentru a număra numărul de cuvinte pentru secțiunile din documentul Word

În acest articol, vor exista 3 metode pentru a număra numărul de cuvinte pentru secțiunile din documentul Word.

Este ușor să obțineți numărul total de cuvinte dintr-un document. Dar nu există nicio funcție în Word care să ne spună numărul de cuvinte dintr-o secțiune. Și dat fiind faptul că preferăm să punem conținutul aceluiași subiect într-o singură secțiune, cum ar fi organizarea unui capitol în timp ce scriem o carte, este necesar să găsim soluții pentru a obține numărul de secțiuni.   Următoarele sunt 3 abordări care necesită să rulați o macrocomandă.

Metoda 1: Numărați numărul de cuvinte pentru secțiunea curentă

1. În primul rând, plasați cursorul în interiorul secțiunii țintă.
2. Apoi, trebuie să deschideți editorul VBA în Word. Faceți clic pe „Dezvoltator” și apoi pe comanda „Visual Basic”. În cazul în care nu găsiți „Dezvoltator” în Panglică, apoi apăsați „Alt+ F11”.
3. Apoi faceți clic pe „Normal” proiect în coloana din stânga.
4. Apoi faceți clic pe fila „Inserare”.
5. În acel meniu derulant, alegeți „Modul”.
6. Deschideți modul nou făcând dublu clic.
7. Acum, în modulul deschis, lipiți codurile de mai jos:

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

8. În cele din urmă, faceți clic pe „Run” sau apăsați „F5” pentru a executa coduri.

Veți primi o casetă de mesaj, care arată numărul total de secțiune curentă, cum ar fi mai jos:

Metoda 2: Numărați numărul de cuvinte pentru o anumită secțiune

Să presupunem că ați lucrat la o carte și ați configurat fiecare capitol ca o secțiune individuală. Apoi, pentru a ști câte cuvinte ai scris într-un capitol, poți folosi această metodă.

1. Urmați pașii de mai sus pentru a instala și rula o macrocomandă.
2. Doar înlocuiți macrocomanda cu aceasta:

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. Și rulând-o, va exista o casetă de introducere. În caseta „Introduceți numărul secțiunii”, introduceți numărul secțiunii și faceți clic pe „OK” pentru a continua.

Rezultatul este afișat într-o casetă de mesaj.

Metoda 3: Numărați numărul de cuvinte pentru toate secțiunile dintr-un document

După cum sugerează subtitlul, acest mod vă va obține numărul total de cuvinte din fiecare secțiune dintr-un document și le va lista într-o casetă de mesaj.

1. În primul rând, deschideți documentul țintă.
2. Totuși, trebuie să repetați pașii din metoda 1 pentru a instala și rula macrocomanda.
3. Și de data aceasta, schimbați cu această macrocomandă:

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

Iată rezultatul posibil:

Salvați date valoroase

Când vă ocupați de tot felul de documente, trebuie să aveți în vedere siguranța acestora. Deoarece nu puteți spune niciodată când va avea loc următoarea pierdere de date, se recomandă să faceți copii de rezervă ale fișierelor importante. În plus, este întotdeauna bine să obțineți un instrument care poate recupera doc, dacă există.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparare xls și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com