|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
в Делфи 7 Word.WSave не работает?
Работаю с 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? |
#2
|
|||
|
|||
Форум навел на мысль и я решил написать без процедуры.
Вставил Код:
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; На такой подход руганье!!! Почему? |
#3
|
|||
|
|||
1. В сообщение об ошибке речь идет не об "автоматическом режиме", а об "объекте автоматизации", т.е. OLE Automation. Короче говоря, нет такого метода у объекта, ссылка на который хранится в переменной MsWord.
2. Вообще, сохранение вызывается у документа, а не у самого Ворда. Разберись с иерархией объектов. Т.е. вызов Код:
MsWord.ActiveDocument.SaveAs(FileWorda); 3. По поводу, почему не работает твой класс. Код полностью не приведен, однако предполагаю, что тут полное непонимание ООП. Да, можно создать класс. Только в том виде, как у тебя, для вызова метода необходимо еще создать экземпляр класса, и уже у него вызывать соотв. метод. Хотя в твоем случае данную процедуру можно объявить методом класса, т.к. она не зависит от каких либо ВНУТРЕННИХ данных экземпляра класса, и вызывать ее от класса, а не от объекта. |