Ворд выделение всего найденного сразу

@Ципихович Эндрю · Регистрация: 10.04.2009

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

здравствуйте мне кажется у меня этот отрезок кода:

Visual Basic
1
2
3
4
5
6
With ActiveDocument.Range.Find
                    .Text = Trim(y(1))
                    Do While .Execute = True
                        .Parent.Select
                        Selection.Range.Font.Color = wdColorLightOrange
                    Loop               End With

можно заменить на такой, который сразу выделает все найденные совпадения, пока не знаю как... не подскажете? спс

@Sasha_Smirnov · 22.07.2017, 17:06

Ципихович Эндрю, у вас тут больше всех опыта в этом.

На досуге, может, покумекаю, но неужели самому найти не прикольнее?

@Ципихович Эндрю · 22.07.2017, 17:13 **[ТС]**

Сообщение от Sasha_Smirnov

у вас тут больше всех опыта в этом.

в честь чего?
магнитофон не помог....

@Sasha_Smirnov · 22.07.2017, 18:23

В честь того, что об этом ваши темы, а все инкарнации Бузина (Busine2012) уж пятый год как неактивны.

Вообще процентов 99 юзеров даже и не догадывается

Сообщение от Natashamakros

как попасть в visual basic (alt+ f11)

Сообщение от Sasha_Smirnov

Макрос поиска чисел в тексте можно настроить и для подсчёта слов.

Пока ничего ближе к теме не нашёл.

Не по теме:

Крик души wander_vafl9 всё ближе к истине:

Сообщение от wander_vafl9

…или тут закончились люди знающие язык VBA при создании макросов в Worde!

@Ципихович Эндрю · 22.07.2017, 18:45 **[ТС]**

просто я магнитофоном писать то:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
With Selection.Find
        .Text = "при"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

то .Forward = True - но это же не то...

Добавлено через 12 минут
по потом если пошагово делать этот код, то .... фиаско

@Ципихович Эндрю · 28.07.2017, 17:23 **[ТС]**

кому интересно

Visual Basic
1
2
3
4
5
6
7
8
With rn.Find
                    'нужный текст сделать выделение цветом зелёным, чтобы изменить цвет, можно, например, поменять стандартный цвет подсветки: Options.DefaultHighlightColorIndex = wdBrightGreen
                    .Replacement.Highlight = True
                    .Text = Trim(y(1))
                    'если нужно выделение по части слова
                    .MatchWholeWord = False
                    .Execute Replace:=wdReplaceAll
                End With

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	22.07.2017, 17:06
	Ципихович Эндрю, у вас тут больше всех опыта в этом. На досуге, может, покумекаю, но неужели самому найти не прикольнее? 0