3 metode za štetje števila besed za odseke v dokumentu Word

V tem članku so na voljo 3 metode za štetje besed za odseke v dokumentu Word.

Enostavno je dobiti skupno število besed v dokumentu. Toda v Wordu ni funkcije, ki bi nam povedala število besed v oddelku. Glede na dejstvo, da vsebino iste teme raje damo v en odsek, na primer organiziranje poglavja med pisanjem knjige, moramo nujno pripraviti rešitve, da dobimo število odsekov.   Sledijo trije pristopi, ki zahtevajo zagon makra.

1. metoda: preštejte število besed za trenutni odsek

1. Najprej postavite kazalec znotraj ciljnega odseka.
2. Nato morate v Wordu odpreti urejevalnik VBA. Kliknite »Razvijalec« in nato ukaz »Visual Basic«. Če na traku ne najdete razvijalca, namesto tega pritisnite »Alt + F11«.
3. Nato v levem stolpcu kliknite projekt »Normal«.
4. Nato kliknite zavihek "Vstavi".
5. V spustnem meniju izberite »Modul«.
6. Odprite nov modul z dvojnim klikom.
7. Zdaj v odprti modul prilepite spodnje kode:

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

8. Nazadnje kliknite »Zaženi« ali pritisnite »F5« za izvajanje kod.

Prejeli boste okno s sporočilom, ki prikazuje skupno število trenutnih odsekov, na primer spodaj:

2. metoda: preštejte število besed za določen odsek

Recimo, da ste delali na knjigi in vsako poglavje postavili kot poseben odsek. Nato lahko uporabite to metodo, če želite vedeti, koliko besed ste napisali v poglavju.

1. Za namestitev in zagon makra sledite zgornjim korakom.
2. Samo makro zamenjajte s tem:

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. In ob zagonu bo vnosno polje. V polje »Enter Enter Number Number« vnesite številko odseka in kliknite »OK«, da nadaljujete.

Rezultat je prikazan na oknu za sporočila.

3. način: preštejte število besed za vse odseke v dokumentu

Kot je razvidno iz podnaslova, boste na ta način dobili skupno število besed vsakega odseka v dokumentu in jih navedli v sporočilnem polju.

1. Najprej odprite ciljni dokument.
2. Kljub temu morate za namestitev in zagon makra ponoviti korake v 1. metodi.
3. In tokrat spremenite s tem makrom:

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

Tu je možen izid:

Shrani dragocene podatke

Med obravnavanjem vseh vrst dokumentov morate upoštevati njihovo varnost. Ker nikoli ne morete ugotoviti, kdaj se bo zgodila naslednja izguba podatkov, priporočamo, da varnostno kopirate pomembne datoteke. Poleg tega je vedno dobro dobiti orodje, ki zmore izterjati dok, če kateri.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z xls popravilo in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com