[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?

[MartGG]

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

Код:

  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;

На такой подход руганье!!!
Почему?

[lmikle]

1. В сообщение об ошибке речь идет не об "автоматическом режиме", а об "объекте автоматизации", т.е. OLE Automation. Короче говоря, нет такого метода у объекта, ссылка на который хранится в переменной MsWord.

2. Вообще, сохранение вызывается у документа, а не у самого Ворда. Разберись с иерархией объектов. Т.е. вызов

Код:

MsWord.ActiveDocument.SaveAs(FileWorda);

и является правильным вариантом.

3. По поводу, почему не работает твой класс. Код полностью не приведен, однако предполагаю, что тут полное непонимание ООП. Да, можно создать класс. Только в том виде, как у тебя, для вызова метода необходимо еще создать экземпляр класса, и уже у него вызывать соотв. метод. Хотя в твоем случае данную процедуру можно объявить методом класса, т.к. она не зависит от каких либо ВНУТРЕННИХ данных экземпляра класса, и вызывать ее от класса, а не от объекта.