мне надо чтобы тире, стоящие в начале строки Офисс Ворд не трогал, как добавить в код исключения?

[Платон Израилевич]

Доброго времени суток!

Имеется вот такой макрос, меняет все дефисы на длинные тире:
With ActiveDocument.Range.find
.Text = "^0045"
.Replacement.Text = "^="
.Execute Replace:=wdReplaceAll

Но мне надо чтобы тире, стоящие в начале строки он не трогал, как добавить в код исключения?

[сфинкс]

Повторяю прошлый мой ответ

символ переноса строки ^p

Предполагаю сначала заменяется .Text = "^p^0045"
как абракадабра вида .Replacement.Text = "@@@@@"

и далее правильная замена
и далее замена обратно "@@@@@" на "^p^0045"

Но за неимением примера проверять я конечно же не буду

[Платон Израилевич]

Сообщение от сфинкс

Повторяю прошлый мой ответ

символ переноса строки ^p

Предполагаю сначала заменяется .Text = "^p^0045"
как абракадабра вида .Replacement.Text = "@@@@@"

и далее правильная замена
и далее замена обратно "@@@@@" на "^p^0045"

Но за неимением примера проверять я конечно же не буду

Спасибо Буду пробовать