|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.06.2014, 11:32 | #1 |
Регистрация: 18.06.2014
Сообщений: 8
|
Помогите поправить скрипт
Добрый день
Люди помогите пожалуйста подправить скрипт: Sub TextReplace() With ActiveDocument.Range.Find .Text = "([A-Za-zА-Яа-яЁё])([A-Za-zА-Яа-яЁё])": .MatchWildcards = True .Replacement.Text = "\1#$&@\2" .Execute Replace:=wdReplaceAll .Text = "#$&@": .MatchWildcards = False .Replacement.Text = " ": .Replacement.Font.Size = 1 .Execute Replace:=wdReplaceAll End With End Sub Какой поиск нужно задать чтобы заменялся только пробел после каждого слова, а не после каждой второй буквы. Пожалуйста |
18.06.2014, 11:48 | #2 |
Регистрация: 18.06.2014
Сообщений: 8
|
Так, с этим уже разобрался. Только вот расстояние между словами больно маленькое теперь получилось((
|
18.06.2014, 12:23 | #3 |
Регистрация: 18.06.2014
Сообщений: 8
|
Подскажите каким образом сделали замену как в прикрепленном файле ?
|
18.06.2014, 14:01 | #4 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,077
|
здесь применен китайский пробел --код 4447
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
18.06.2014, 14:06 | #5 |
Регистрация: 18.06.2014
Сообщений: 8
|
То есть мой скрипт будет иметь теперь такой вид, я правильно исправил ?
Sub TextReplace() With ActiveDocument.Range.Find .Text = "([A-Za-zА-Яа-яЁё])^0032([A-Za-zА-Яа-яЁё])": .MatchWildcards = True .Replacement.Text = "\1#$&@\2" .Execute Replace:=wdReplaceAll .Text = "#$&@": .MatchWildcards = False .Replacement.Text = "^4447": .Replacement.Font.Size = 1 .Execute Replace:=wdReplaceAll End With End Sub Нет, получилось не так, форматирование текста улетает. Похоже, что здесь используется другой символ. Я не могу сообразить запрос поиска, чтобы он в конце каждого слова добавлял этот символ и пробел тем самым изменяется слово, но визуально этого не видно. как то так, буду думать дальше. Последний раз редактировалось jovannyfx; 18.06.2014 в 14:19. Причина: UPD |
18.06.2014, 15:33 | #6 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,077
|
Код:
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
18.06.2014, 15:49 | #7 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,077
|
Код:
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
27.06.2014, 14:40 | #8 |
Регистрация: 18.06.2014
Сообщений: 8
|
Подскажите можно ли с помощью макроса заменить пробелы между русскими словами этим текстом
Код:
|
27.06.2014, 21:46 | #9 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,039
|
то есть нашли пробел глянули, если слева знак из перечня а-я, тогда смотрим справа, если тоже нак из перечня а-я, то меняем, так? так вроде же не сложно
|
27.06.2014, 22:24 | #10 |
Регистрация: 18.06.2014
Сообщений: 8
|
Да я тоже так с начала подумал. Пробовал запрос в ворде
Код:
Пробовал в Akelpad с регулярными выражениями типа [A-я]\s[А-я], так он выделяет пробел и по одной букве слева и справа от слова. |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
поправить короткий скрипт | Mick_20 | JavaScript, Ajax | 1 | 17.08.2013 18:44 |
Не могу понять как поправить скрипт | Argon333 | Общие вопросы по Java, Java SE, Kotlin | 0 | 02.03.2011 12:08 |
помогите поправить макрос | tem1112 | Microsoft Office Excel | 7 | 06.11.2009 21:25 |
Помогите поправить код | SANTA_KLAUD | Общие вопросы Delphi | 5 | 30.05.2008 09:01 |
помогите поправить! | koyot | Работа с сетью в Delphi | 4 | 13.02.2008 18:46 |