Скачать: CL | DM;

Использование макросов   Найти похожие ветки 

← →
Lelik_R ©   (2004-04-10 00:28) [0]

Привет! Знаете такую фишку в Word"е как макросы, которые записываются в {}, как в делфи сделать так, чтобы при нажатии кнопки сгенерировался doc"ий файл. спасибо

---

← →
jack128 ©   (2004-04-10 00:38) [1]

> Знаете такую фишку в Word"е как макросы, которые записываются
> в {},
Макросы знаю..Но они пишутся на VBA, а не в {} ;-)


> чтобы при нажатии кнопки сгенерировался doc"ий файл

var
 MsWord: OleVariant;
begin
 MsWord := CreateOleObject("Word.Application");
 try
   MsWord.Documents.Add.SaveAs(Filename := "c:\mydoc.doc");
 finally
   MsWord.Quit;
   MsWord := UnAssigned;
 end;
end;

---

← →
YurikGl ©   (2004-04-10 08:50) [2]

W1:TWordApplication;

W1.connect;
W1.Visible:=true;
w1.Documents.add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
w1.ActiveDocument.PageSetup.Orientation:=wdOrientLandscape//Если надо
   W1.ActiveDocument.ActiveWindow.View.SeekView:=wdSeekCurrentPageFooter;
//Добавляем, что надо в верхний колонтитул W1.ActiveDocument.ActiveWindow.View.SeekView:=wdSeekMainDocument;
//Возвращаемся в тело документа
W1.ActiveDocument.Range(EmptyParam,EmptyParam).InsertAfter("Текст файла")

W1.Disconnect;

Вот собственно и все.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c