Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^t"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
'-----------------------------------

Selection.HomeKey (wdStory)
Do While Selection.Find.Execute(FindText:="^p^p", Forward:=True)
With Selection.Find
.Replacement.Text = "^p"
.Wrap = wdFindContinue
'If Find = False Then
Selection.Find.Execute Replace:=wdReplaceAll
' Else
' .Replacement.Text = "^p"
' End If
End With
Loop


Помогите справиться с ошибкой!
Что нужно исправить, не пойму, то работает , а то ошибку выкинет.
А что не нравиться не пойму.
Пытаюсь данные из текстового файла с разделителем "ТАБ" сделать в столбик, сначала "ТАБ" поменять на Ентер ,а после убрать где Ентеров получилось больше чем 1.
И вот казус.

Может кто подскажет как за один проход поменять икс ентеров на один (во всем документе), при условии что икс принимает разное значение.
Спасибо конечно за совет и поддержку !

White Owl VladimirSkПытаюсь данные из текстового файла с разделителем "ТАБ" сделать в столбик, сначала "ТАБ" поменять на Ентер ,а после убрать где Ентеров получилось больше чем 1.
И вот казус.Чего???

При замене ТАБ на ентеры - получается столбик где встречается по несколько ентеров подряд.
В поиске ищем пару "^P^P" и меняем на один (замена с приближением к одному)

VladimirSkМожет кто подскажет как за один проход поменять икс ентеров на один (во всем документе), при условии что икс принимает разное значение.через регулярные выражения.

По нажатии кнопки "заменить всё" меняет там где встретилось два, а где три, после процедуры стало два и нужен ещё проход. Если встретилось больше то больше.
Вот на форуме нашел кусочек кода, немного изменил но заедает.
Прошу помощи у профи !