[MartGG]

Работаю с Word 2003 с обновлениями под Word 2010.
Ниже код в Делфи 7:

Код:

  VWord.WRun;
  for i :=1 to Length(FAdrWay) do  if FAdrWay[i] ='\' then pp :=i;
  FileWorda :=Copy(FAdrWay,0,pp)+'Для.doc';

  VWord.WOpen(FileWorda);

  MsWord.Visible := true;     // Word видно на экране
  MsWord.selection.TypeText('июнь 2022 г');   // запись текста в первой строке
                   //если найдена закладка, то
  if MsWord.ActiveDocument.Bookmarks.Exists('Сумма_3_1') then
       VWord.WSearch('Сумма_3_1');    // переход сюда
     // здесь расчет Суммы 3_1  и Сум 4.3
  info := 'Сум 3.1';                   //
  MsWord.selection.TypeText(info);   // запись текста
  MsWord.ActiveDocument.Tables.Item(1).Cell(4,3).Range.Text:='Сум 4.3';

     // добавляем к имени год
//  MsWord.WSave(FileWorda);  // не поддерживает в автоматическом режиме

Сообщение об ошибке в файле

Как сделать сохранение файла Word через Save ил SaveAs?