Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Word [D4, Win95/98, WinME, NT4, Win2k, WinXP]

cybermonk © (2002-10-24 12:55:00)
Уважаемые мастера. Стоит следующая задача. Есть набранная в Wordе таблица, нужно в заданные ячейки таблицы из программы вставить значения типа строка. Как это сделать? Может есть готовые бесплатные компоненты. Программу необходимо написать за 1-2 дня.

cybermonk (2002-10-29 07:59:00) [1]
TTCustomDelphiMaster извини, но у меня Delphi 4, а не Delphi5

TTCustomDelphiMaster (2002-10-28 17:28:00) [2]
Создайте patten.DOC в каталоге программы, и в нем добавте закладку с названием "Test". Пример расчитан на Word97.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, ComCtrls, Word97;

type
TForm1 = class(TForm)
WordApplication1: TWordApplication;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Pattern, FileName,What : OLEVariant;
Which : OLEVariant;
Count : OLEVariant;
Name : OLEVariant;
begin
Pattern:=ExtractFilePath(Application.ExeName)+"patten.DOC";
FileName:=ExtractFilePath(Application.ExeName)+"patten1.DOC";
WordApplication1.Documents.Open
(Pattern, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam);

WordApplication1.Visible := True;

What := wdGoToBookmark;
Which := unAssigned;
Count := unAssigned;
Name := "Test";
WordApplication1.Selection.GoTo_(What, Which, Count, Name);
WordApplication1.Selection.TypeText(Edit1.Text);

WordApplication1.ActiveDocument.SaveAs(FileName,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
//WordApplication1.ActiveDocument.Close(EmptyParam, EmptyParam, EmptyParam);
if WordApplication1.Documents.Count = 0 then
//WordApplication1.Quit;
WordApplication1.Disconnect;
end;

end.

cybermonk (2002-10-28 15:53:00) [3]
Уважаемые мастера. Стоит следующая задача. Есть набранная в Wordе таблица, нужно в заданные ячейки таблицы из программы вставить значения типа строка. Как это сделать? Может есть готовые бесплатные компоненты.хотелось бы побольше информации и полный пример, а лучше несколько. Я первый раз программирую OLE-Word. Хотя общую идею понял, но не хватает опыта.

cybermonk (2002-10-28 15:52:00) [4]
TTCustomDelphiMaster хотелось бы побольше информации и полный пример, а лучше несколько. Я первый раз программирую OLE-Word. Хотя общую идею понял, но не хватает опыта.

TTCustomDelphiMaster (2002-10-24 19:49:00) [5]
Поставить закладки (Bookmark) в ячейках таблици и всавлять текст на место этих закладок. Для этого подойдут и стандартный компоненты со вкладки Servers.

Примерно так:
var
Which : OLEVariant;
Count : OLEVariant;
Name : OLEVariant;

...
What := wdGoToBookmark;
Which := unAssigned;
Count := unAssigned;
Name := "Test";
WordApplication1.Selection.GoTo_(What, Which, Count, Name);
WordApplication1.Selection.TypeText(Edit1.Text);
...

[NIKEL] (2002-10-24 18:15:00) [6]
а нельзя разве создать новою таблицу и передать ее в WOrd?

cybermonk (2002-10-24 16:36:00) [7]
Уважаемые мастера. Стоит следующая задача. Есть набранная в Wordе таблица, нужно в заданные ячейки таблицы из программы вставить значения типа строка. Как это сделать? Может есть готовые бесплатные компоненты.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »