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

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

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

Sub CountString()

Dim MyDoc As String     Dim txt As String     Dim 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 — самая популярная программа для обработки текстов в мире.) Этот совет (5651) относится к Microsoft Word 2007, 2010 и 2013.

Вы можете найти версию этого совета для старого интерфейса меню Word здесь:

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