Word

← →
cybermonk (2002-10-24 12:55) [0]

Уважаемые мастера. Стоит следующая задача. Есть набранная в Wordе таблица, нужно в заданные ячейки таблицы из программы вставить значения типа строка. Как это сделать? Может есть готовые бесплатные компоненты. Программу необходимо написать за 1-2 дня.

← →
cybermonk (2002-10-24 16:36) [1]

← →
[NIKEL] (2002-10-24 18:15) [2]

а нельзя разве создать новою таблицу и передать ее в WOrd?

← →
TTCustomDelphiMaster (2002-10-24 19:49) [3]

Поставить закладки (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);
...

← →
cybermonk (2002-10-28 15:52) [4]

TTCustomDelphiMaster хотелось бы побольше информации и полный пример, а лучше несколько. Я первый раз программирую OLE-Word. Хотя общую идею понял, но не хватает опыта.

← →
cybermonk (2002-10-28 15:53) [5]

Уважаемые мастера. Стоит следующая задача. Есть набранная в Wordе таблица, нужно в заданные ячейки таблицы из программы вставить значения типа строка. Как это сделать? Может есть готовые бесплатные компоненты.хотелось бы побольше информации и полный пример, а лучше несколько. Я первый раз программирую OLE-Word. Хотя общую идею понял, но не хватает опыта.

← →
TTCustomDelphiMaster (2002-10-28 17:28) [6]

Создайте 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-29 07:59) [7]

TTCustomDelphiMaster извини, но у меня Delphi 4, а не Delphi5

Word Найти похожие ветки