1

Тема: Как заменить скобку и обычный дефис на скобку и нерозрывний дефис

Всем добрый день.
Вопрос в теме.
Делаю так в Excel:

With Word.application.Selection.Find
        .Text = "(-"
        .Replacement.Text = "(" & Chr(30)
        .Forward = True
        .Execute Replace:=wdReplaceAll
End With

Но у меня ничего не получается. Хотя если этот же макрос выполнять в Word, все работает.
Нужно сделать именно в Excel.

2

Re: Как заменить скобку и обычный дефис на скобку и нерозрывний дефис

Во-первых, я сильно сомневаюсь, что конструкция "Word.application" применима в Excel.
Во-вторых, понятие "неразрывный пробел", скорее всего, применимо только к Word (по крайней мере, в справке Word про неразрывный пробел есть информация, а в справке Excel ничего не находится)

3

Re: Как заменить скобку и обычный дефис на скобку и нерозрывний дефис

basseyn!
конструкция "Word.application" применима в Excel. Неразрывный дефис применяется и в Excel.
Заменить обычный дефис на неразрывний дефис  у меня получалось. А вот если добавить к этому еще и скобку - увы, не получается.

4

Re: Как заменить скобку и обычный дефис на скобку и нерозрывний дефис

Ребята, разобрался. Я все делал правильно, только курсор в ворде стоял в конце документа, поэтому замена не происходила. Тему можно считать закрытой.