3 метода за преброяване на броя на думите за раздели във вашия документ на Word

В тази статия ще има 3 метода, за да преброите броя на думите за раздели във вашия документ на Word.

Лесно е да получите общия брой думи на документ. Но в Word няма функция, която да ни казва броя на думите в даден раздел. И предвид факта, че предпочитаме да поставим съдържанието на една и съща тема в един раздел, като например организиране на глава, докато пишете книга, е необходимо да измислим заобиколни решения, за да получим броя на секциите.   Следват 3 подхода, които изискват стартиране на макрос.

Метод 1: Пребройте броя на думите за текущата секция

1. Първо, поставете курсора в целевата секция.
2. След това трябва да отворите редактора на VBA в Word. Щракнете върху „Developer“ и след това върху командата „Visual Basic“. В случай, че не можете да намерите „Developer“ в лентата, след това натиснете „Alt + F11“ вместо това.
3. След това кликнете върху „Нормален“ проект в лявата колона.
4. След това щракнете върху раздела „Вмъкване“.
5. В това падащо меню изберете „Модул“.
6. Отворете нов модул чрез двукратно щракване.
7. Сега в отворения модул поставете следните кодове:

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

8. И накрая, щракнете върху „Изпълни“ или натиснете „F5“, за да изпълните кодове.

Ще получите поле за съобщение, показващо общия брой на текущата секция, като например по-долу:

Метод 2: Пребройте броя на думите за определен раздел

Да приемем, че сте работили по книга и сте задали всяка глава като отделен раздел. След това, за да разберете колко думи сте написали в глава, можете да използвате този метод.

1. Следвайте стъпките по-горе, за да инсталирате и стартирате макрос.
2. Просто заменете макроса с този:

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. И при стартирането му ще има поле за въвеждане. В полето „Въведете номера на секцията“ въведете номера на секцията и щракнете върху „OK“, за да продължите напред.

Резултатът се показва в полето за съобщения.

Метод 3: Пребройте броя на думите за всички раздели в документ

Както подзаглавието предполага, по този начин ще получите общия брой думи от всяка секция в документ и ще ги изброите в полето за съобщение.

1. Първо, отворете целевия документ.
2. И все пак трябва да повторите стъпки от метод 1, за да инсталирате и стартирате макроса.
3. И този път променете с този макрос:

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

Ето възможния резултат:

Запазване на ценни данни

Докато се занимавате с всякакви документи, трябва да имате предвид безопасността им. Тъй като никога не можете да разберете кога ще се случи следващата загуба на данни, препоръчва се да направите резервно копие на важни файлове. Освен това винаги е добре да се сдобиете с инструмент, който може възстанови док, Ако някой.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително xls ремонт и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com