Макрос для Word2003 Выделение слов - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Макрос для Word2003 Выделение слов - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Макрос для Word2003 Выделение слов

Макрос для Word2003 Выделение слов

Дата: Четверг, 31.08.2017, 07:51 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброго дня!
Очень нужен макрос для выделения цветом слов в документе.
Есть список слов порядка 100 шт. и он постоянно дополняется.
И так же есть множество документов в которых слова из списка нужно либо исправить, либо удалить, либо оставить - на усмотрение редактирующего.
Нашел такой:
[vba]

Код

Sub PaintGrey()
Selection.Find.ClearFormatting
Options.DefaultHighlightColorIndex = wdRed
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True ' подсветка
With Selection.Find
.Text = "ght" ' текст для поиска
.Replacement.Text = "ght" ' текст для замены
.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

[/vba]
Но он мне не подходит, так как нужно под каждое слово, копировать часть макроса, вставлять слово 2 раза и так 100 раз(((
Хотелось бы, что бы можно было их через запятую, что-ли написать и в любой момент дополнить если нужно.

Сообщение отредактировал svoyak - Четверг, 31.08.2017, 08:00

Ответить

Дата: Четверг, 31.08.2017, 07:54 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Как оформлять сообщения?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Четверг, 31.08.2017, 08:03 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

китин, Исправил, сори))) Надеюсь так пойдёт?
просто меня пинают чуть-чуть), вот в попыхах ищу выход.

Ответить

Дата: Четверг, 31.08.2017, 08:06 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Файлик с примером бы ещё для тренировки
И вот это

Цитата svoyak, 31.08.2017 в 07:51, в сообщении № 1 ()

либо исправить, либо удалить, либо оставить - на усмотрение редактирующего

не понятно, как Вы хотите реализовать

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Четверг, 31.08.2017, 08:34 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena, Список слов пока в отдельном файле, а документы просто текстовый файл в word - смысла в нём не много будет

Цитата Pelena, 31.08.2017 в 08:06, в сообщении № 4 ()

Цитата svoyak, 31.08.2017 в 07:51, в сообщении № 1 ( писал(а)):
либо исправить, либо удалить, либо оставить - на усмотрение редактирующего
не понятно, как Вы хотите реализовать

Допустим у меня есть текст в котором слово "привет" есть 3 раза, слово "пока" - 2 раза, словосочетание "не менее" - 2 раза и так далее ещё 50 слов или больше.
Так вот нужно, чтобы макрос просто выделил все эти слова ЦВЕТОМ за 1 нажатие и всё!

Сообщение отредактировал svoyak - Четверг, 31.08.2017, 08:36

Ответить

Дата: Четверг, 31.08.2017, 08:49 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

[vba]

Код

Sub PaintGrey()
    Dim xfind(), i&
    xfind = Array("привет", "пока", "не менее")
    Selection.Find.ClearFormatting
    Options.DefaultHighlightColorIndex = wdRed
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True    ' подсветка
    For i = 0 To UBound(xfind)
        With Selection.Find
            .Text = xfind(i)    ' текст для поиска
            .Replacement.Text = xfind(i)    ' текст для замены
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next i
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Четверг, 31.08.2017, 08:54 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena, Огромное вам человеческое спасибо!!!
Всё работает отлично!!!

Ответить

Дата: Четверг, 31.08.2017, 11:11 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena, А можно попросить тоже самое только для Excel?
А то документы идут не только в word

Ответить

Дата: Четверг, 31.08.2017, 11:37 | Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Думаю, макрос будет уже другой.
Создайте тему в разделе ВОПРОСЫ ПО EXCEL, опишите задачу, приложите файл с примером

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Пятница, 01.09.2017, 05:21 | Сообщение № 10

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena, Вы знаете, появилась другая проблема. Список слов большой:
("более", "менее", "не более", "не менее", "наиболее", "наименее", "меньше", "больше", "не меньше", "не больше", "ниже", "выше", "не ниже", "не выше", "не хуже", "не лучше", "должен быть", "должна быть", "должно быть", "должны быть", "не должен быть", "не должна быть", "не должно быть", "не должны быть", "должен иметь", "должна иметь", "должно иметь", "должны иметь", "не должен иметь", "не должна иметь", "не должно иметь", "не должны иметь", "должен равняться", "должна равняться", "должно равняться", "должны равняться", "не должен равняться", "не должна равняться", "не должно равняться", "не должны равняться", "должен обеспечиваться", "должна обеспечиваться", "должно обеспечиваться", "должны обеспечиваться", "не должен обеспечиваться", "не должна обеспечиваться", "не должно обеспечиваться", "не должны обеспечиваться", "возможно", "вероятно", "примерно", "возле", "либо", "может", "в основном", "и другое", "в пределах", "ориентировочно", "до", "от", "возможно", "иным", "иные", "иной", "иная", "или", "или иным", "или иные", "или иной", "или иная", "или эквивалент", "или эквивалентно", "или эквивалентное", "или эквивалентны", "или эквивалентные", "или эквивалентных", "прочий", "прочая", "прочие", "около", "расположен около", "ориентировочно", "примерно", "приближающегося", "приблизительно")

А они не влазят в 1 строчку все, а на две он их разбивать не хочет. Не знаю как их всех туда запихать.(

Pelena, Вы знаете, появилась другая проблема. Список слов большой:
("более", "менее", "не более", "не менее", "наиболее", "наименее", "меньше", "больше", "не меньше", "не больше", "ниже", "выше", "не ниже", "не выше", "не хуже", "не лучше", "должен быть", "должна быть", "должно быть", "должны быть", "не должен быть", "не должна быть", "не должно быть", "не должны быть", "должен иметь", "должна иметь", "должно иметь", "должны иметь", "не должен иметь", "не должна иметь", "не должно иметь", "не должны иметь", "должен равняться", "должна равняться", "должно равняться", "должны равняться", "не должен равняться", "не должна равняться", "не должно равняться", "не должны равняться", "должен обеспечиваться", "должна обеспечиваться", "должно обеспечиваться", "должны обеспечиваться", "не должен обеспечиваться", "не должна обеспечиваться", "не должно обеспечиваться", "не должны обеспечиваться", "возможно", "вероятно", "примерно", "возле", "либо", "может", "в основном", "и другое", "в пределах", "ориентировочно", "до", "от", "возможно", "иным", "иные", "иной", "иная", "или", "или иным", "или иные", "или иной", "или иная", "или эквивалент", "или эквивалентно", "или эквивалентное", "или эквивалентны", "или эквивалентные", "или эквивалентных", "прочий", "прочая", "прочие", "около", "расположен около", "ориентировочно", "примерно", "приближающегося", "приблизительно")

А они не влазят в 1 строчку все, а на две он их разбивать не хочет. Не знаю как их всех туда запихать.(
svoyak

Ответить

СообщениеPelena, Вы знаете, появилась другая проблема. Список слов большой:
("более", "менее", "не более", "не менее", "наиболее", "наименее", "меньше", "больше", "не меньше", "не больше", "ниже", "выше", "не ниже", "не выше", "не хуже", "не лучше", "должен быть", "должна быть", "должно быть", "должны быть", "не должен быть", "не должна быть", "не должно быть", "не должны быть", "должен иметь", "должна иметь", "должно иметь", "должны иметь", "не должен иметь", "не должна иметь", "не должно иметь", "не должны иметь", "должен равняться", "должна равняться", "должно равняться", "должны равняться", "не должен равняться", "не должна равняться", "не должно равняться", "не должны равняться", "должен обеспечиваться", "должна обеспечиваться", "должно обеспечиваться", "должны обеспечиваться", "не должен обеспечиваться", "не должна обеспечиваться", "не должно обеспечиваться", "не должны обеспечиваться", "возможно", "вероятно", "примерно", "возле", "либо", "может", "в основном", "и другое", "в пределах", "ориентировочно", "до", "от", "возможно", "иным", "иные", "иной", "иная", "или", "или иным", "или иные", "или иной", "или иная", "или эквивалент", "или эквивалентно", "или эквивалентное", "или эквивалентны", "или эквивалентные", "или эквивалентных", "прочий", "прочая", "прочие", "около", "расположен около", "ориентировочно", "примерно", "приближающегося", "приблизительно")

А они не влазят в 1 строчку все, а на две он их разбивать не хочет. Не знаю как их всех туда запихать.(

Автор - svoyak
Дата добавления - 01.09.2017 в 05:21

Дата: Пятница, 01.09.2017, 05:28 | Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena, Всё, сам разобрался, спасибо)

Ответить

Дата: Пятница, 01.09.2017, 11:20 | Сообщение № 12

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Если слов много, можно их в отдельный файл выписать в столбик и такой макрос применить. Файл список слов должен находиться в той же папке
[vba]

Код

Sub PaintGrey()
    Dim xfind(), xrepl(), i&
    Dim WDoc As Object
    Dim pr As Paragraph
    Set WDoc = Documents.Open(ThisDocument.Path & "\" & "список слов.docx")
    For Each pr In ActiveDocument.Paragraphs
        i = i + 1
        ReDim Preserve xfind(1 To i)
        xfind(i) = Left(pr.Range.Text, Len(pr.Range.Text) - 1)
    Next pr
    WDoc.Close
    ThisDocument.Activate
    Selection.Find.ClearFormatting
    Options.DefaultHighlightColorIndex = wdRed
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True    ' подсветка
    For i = 1 To UBound(xfind)
        With Selection.Find
            .Text = xfind(i)    ' текст для поиска
            .Replacement.Text = xfind(i)    ' текст для замены
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next i
End Sub

[/vba]

К сообщению приложен файл: Word.rar (67.9 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Воскресенье, 24.09.2017, 00:10 | Сообщение № 13

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena, подскажите что я делаю не так. со скриптами встретился впервые.
первый ваш вариант добавил в ворд2016, работает отлично. но со вторым проблема. Выдаёт ошибку
Run-time error '91':
Object variable or With block variable not set
пробовал копировать скрипт и копировать файл "список слов.docx", всегда ошибка.

К сообщению приложен файл: 8370051.jpg (13.4 Kb)

Ответить

Дата: Воскресенье, 24.09.2017, 07:35 | Сообщение № 14

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Как же я могу подсказать, если не вижу Ваши файлы? По картинке лечить не умею.
Ошибка Object variable or With block variable not set говорит о том, что объектная переменная не определена. В макросе только одна объектная переменная WDoc. Значит, проблемы с открытием файла список слов.docx
Проверила свои файлы из сообщения 12 на Excel 2016, у меня макрос сработал

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Суббота, 11.11.2017, 00:31 | Сообщение № 15

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena,
работать с Вашим первым вариантом оказалось на много удобнее, но подскажите пожалуйста можно ли сделать так, чтобы поиск был не по конкретному слову, а по корню слова. Т.е. чтобы выделялись не только описанные слова, а все слова где указанный корень встречается.

[vba]

Код

Sub PaintYellow()
Dim xfind(), i&
xfind = Array("привет", "пока", "менее")
Selection.Find.ClearFormatting
Options.DefaultHighlightColorIndex = wdYellow
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True ' подсветка
For i = 0 To UBound(xfind)
With Selection.Find
.Text = xfind(i) ' текст для поиска
.Replacement.Text = xfind(i) ' текст для замены
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub

[/vba]

Сообщение отредактировал serejaa - Суббота, 11.11.2017, 00:32

Ответить

Дата: Суббота, 11.11.2017, 01:55 | Сообщение № 16

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

уже не надо, сам разобрался.

Ответить

Дата: Среда, 24.07.2019, 14:12 | Сообщение № 17

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Pelena,
подскажите пожалуйста что сделать, если список слов не помещается в 1 строку в макросе?

Цитата Pelena, 31.08.2017 в 08:49, в сообщении № 6 ()

Sub PaintGrey()
    Dim xfind(), i&
    xfind = Array("привет", "пока", "не менее")
    Selection.Find.ClearFormatting
    Options.DefaultHighlightColorIndex = wdRed
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True    ' подсветка
    For i = 0 To UBound(xfind)
        With Selection.Find
            .Text = xfind(i)    ' текст для поиска
            .Replacement.Text = xfind(i)    ' текст для замены
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next i
End Sub

Ответить

Дата: Среда, 24.07.2019, 14:23 | Сообщение № 18

Группа: Админы

Ранг: Местный житель

Сообщений: 19403

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Чтобы разбить строку в макросе, надо в конце поставить пробел, знак подчеркивания и нажать Enter, тогда следующая строка будет продолжением предыдущей.
Или посмотрите вариант в сообщении 12

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Макрос для Word2003 Выделение слов

Страница 1 из 1
1

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!