Лизе работает с 50 небольшими документами, многие из которых меньше страницы. Все они находятся в отдельных файлах (без основных или дополнительных документов). Она хотела бы знать общее количество слов во всех файлах и интересуется, есть ли простой способ его подсчитать.

Один из вариантов — использовать стороннюю надстройку, которая может рассчитать количество слов за вас. Вот три предложения, которые вы можете попробовать:

WordCounter: http://www.editorium.com/counter.htm FineCount: http://www.tilti.com/software-for-translators/finecount/ Total Assistant: http://www.surefiresoftware.com/totalassistant/

Конечно, если вы предпочитаете «использовать свое собственное», а не полагаться на чье-то решение, вы можете создать относительно простой макрос, который будет проходить по каждому файлу в папке и вычислять общее количество слов.

Sub GetWordCount()

Dim docname As String     Dim NumWords As Long     Dim NumFiles As Integer     Dim PathName As String

PathName = "c:\mypath\"



NumWords = 0     docname = Dir(PathName & ".doc")

While docname <> ""

NumFiles = NumFiles + 1         Documents.Open FileName:=PathName & docname, Visible:=False         Documents(docname).Activate

NumWords = NumWords + ActiveDocument.BuiltInDocumentProperties("Number of words").Value

Documents(docname).Close savechanges:=False         docname = Dir     Wend

MsgBox ("There are " & NumWords & " words in " & NumFiles & " documents.")

End Sub

Чтобы использовать макрос, убедитесь, что вы изменили переменную PathName так, чтобы она отражала путь к папке, содержащей документы, которые вы хотите подсчитать. (Обозначение пути должно заканчиваться обратной косой чертой.) Когда вы запускаете макрос, он отображает количество слов в окне сообщения.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13278) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Word_Counts_for_a_Group_of_Documents [Количество слов для группы документов].