powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / поиск слова в ворде и его форматирование
4 сообщений из 4, страница 1 из 1
поиск слова в ворде и его форматирование
    #32413231
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
моя задача такова: отформатировать цветом найденные в тексте слова
сейчас делаю так помещаю текст в ворд, делаю мастером заменить и меняю слово "мама" на "мама" и нажимаю заменить всё....
проблемы
1) если я включаю опцию "подстановочные знаки" то начинает влиять регист(что мне не нужно) (хочу с подстановочными знаками без влияния регистра)
2) я думаю ,что было бы намного быстрее найти и отформатровать ,чем ещё выполнять "замену " слова
3) может мою задачу проще и быстрее сделать где то ещё или другим методом !??
?????????????????????????????????????????????????????????????????????????????
...
Рейтинг: 0 / 0
поиск слова в ворде и его форматирование
    #32413340
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
по-моему следующий способ достаточно быстр:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub Macro1()
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  Selection.Find.Replacement.Font.ColorIndex = wdRed
  With Selection.Find
    .Text =  "mama" 
    .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
поиск слова в ворде и его форматирование
    #32413419
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
хм.... ничего не понимаю....
я делал почти идентичным кодом.....
-(( у меня просто вырезает найденное слово
вот код

' Макрос13 Макрос
' Макрос записан 18.02.2004 Ladonin
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
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
поиск слова в ворде и его форматирование
    #32413678
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сейчас протестировал... и к моему удивлению код с заменой слова на само слово работает быстрее на 5 процентов, чем без замены....
чудеса.....
П.С. (условия равные)
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / поиск слова в ворде и его форматирование
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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