Поиск слова, встречающегося в каждом предложении текста - VBA
Формулировка задачи:
Дан файл, содержащий текст на русском языке. Найти слово, встречающееся в каждом предложении, или сообщить, что такого слова нет.
помогите, пожалуйста. желательно код с комментариями
Решение задачи: «Поиск слова, встречающегося в каждом предложении текста»
textual
Листинг программы
Sub tt() Dim pr With CreateObject("scripting.dictionary") For Each pr In ActiveDocument.Sentences .Item(pr.Text) = .Item(pr.Text) + 1 Next For Each pr In ActiveDocument.Sentences If .Item(pr.Text) > 1 Then pr.Font.ColorIndex = wdRed Next End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д