в Делфи 7 Word.WSave не работает

[MartGG]

Ниже код в Делфи 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?

[FaTaL]

Откуда у Ворда метод WSave? Никогда такого не видел.
Обычно ActiveDocument.SaveAs или ActiveDocument.Save

[MartGG]

Прошу извинить.
Скопировал с программы- это процедура,
а внутри все верно

ActiveDocument.SaveAs или ActiveDocument.Save

Вот к этому и вопрос

[FaTaL]

Тут подробее https://docs.microsoft.com/en-us/pre...4(v=office.11))

[MartGG]

спасибо FaTaL за вопрос.

Ваш вопрос навел мысль и я решил написать без процедуры.
Вставил

 MsWord.ActiveDocument.SaveAs(FileWorda);

- и все заработало

Вот процедура и описание переменных:

type
  TWord = class
  public
     procedure WSave(Name: string);      // 
  end;

var
  Form1  :TForm1;
  FileWorda :string;
  MsWord    :Variant;

procedure TWord.WSave(Name: string);
begin
  MsWord.ActiveDocument.SaveAs(FileName := Name);
end;

На такой подход руганье