Счетчик выполненных замен

@Ivarbfg · Регистрация: 09.04.2013

Студворк — интернет-сервис помощи студентам

Не могли бы Вы подсказать такой момент:

Возможно ли после исполнения макроса задать вывод окна на базе MsgBox с числом выполненных замен (с возможностью оформления данного числа произвольным текстом)

код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Replace() 
Dim inputBoxText As String, inputBoxTitle As String, inputBoxResult As String 
Dim genNumber As Integer 
inputBoxText = "Введите текст для замены:" 
inputBoxTitle = "Замена текста" 
inputBoxResult = InputBox(inputBoxText, inputBoxTitle) 
If inputBoxResult = "" Then Exit Sub 
With ActiveDocument.Content.Find 
.ClearFormatting 
.Text = "Заменяемый текст" 
.Replacement.ClearFormatting 
.Replacement.Text = inputBoxResult 
.Execute MatchCase:=True, Replace:=wdReplaceAll 
End With 
End Sub

работа ведется в Word.

@Sasha_Smirnov · 10.04.2013, 17:16

Да, это возможно! Но код придётся переделать.

Вот ознакомьтесь:
Как сделать замену и посчитать количество замен по документу
Проверить количество вхождений слова в строку

Добавлено через 9 минут
А точнее, вот здесь: Проверить количество вхождений слова в строку

Скрипт · 10.04.2013, 17:32

Вот такой вариант:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
'В программе "Word" есть особенность: если создать
    'процедуру с именем встроенной Word-команды, то вместо
    'этой команды будет выполняться процедура.
    'Поэтому на всякий случай, лучше ставить какой-нибудь
    'префикс в имени процедуры.
Sub myReplace()
 
    Dim inputBoxText As String, inputBoxTitle As String, inputBoxResult As String
    Dim genNumber As Integer
    Dim rngSearch As Word.Range
    Dim myFind As Word.Find
    
    inputBoxText = "Введите текст для замены:"
    inputBoxTitle = "Замена текста"
    inputBoxResult = InputBox(inputBoxText, inputBoxTitle)
    If inputBoxResult = "" Then Exit Sub
    
    'Поиск с использованием "Content" отличается от поиска
        'с использованием "Selection".
        
    '1. Создаём виртуальную закладку (похожа на обычную Word-закладку),
        'с помощью которой будем перемещаться по документу в поисках
        'искомого текста. Ставим закладку в начало документа.
    Set rngSearch = ActiveDocument.Range(Start:=0, End:=0)
        
    '2. Создаём объект поиска и даём этому объекту VBA-имя "myFind".
        'Объект поиска будет связан с нашей закладкой "rngSearch".
    Set myFind = rngSearch.Find
    
    'Поиск с использованием "Content"
        'не связан с окном "Найти и заменить" и при каждом
        'запуске поиска с использованием "Content" создаётся
        'в оперативной памяти компьютера новый объект поиска "Find",
        'поэтому можно не указывать ненужные параметры поиска,
        'т.к. они будут по умолчанию.
    
    '3. Настраиваем объект поиска.
    myFind.Text = "Заменяемый текст"
    myFind.MatchCase = True
        
    'В VBA-Word нет инструмента для подсёта числа замен.
        'Поэтому нужно самим сделать такой инструмент.
        
    'Делать, пока находится искомый текст.
    Do While myFind.Execute = True
        
        '4. Если будет найдено, то закладка "rngSearch" окружит
            'найденный текст. Производим замену.
        rngSearch.Text = inputBoxResult
    
        '5.  Смещаем закладку в конец найденного текста, чтобы поиск продолжился.
        rngSearch.Collapse Direction:=wdCollapseEnd
        
        '6. Подсчитываем число замен.
        genNumber = genNumber + 1
    
    Loop
        
    '7. Выводим количество замен на монитор.
    'Символ "&" используется для соединения фрагментов текста
        'в одну строку.
    MsgBox "Результат: " & genNumber
    
End Sub

@Ivarbfg · 10.04.2013, 19:16 **[ТС]**

Огромное СПАСИБО за исчерпывающий ответ!
И еще одно спасибо за предоставленные разъяснения.
Работает идеально

Р.S.: Удалось завершить алгоритм обработки информации и адаптировать его для обычного пользователя. Если раньше процесс занимал от 3 до 6 часов, то теперь массив обрабатывается за 5-10 минут))

Спасибо и Удачи!)

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	10.04.2013, 17:16
	Да, это возможно! Но код придётся переделать. Вот ознакомьтесь: Как сделать замену и посчитать количество замен по документу Проверить количество вхождений слова в строку Добавлено через 9 минут А точнее, вот здесь: Проверить количество вхождений слова в строку 0

@Ivarbfg 120 / 0 / 1 Регистрация: 09.04.2013 Сообщений: 15
	10.04.2013, 19:16 [ТС]
	Сообщение было отмечено как решение Решение Огромное СПАСИБО за исчерпывающий ответ! И еще одно спасибо за предоставленные разъяснения. Работает идеально Р.S.: Удалось завершить алгоритм обработки информации и адаптировать его для обычного пользователя. Если раньше процесс занимал от 3 до 6 часов, то теперь массив обрабатывается за 5-10 минут)) Спасибо и Удачи!) 0

Счетчик выполненных замен

Решение