Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выделить все найденные элементы макросом в Ворде - VBA / 7 сообщений из 7, страница 1 из 1
17.10.2017, 05:45
    #39537165
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделить все найденные элементы макросом в Ворде - VBA
здравствуйте, если я рекордером запишу действия-найти "еро" и выделить жёлтым цветом, получу код:
Код: 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, 08:59
    #39537205
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделить все найденные элементы макросом в Ворде - VBA
Эндрю, ты восьмой год на форуме, а вопросы одни и те же
http://www.sql.ru/faq/faq_topic.aspx?fid=4344
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2017, 11:22
    #39537357
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделить все найденные элементы макросом в Ворде - VBA
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:47
    #39537395
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделить все найденные элементы макросом в Ворде - VBA
А ты хотел получить удовлетворение? Или какую-то реакцию программы? Пока ты только настроил объект Find и более ничего.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2017, 12:56
    #39537450
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделить все найденные элементы макросом в Ворде - VBA
Shocker.Pro,
мне нужно кодом сделать то, что я делаю вручную без проблем-нужный текст выкрасить в нужный цвет...одним махом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2017, 05:02
    #39537784
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделить все найденные элементы макросом в Ворде - VBA
может кому пригодится:
Код: 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, 22:56
    #39538430
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделить все найденные элементы макросом в Ворде - VBA
Shocker.ProЭндрю, ты восьмой год на форуме, а вопросы одни и те же
http://www.sql.ru/faq/faq_topic.aspx?fid=4344

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


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