Текущий архив: 2004.04.25;
Скачать: 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 вся ветка
Текущий архив: 2004.04.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.026 c
