В выделенном тексте заменяет две или более рядом стоящие точки на одну

@MGGUshnick · Регистрация: 09.06.2015

Author24 — интернет-сервис помощи студентам

Написать макрос (допустим, MyMacros), который проделывает зависящую от варианта манипуляцию с текстом выделенной области и назначить ему комбинацию клавиш.

@mc-black · 17.06.2015, 17:58

Word, регулярки RegExp, но если для учёбы, то не пойдёт. Тогда циклы, условия, Mid, конкатенация строк &.

@Казанский · 18.06.2015, 01:25

MGGUshnick, выделите область, начните запись макроса, назначьте сочетание клавиш.
Ctrl+H, найти .{2;}
заменить на .
Заменить все, ОК.
Остановите запись макроса. Готово!

@Alex13889 · 18.06.2015, 23:28

Немножко не понятно как именно это сделать. У меня не может он найти вот это .{2;}
Или я что-то не так делаю? помогите

@Казанский · 19.06.2015, 00:34

Да, я забыл написать - надо включить Подстановочные знаки.
И в записанном коде заменить wdFindAsk на wdFindStop, чтобы не было вопроса.

@Alex13889 · 19.06.2015, 02:39

PureBasic

Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ".{2;}"
        .Replacement.Text = "."
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Получилось сделать примерно такой макрос в Ворде) Работает. А в Excel не получилось. Но и на этом, спасибо)

@MGGUshnick 0 / 0 / 0 Регистрация: 09.06.2015 Сообщений: 12
		1
	В выделенном тексте заменяет две или более рядом стоящие точки на одну 17.06.2015, 15:38. Показов 696. Ответов 5 Метки нет (Все метки) Написать макрос (допустим, MyMacros), который проделывает зависящую от варианта манипуляцию с текстом выделенной области и назначить ему комбинацию клавиш. 0

@mc-black 2785 / 717 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	17.06.2015, 17:58	2
	Word, регулярки RegExp, но если для учёбы, то не пойдёт. Тогда циклы, условия, Mid, конкатенация строк &. 0

@Казанский 15146 / 6419 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	18.06.2015, 01:25	3
	MGGUshnick, выделите область, начните запись макроса, назначьте сочетание клавиш. Ctrl+H, найти .{2;} заменить на . Заменить все, ОК. Остановите запись макроса. Готово! 0

@Alex13889 0 / 0 / 0 Регистрация: 05.06.2015 Сообщений: 28
	18.06.2015, 23:28	4
	Немножко не понятно как именно это сделать. У меня не может он найти вот это .{2;} Или я что-то не так делаю? помогите 0

@Казанский 15146 / 6419 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	19.06.2015, 00:34	5
	Да, я забыл написать - надо включить Подстановочные знаки. И в записанном коде заменить wdFindAsk на wdFindStop, чтобы не было вопроса. 1

	19.06.2015, 02:39