3 metodes, kā saskaitīt sadaļu vārdu skaitu jūsu Word dokumentā

Šajā rakstā būs 3 metodes, lai jūs varētu saskaitīt Word dokumenta sadaļu vārdu skaitu.

Ir viegli iegūt kopējo dokumenta vārdu skaitu. Bet programmā Word nav funkcijas, kas mums norādītu sadaļas vārdu skaitu. Ņemot vērā to, ka mēs vēlamies ievietot vienas un tās pašas tēmas saturu vienā sadaļā, piemēram, nodaļas organizēšana, rakstot grāmatu, mums ir jāizdomā risinājumi, lai iegūtu sadaļu skaitu.   Tālāk ir norādītas 3 pieejas, kas prasa makro palaišanu.

1. metode: saskaitiet pašreizējās sadaļas vārdu skaitu

1. Vispirms novietojiet kursoru mērķa sadaļā.
2. Tad jums jāatver VBA redaktors programmā Word. Noklikšķiniet uz “Developer” un pēc tam uz “Visual Basic” komandu. Ja lentē nevarat atrast “Izstrādātāju”, tad tā vietā nospiediet “Alt + F11”.
3. Pēc tam kreisajā kolonnā noklikšķiniet uz “Normal”.
4. Pēc tam noklikšķiniet uz cilnes “Ievietot”.
5. Šajā nolaižamajā izvēlnē izvēlieties “Modulis”.
6. Atveriet jaunu moduli, veicot dubultklikšķi.
7. Tagad atvērtajā modulī ielīmējiet plūstošos kodus:

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

8. Visbeidzot, noklikšķiniet uz “Run” vai nospiediet “F5”, lai izpildītu kodus.

Jūs saņemsit ziņojumu lodziņu, kurā būs redzams pašreizējās sadaļas kopējais skaits, piemēram:

2. metode: saskaitiet vārdu skaitu konkrētai sadaļai

Pieņemsim, ka esat strādājis pie grāmatas un katru nodaļu iestatījāt kā atsevišķu sadaļu. Tad, lai uzzinātu, cik daudz vārdu esat uzrakstījis nodaļā, varat izmantot šo metodi.

1. Izpildiet iepriekš minētās darbības, lai instalētu un palaistu makro.
2. Vienkārši aizstājiet makro ar šo:

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. Un palaižot to, būs ievades lodziņš. Lodziņā “Enter Section Number” ievadiet sadaļas numuru un noklikšķiniet uz “OK”, lai turpinātu.

Rezultāts tiek parādīts ziņojuma lodziņā.

3. metode: saskaitiet visu dokumenta sadaļu vārdu skaitu

Kā liecina apakšvirsraksts, šādā veidā iegūsiet katras dokumenta sadaļas vārdu kopējo skaitu un uzskaitiet tos ziņojumu lodziņā.

1. Pirmkārt, atveriet mērķa dokumentu.
2. Tomēr, lai instalētu un palaistu makro, jums jāatkārto 1. metodes darbības.
3. Un šoreiz mainiet šo 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

Šeit ir iespējams rezultāts:

Saglabājiet vērtīgos datus

Strādājot ar visa veida dokumentiem, jums jāpatur prātā to drošība. Tā kā nekad nevar pateikt, kad notiks nākamais datu zudums, ieteicams dublēt svarīgus failus. Turklāt vienmēr ir labi iegūt rīku, kas to var atgūt doc, ja kāds.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp xls remonts un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar