[bambooshoot]

Всем доброго дня! Задумал я следующее Создаю несколько вордовских документов, в основе заранее созданный шаблон. Список док-ов вывожу в ListBox. Ввожу информацию в memo, выделяю док-т в Liste и через ButtonClick пытаюсь вставить в активированный док-т эту информацию, а не получается Делаю это так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Memo1: TMemo;     ComboBox1: TComboBox;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Edit1: TEdit;     Button1: TButton;     ListBox1: TListBox;     Button2: TButton;     SaveD1: TSaveDialog;     Edit2: TEdit;     Edit3: TEdit;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure ListBox1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;     implementation   uses ComObj;   {$R *.dfm}   var W : variant;     procedure TForm1.Button1Click(Sender: TObject); var  j, i : integer;  path : string;  SaveChanges : variant; begin    W := CreateOleObject('Word.Application');    Path:=Application.ExeName;    Path:=ExtractFileDir(Path);    if Path[Length(Path)]<>'\' then Path:=Path+'\'+'Templats'+'\';  W.Application.Documents.Open(Path+'ST.dot');  ListBox1.Items.Clear; for i:=1 to W.Documents.Count do     ListBox1.Items.Add(W.Documents.Item(i).Name);     SaveD1.Filename:= Edit2.Text + ' ' +Edit3.Text +'.doc';       if not SaveD1.Execute then        begin        SaveChanges:=False;        W.Quit(savechanges);        W:= Unassigned;        exit        end       else       W.ActiveDocument.SaveAs(SaveD1.Filename);       W.Visible:= True; end;   procedure TForm1.Button2Click(Sender: TObject); var i, j : integer; begin W:=GetActiveOleObject('Word.Application');  j:= StrToInt(Edit1.Text);  W.ActiveDocument.Tables.Item(2).Cell(j+1,2).Range.Text:= Combobox1.Text;  W.ActiveDocument.Tables.Item(2).Cell(j+1,3).Range.Text:= memo1.Text; end;   procedure TForm1.ListBox1Click(Sender: TObject); begin     [color="Red"]W.Documents.Item(ListBox1.ItemIndex+1).Activate;/COLOR] end;   end.

Что-то делаю неправильно, а что, не знаю. И вообще можно ли так делать? Спасибо.