With Selection.Find
.Text = "^0013{3;}": .Replacement.Text = "^p^p": .Forward = True:
.Wrap = wdFindContinue: .Format = False: .MatchWildcards = True
End With
Do While Selection.Find.Execute()
Selection.MoveStart Unit:=wdCharacter, Count:=2
Selection.Delete Unit:=wdCharacter, Count:=1
Loop
Подскажите по Regexp
Вроде простая задачка, но угроблено времени с 17-00 до 01-00 текущих суток.
Надо найти (в Вродовском доке) все сдвоенные-строенные и т.д. абзацы и заменить их на один. Т.е поубивать лишние пустые строки. Но при этом в найденное не должен включаться самый первый знак абзаца. Т.е. надо найти вхождение "[COLOR="Navy"]2 и больше пустых абзацев кроме первого[/COLOR] (не в документе, а в найденном)". Т.к. в первом символе ("в найденой пачке") абзаца сидит стиль, и его трогать нельзя.
Такой вариант не оч. подходит:
^0013{3;}
, т.к. и щет все подряд без отсечки первого символа абзаца.
Надо найти (в Вродовском доке) все сдвоенные-строенные и т.д. абзацы и заменить их на один. Т.е поубивать лишние пустые строки. Но при этом в найденное не должен включаться самый первый знак абзаца. Т.е. надо найти вхождение "[COLOR="Navy"]2 и больше пустых абзацев кроме первого[/COLOR] (не в документе, а в найденном)". Т.к. в первом символе ("в найденой пачке") абзаца сидит стиль, и его трогать нельзя.
Такой вариант не оч. подходит:
^0013{3;}
, т.к. и щет все подряд без отсечки первого символа абзаца.
(\n)(\n+)
Чё-нибудь такое :) Потом заменить это всё на \\1
Чё-нибудь такое :) Потом заменить это всё на \\1
сделал так:
При замене стиль соседнего абзаца переходил на стиль пустой строки и это все портило. А если удалять, то стиль абзаца остается нетронутым.
Код:
При замене стиль соседнего абзаца переходил на стиль пустой строки и это все портило. А если удалять, то стиль абзаца остается нетронутым.