Когда вы работаете с большим документом, вы можете захотеть узнать, сколько раз конкретная текстовая строка встречается в части документа.

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

Рассмотрим следующий макрос:

Sub CountString()

Dim MyDoc As String, txt As String, t As String     MyDoc = ActiveDocument.Range.Text     txt = InputBox("Text to find")

t = Replace(MyDoc, txt, "")

MsgBox (Len(MyDoc) - Len(t)) / Len(txt) & " occurrences of " & txt End Sub

Выделите текст, который хотите проанализировать, и запустите макрос. Он присваивает выбранный текст переменной MyDoc (так что ничего в фактическом документе не затрагивается), а затем просит вас ввести текстовую строку, которую вы хотите найти. Затем функция Replace используется для замены всех экземпляров этой строки в переменной MyDoc. Текст после замены присваивается переменной t. Длина текста «до» (MyDoc)

и текст «после» (t) сравнивается и вычисляется количество замен.

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (3788) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Counting_the_Instances_of_a_Text_String [Подсчет экземпляров текстовой строки].