Работаю с 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?