saidumar
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Пример c использованием ТWordApplication и ТWordDocument из вкладки Servers в Delphi 7. На форме два ТWordDocument, ТWordApplication, TMemo и TButton.
procedure TForm1.Button1Click(Sender: TObject);
var
tmp, fname: OleVariant;
i: Integer;
begin
tmp:=0;
fname:=True;
WordApplication1.Connect;
WordApplication1.Visible:=True;
WordApplication1.NewDocument;
WordDocument1.Connect;
WordDocument1.Activate;
for i:=0 to Memo1.Lines.Count-1 do begin
fname:=Memo1.Lines[i];
WordDocument2.ConnectTo(WordApplication1.Documents.Open(fname,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam));
WordDocument2.Range.Select;
WordDocument2.Range.Copy;
WordDocument2.Close;
tmp:=WordDocument1.Paragraphs.Count;
WordDocument1.Paragraphs.Item(tmp).Range.Paste;
end;
end;
|
Всего записей: 92 | Зарегистр. 10-04-2011 | Отправлено: 16:32 05-03-2014 | Исправлено: saidumar, 09:42 06-03-2014 |
|
