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

[Jaroslav]

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

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

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

[EducatedFool]

Замените в коде wdReplaceAll на 2 - и всё заработает.

(Excel не знает значения констант, встроенных в приложение Word)

[Jaroslav]

EducatedFool! Не работает. У меня в References стоит галочка Microsoft Word 11.0 Object Library

[EducatedFool]

Не работает

Что значит - не работает? Ошибку выдает (c номером 429)? Ещё что-то?
(или мы об этом сами дожны догадаться?)

У меня в References стоит галочка Microsoft Word 11.0 Object Library

При запуске из приложения Word ключевое слово Word ссылается на приложение.
При запуске из Excel слово Word НЕ ссылается на приложение.

Приведите код полностью.
Какой код отвечает за отрытие обрабатываемого файла?
Или вы надеетесь, что этот код будет работать для приложения Word, запущенного вручную?

[Jaroslav]

Этот код работает:

Dim WordApp As Object
Dim akt As String
akt = "D:\Акт125"
Set WordApp = CreateObject("Word.application")
With WordApp
    .Documents.Open Filename:=akt
    .Visible = True
    .Selection.Find.ClearFormatting
    .Selection.Find.Replacement.ClearFormatting
    With .Selection.Find
        .Text = "(-"
        .Replacement.Text = "(" & Chr(30)
        .Forward = True
        .Execute Replace:=2
    End With
End With

А если этот код вставить после кода:

With .ActiveDocument
                With .Range(.Paragraphs(18).Range.Start, .Paragraphs(20).Range.End).Find
                    .Text = Chr(45)
                    .Replacement.Text = Chr(30)
                    .Forward = True
                    .Execute Replace:=wdReplaceAll
                End With
            End With

почему-то, замена не работает.
Ничего не понимаю

[Jaroslav]

EducatedFool! Спасибо.
Конечно, я до конца не разобрался в чем причина того, что замена не работает. Может, потому что код программы слишком длинный (здесь я не приводил всего кода) или по каким либо еще причинам

[Jaroslav]

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