Замена в Word'e из Excel'я

[nikol_]

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

Пересмотрел темы на форуме, но 100% работающего решения так и не нашел. Отталкивался вот от этой темы: http://programmersforum.ru/showthrea...t=44889&page=2

Нужно открывать doc'овский файл и заполнять его из excel'я. Пока пытаюсь разобраться с примитивным поиском/заменой текста.

То, что есть сейчас:

Sub ОткрытьДокументWord(ByVal ИмяФайла As String)
    Set wa = CreateObject("Word.Application") 'запустил

    wa.Visible = True 'отобразил
    
    Set wd = wa.Documents.Open(ИмяФайла) 'открыл
 
    With wd.Range.Find 
        .Text = "а" 'что меняем
        .Replacement.Text = "о"  'на что меняем
        .Forward = True
        .Execute Replace:=wdReplaceAll 'меняем
    End With
End Sub

Файлы открываются нормально и доступ к ним есть, т.е. если использовать такой тестовый примерчик,

wd.Paragraphs(1).Range.InsertAfter "Ой-йо"

работает, текст вставляется. Замена же не работает.

Word/Excel 2003. Пробовал с разными файлами, но ни в какую, не меняет.

VBA для меня не друг, потому сам не разберусь. Помогите.

[EducatedFool]

Можете посмотреть код замены в этом примере заполнения документов Word из Excel

[nikol_]

Уже полегчало! Спасибо.