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

[Jaroslav]

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

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

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

[chugo]

Сообщение от Jaroslav

With Word.application.Selection.Find

В коде написано что это должно работать именно в WORD-е

Самый легки способ включи запись и сделай Find>change

[Jaroslav]

chugo!
Мне нужно чтобы этот макрос работал именно в Excel. Этот макрос часть большой программы, написанной в VBA Excel.

[chugo]

Сообщение от Jaroslav

Мне нужно чтобы этот макрос работал именно в Excel.

Cells.Replace What:="(-", Replacement:="(" & Chr(30), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=Fals

Попробуй

[Jaroslav]

chugo, спасибо.

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