Как сделать активной кнопку "сохранить" в Word?

[Festy]

Открываю документы из папки, появляется полностью окно Word'а. Как сделать чтобы кнопка "сохранить" на панели Word'а была активна? (т.е. можно было сохранить активный документ куда-либо..)

 s := ExtractFileExt((Sender as TTreeView).Selected.Text);
if (s = '.rtf') or (s = '.doc') or (s = '.docx') then
    begin
       OleContainer1.Visible := True;
       OleContainer1.CreateObjectFromFile(ExtractFilePath(Application.ExeName)+'materials\Информационно-аналитическая\'+(Sender as TTreeView).Selected.Parent.Text+'\'+(Sender as TTreeView).Selected.Text, false);
       OleContainer1.DoVerb(ovShow);

    end;