Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Макрос для Word2003 Выделение слов
Макрос для Word2003 Выделение слов
svoyak Дата: Четверг, 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
 
Ответить
СообщениеДоброго дня!
Очень нужен макрос для выделения цветом слов в документе.
Есть список слов порядка 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 в 07:51
китин Дата: Четверг, 31.08.2017, 07:54 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеКак оформлять сообщения?

Автор - китин
Дата добавления - 31.08.2017 в 07:54
svoyak Дата: Четверг, 31.08.2017, 08:03 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - svoyak
Дата добавления - 31.08.2017 в 08:03
Pelena Дата: Четверг, 31.08.2017, 08:06 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Файлик с примером бы ещё для тренировки
И вот это
либо исправить, либо удалить, либо оставить - на усмотрение редактирующего
не понятно, как Вы хотите реализовать


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеФайлик с примером бы ещё для тренировки
И вот это
либо исправить, либо удалить, либо оставить - на усмотрение редактирующего
не понятно, как Вы хотите реализовать

Автор - Pelena
Дата добавления - 31.08.2017 в 08:06
svoyak Дата: Четверг, 31.08.2017, 08:34 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

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

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


Сообщение отредактировал svoyak - Четверг, 31.08.2017, 08:36
 
Ответить
СообщениеPelena, Список слов пока в отдельном файле, а документы просто текстовый файл в word - смысла в нём не много будет
Цитата svoyak, 31.08.2017 в 07:51, в сообщении № 1 ( писал(а)):
либо исправить, либо удалить, либо оставить - на усмотрение редактирующего
не понятно, как Вы хотите реализовать

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

Автор - svoyak
Дата добавления - 31.08.2017 в 08:34
Pelena Дата: Четверг, 31.08.2017, 08:49 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

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
 
Ответить
Сообщение[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]

Автор - Pelena
Дата добавления - 31.08.2017 в 08:49
svoyak Дата: Четверг, 31.08.2017, 08:54 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - svoyak
Дата добавления - 31.08.2017 в 08:54
svoyak Дата: Четверг, 31.08.2017, 11:11 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - svoyak
Дата добавления - 31.08.2017 в 11:11
Pelena Дата: Четверг, 31.08.2017, 11:37 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

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


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеДумаю, макрос будет уже другой.
Создайте тему в разделе ВОПРОСЫ ПО EXCEL, опишите задачу, приложите файл с примером

Автор - Pelena
Дата добавления - 31.08.2017 в 11:37
svoyak Дата: Пятница, 01.09.2017, 05:21 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - svoyak
Дата добавления - 01.09.2017 в 05:21
svoyak Дата: Пятница, 01.09.2017, 05:28 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, Всё, сам разобрался, спасибо)
 
Ответить
СообщениеPelena, Всё, сам разобрался, спасибо)

Автор - svoyak
Дата добавления - 01.09.2017 в 05:28
Pelena Дата: Пятница, 01.09.2017, 11:20 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

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
 
Ответить
СообщениеЕсли слов много, можно их в отдельный файл выписать в столбик и такой макрос применить. Файл список слов должен находиться в той же папке
[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]

Автор - Pelena
Дата добавления - 01.09.2017 в 11:20
serejaa Дата: Воскресенье, 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)
 
Ответить
СообщениеPelena, подскажите что я делаю не так. со скриптами встретился впервые.
первый ваш вариант добавил в ворд2016, работает отлично. но со вторым проблема. Выдаёт ошибку
Run-time error '91':
Object variable or With block variable not set
пробовал копировать скрипт и копировать файл "список слов.docx", всегда ошибка.

Автор - serejaa
Дата добавления - 24.09.2017 в 00:10
Pelena Дата: Воскресенье, 24.09.2017, 07:35 | Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

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


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

Автор - Pelena
Дата добавления - 24.09.2017 в 07:35
serejaa Дата: Суббота, 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
 
Ответить
Сообщение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:31
serejaa Дата: Суббота, 11.11.2017, 01:55 | Сообщение № 16
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
уже не надо, сам разобрался. :)
 
Ответить
Сообщениеуже не надо, сам разобрался. :)

Автор - serejaa
Дата добавления - 11.11.2017 в 01:55
serejaa Дата: Среда, 24.07.2019, 14:12 | Сообщение № 17
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena,
подскажите пожалуйста что сделать, если список слов не помещается в 1 строку в макросе?
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
 
Ответить
СообщениеPelena,
подскажите пожалуйста что сделать, если список слов не помещается в 1 строку в макросе?
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

Автор - serejaa
Дата добавления - 24.07.2019 в 14:12
Pelena Дата: Среда, 24.07.2019, 14:23 | Сообщение № 18
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

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


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЧтобы разбить строку в макросе, надо в конце поставить пробел, знак подчеркивания и нажать Enter, тогда следующая строка будет продолжением предыдущей.
Или посмотрите вариант в сообщении 12

Автор - Pelena
Дата добавления - 24.07.2019 в 14:23
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Макрос для Word2003 Выделение слов
  • Страница 1 из 1
  • 1
Поиск:

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