Word count for only section of document

Я знаю, что можно добавить поле подсчета слов (NUMCOUNT) к документу для создания динамического числа слов, но возможно ли ограничить количество слов только частью документа?

Мне нужно решение, которое не использует Macros/VBA.

Источник

3 ответа

Ослабляя ограничения VBA, макрос, найденный на wordribbon.tips.net , может рассчитывать количество слов в разделе, при условии, что за каждым разделом следует разрыв раздела :

      Sub WordCount()
    Dim NumSec As Integer
    Dim S As Integer
    Dim Summary As String

    NumSec = ActiveDocument.Sections.Count
    Summary = "Word Count" & vbCrLf

    For S = 1 To NumSec
        Summary = Summary & "Section " & S & ": " _
          & ActiveDocument.Sections(S).Range.ComputeStatistics(wdStatisticWords) _
          & vbCrLf
    Next

    Summary = Summary & "Document: " & _
      ActiveDocument.Range.ComputeStatistics(wdStatisticWords)
    MsgBox Summary
End Sub

Обратите внимание, что я заменил.Words.Countс.ComputeStatistics(wdStatisticWords)для более точного подсчета (на основе информации в этой статье базы знаний ).

Текущий макрос покажет предупреждение с указанием количества слов в каждом разделе, но, конечно, эту информацию можно сохранить и в виде текста в документе.

Источник

Находим количество слов в разделе документа:

  • Выберите интересующий раздел
  • Расположение на панели обзора
  • В группе «Правописание» нажмите «Количество слов»:

Источник

При выборе раздела просто посмотрите на строку состояния. Там отображается количество слов.

Источник
Другие вопросы по тегам