Не работает замена

[NeoN121]

Здравствуйте
В Access пытаюсь заставить работать следующий код.
Смысл кода в том, чтобы открыть файл C:\letter.doc и заменить в нем маячок <<organizationname>> на подставное, в данном случае на Trylala, после чего сохранить документ и закрыть. Функция Debug.Print должна тот самый целевой кусочек контента отпостить, дабы я увидел, произошли ли изменения

Sub Edit_letter() 

Set appWord = CreateObject("Word.Application") 
With appWord 
    .Documents.Open FileName:="C:\letter.doc", ReadOnly:=False 
    With .ActiveDocument.content.Find 
        .Text = "<<organizationname>>" 
        .Replacement.Text = "Trylala" 
        .Forward = True 
        .Wrap = wdFindContinue 
        .Format = False 
        .MatchCase = False 
        .MatchWholeWord = False 
        .MatchWildcards = False 
        .MatchSoundsLike = False 
        .MatchAllWordForms = False 
        .Execute Replace:=wdReplaceAll 
    End With 
     
    Debug.Print Left(.ActiveDocument.content, 34) 
     
    .ActiveDocument.Save 
    .Quit 
End With 
End Sub

Проблема в том, что замена не работает. При этом, ActiveDocument.content правильно возвращает содержимое документа, редактировать документ тоже можно. Еще одна особенность заключается в том, что если перенести этот код в Word (с некоторой редакцией, в частности, убрав пемеренную appWord), то код работает корректно
Помогите, пожалуйста

[Teslenko_EA]

Здравствуйте NeoN121.
в Вашем проекте подключена библиотека MS Word на которую ссылается код, или только используется ссылка на объект - "Word.Application" ?
Евгений.

[NeoN121]

Библиотека не подключена, используется только ссылка на объект

[Teslenko_EA]

Здравствуйте NeoN121.
"если перенести этот код в Word ... то код работает" - значит код создан корректный,
подключите к проекту библиотеку MS Word и будет Вас счастье.
Евгений.

[NeoN121]

Нда уш, стоило бы самому догадаться ))
Проблема решена. Спасибо, Евгений