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

jaroslav · 20 авг 2010, 17:03

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

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

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

jaroslav · 20 авг 2010, 19:26

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