- Сообщения
- 738
- Реакции
- 21
ОП собирается составить рейтинг наименее коррумпированных регионов России на основе опроса представителей правоохранительных органов, социологов, адвокатов и других экспертов (Газета, 2008, 20 июня).
или
Но он опасается, что ведомственные антикоррупционные планы могут превратиться в очередные декларации (Ведомости, 2008, 26 июня).
или посложнее бывает
Поэтому крайне необходимо задуматься над решением данной проблемы (Городские новости (Красноярск), 2008, 5 июня).
или
Кроме того, все желающие уже могут скачать ее на официальном сайте Общественной палаты Тамбовской области wдw.op-tambov.ru. (Сайт Общественной палаты Тамбовской области (wвw.op-tambov.ru), 2008, 4 июня).
или
Председатель комиссии сообщил присутствующим о том, что на рассмотрение комиссии уже поступили первые проекты, которые предстоит рассмотреть в ближайшие дни (Информационное агентство «Грозный-Информ», 2008, 27 июня).
Задачка: DarkRed текст перекрасить. Т.е. перекрасить-то я могу, а вот найти варианты с вложенными скобками не получается.
Пока есть такая конструкция (написал в VBA-Ворде):
Отлавливаются только варианты без вложенных скобок.
P.S. Искать по цвету нельзя т.к. в половине случайх текст вообще не красят. Т.е. ориентироваться можно только на скобки.
или
Но он опасается, что ведомственные антикоррупционные планы могут превратиться в очередные декларации (Ведомости, 2008, 26 июня).
или посложнее бывает
Поэтому крайне необходимо задуматься над решением данной проблемы (Городские новости (Красноярск), 2008, 5 июня).
или
Кроме того, все желающие уже могут скачать ее на официальном сайте Общественной палаты Тамбовской области wдw.op-tambov.ru. (Сайт Общественной палаты Тамбовской области (wвw.op-tambov.ru), 2008, 4 июня).
или
Председатель комиссии сообщил присутствующим о том, что на рассмотрение комиссии уже поступили первые проекты, которые предстоит рассмотреть в ближайшие дни (Информационное агентство «Грозный-Информ», 2008, 27 июня).
Задачка: DarkRed текст перекрасить. Т.е. перекрасить-то я могу, а вот найти варианты с вложенными скобками не получается.
Пока есть такая конструкция (написал в VBA-Ворде):
Код:
With Selection.Find
.Text = [B]"(\([A-Za-zА-Яа-я0-9.,\-^0032^0150^0151^0160^0171^0187№]@200[7-9][A-Za-zА-Яа-я 0-9.,\-–—^0160№]@\)\.)"[/B]
[SIZE=1].Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
With .Replacement
.ClearFormatting
.Text = "\1"
.Font.Bold = True: .Font.Color = wdColorDarkBlue: .Font.Size = 15
End With
P.S. Искать по цвету нельзя т.к. в половине случайх текст вообще не красят. Т.е. ориентироваться можно только на скобки.
Последнее редактирование модератором: