ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выделить все найденные элементы макросом в Ворде - VBA
7 сообщений из 7, страница 1 из 1
Выделить все найденные элементы макросом в Ворде - VBA
    #39537165
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
здравствуйте, если я рекордером запишу действия-найти "еро" и выделить жёлтым цветом, получу код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
  Selection.Find.ClearFormatting
    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
    Selection.Range.HighlightColorIndex = wdYellow


если его потом пошагово делаю-ничего не происходит, почему, какой будет код для нужного? спасибо
...
Рейтинг: 0 / 0
17.10.2017, 05:45
| Ответить | Цитировать | Написать  
Выделить все найденные элементы макросом в Ворде - VBA
    #39537205
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Эндрю, ты восьмой год на форуме, а вопросы одни и те же
http://www.sql.ru/faq/faq_topic.aspx?fid=4344
...
Рейтинг: 0 / 0
17.10.2017, 08:59
| Ответить | Цитировать | Написать  
Выделить все найденные элементы макросом в Ворде - VBA
    #39537357
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Shocker.Pro,
избавился, удовлетворения не получил:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub q()
'
    With ActiveDocument.Range.Find
        .Text = "еро"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

End Sub
...
Рейтинг: 0 / 0
17.10.2017, 11:22
| Ответить | Цитировать | Написать  
Выделить все найденные элементы макросом в Ворде - VBA
    #39537395
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А ты хотел получить удовлетворение? Или какую-то реакцию программы? Пока ты только настроил объект Find и более ничего.
...
Рейтинг: 0 / 0
17.10.2017, 11:47
| Ответить | Цитировать | Написать  
Выделить все найденные элементы макросом в Ворде - VBA
    #39537450
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Shocker.Pro,
мне нужно кодом сделать то, что я делаю вручную без проблем-нужный текст выкрасить в нужный цвет...одним махом
...
Рейтинг: 0 / 0
17.10.2017, 12:56
| Ответить | Цитировать | Написать  
Выделить все найденные элементы макросом в Ворде - VBA
    #39537784
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
может кому пригодится:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub Макрос1()
'
    Options.DefaultHighlightColorIndex = wdYellow
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    With Selection.Find
        .Text = "еро"
        .Replacement.Text = ""
        '.Forward = True
        .Wrap = wdFindContinue
        '.Format = True
        '.MatchCase = False
        '.MatchWholeWord = False
        '.MatchWildcards = False
        '.MatchSoundsLike = False
        '.MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub
...
Рейтинг: 0 / 0
18.10.2017, 05:02
| Ответить | Цитировать | Написать  
Выделить все найденные элементы макросом в Ворде - VBA
    #39538430
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
Shocker.ProЭндрю, ты восьмой год на форуме, а вопросы одни и те же
http://www.sql.ru/faq/faq_topic.aspx?fid=4344

Какой там 8 лет, ТС не помнит, что спрашивал 23 июля сего года.
...
Рейтинг: 0 / 0
18.10.2017, 22:56
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выделить все найденные элементы макросом в Ворде - VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=22&tid=2172531]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 13ms
total:  135ms
созд. / загр.: 135ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]