3 Mga Paraan upang Bilangin ang Bilang ng Mga Salita para sa Mga Seksyon sa Iyong Dokumento ng Salita

Sa artikulong ito, magkakaroon ng 3 pamamaraan upang mabilang mo ang bilang ng mga salita para sa mga seksyon sa iyong dokumento sa Word.

Madaling makuha ang kabuuang bilang ng mga salita ng isang dokumento. Ngunit walang pagpapaandar sa Salita upang sabihin sa amin ang bilang ng mga salita ng isang seksyon. At naibigay sa katotohanan na mas gusto naming maglagay ng mga nilalaman ng parehong paksa sa isang seksyon, tulad ng pag-oayos ng isang kabanata habang sumusulat ng isang libro, kinakailangan upang makagawa kami ng mga workaround upang makuha ang bilang ng seksyon.   Ang sumusunod ay 3 mga diskarte na nangangailangan sa iyo ng pagpapatakbo ng isang macro.

Paraan 1: Bilangin ang Bilang ng mga Salita para sa Kasalukuyang Seksyon

1. Una, ilagay ang cursor sa loob ng isang target na seksyon.
2. Pagkatapos ay kailangan mong buksan ang VBA editor sa Word. I-click ang "Developer" at pagkatapos ang utos na "Visual Basic". Kung sakaling hindi mo mahanap ang “Developer” sa Ribbon, pagkatapos ay pindutin ang "Alt + F11" sa halip.
3. Susunod na pag-click sa "Normal" na proyekto sa kaliwang haligi.
4. Pagkatapos i-click ang tab na "Ipasok".
5. Sa drop-down na menu na iyon, piliin ang "Modyul".
6. Buksan ang bagong module sa pamamagitan ng pag-double click.
7. Ngayon sa bukas na module, i-paste ang mga bellowing code:

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

8. Panghuli, i-click ang "Run" o pindutin ang "F5" upang magpatupad ng mga code.

Makakatanggap ka ng isang kahon ng mensahe, ipinapakita ang kabuuang bilang ng kasalukuyang seksyon, tulad ng sa ibaba:

Paraan 2: Bilangin ang Bilang ng mga Salita para sa isang Tiyak na Seksyon

Sabihin nating nagtatrabaho ka sa isang libro at itinatakda ang bawat kabanata bilang isang indibidwal na seksyon. Pagkatapos upang malaman kung gaano karaming mga salita ang iyong isinulat sa isang kabanata, maaari mong gamitin ang pamamaraang ito.

1. Sundin ang mga hakbang sa itaas upang mai-install at magpatakbo ng isang macro.
2. Palitan lamang ang macro ng isang ito:

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. At patakbuhin ito, magkakaroon ng isang kahon ng pag-input. Sa kahon na "Ipasok ang Numero ng Seksyon," ilagay ang numero ng seksyon at i-click ang "OK" upang magpatuloy.

Ang resulta ay ipinapakita sa isang kahon ng mensahe.

Paraan 3: Bilangin ang Bilang ng mga Salita para sa Lahat ng Mga Seksyon sa isang Dokumento

Tulad ng iminumungkahi ng subtitle, sa ganitong paraan ay makakakuha ka ng kabuuang bilang ng mga salita ng bawat seksyon sa isang dokumento at ilista ang mga ito sa isang kahon ng mensahe.

1. Una sa lahat, buksan ang target na dokumento.
2. Gayunpaman, kailangan mong ulitin ang mga hakbang sa pamamaraan 1 upang mai-install at patakbuhin ang macro.
3. At sa oras na ito, baguhin sa macro na ito:

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

Narito ang posibleng kahihinatnan:

I-save ang Mahahalagang Data

Habang nakikipag-usap sa lahat ng uri ng mga dokumento, dapat mong tandaan ang kaligtasan ng mga ito. Dahil hindi mo masasabi kung kailan mangyayari ang susunod na pagkawala ng data, iminungkahi na i-back up ang mga mahahalagang file. Bukod, laging mabuti upang makakuha ng isang tool na maaaring bawiin mo dok, kung mayroon man.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang pag-aayos ng xls at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa