Использование макросов

← →
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;

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;

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

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