Word + Tables & Delphi

← →
Изумрудный змий (2002-06-24 10:13) [0]

Здраствуй всемогущий ALL!
Возникла проблема: нужно создать с помощью делфи таблицу в документе МС Ворд. Я никогла с этим не сталкивался и просто зашел в тупик, нужен свет в конце туннеля! :-)

← →
AFROLOV (2002-06-24 10:16) [1]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1024878469&n=0

← →
Изумрудный змий (2002-06-24 10:27) [2]

> AFROLOV

ну так там про отчеты, а мне бы узнать как только средствами Делфов создать в Ворде таблицу...

← →
AFROLOV (2002-06-24 10:33) [3]

а вот дальше мне нужно поменять ориентацию станицы в word-е и добавить таблицу с данными.
Подскажите пожалуйста, как можно это сделать или ссылочку, где можно об этом прочитать.
Заранее большое спасибо.
Темы по близкой тематике лучше прочитывать полностью и внимательно. Очень часто можно найти зачепку или даже кусок нужного кода.

← →
Изумрудный змий (2002-06-24 10:37) [4]

> AFROLOV

Я с офисом сам только начал разбираться, так что тут пока ничем помочь немогу. А насчет читать, я все читаю и мотаю на ус... ;-)

← →
AFROLOV (2002-06-24 10:44) [5]

var MSWord:Variant; begin MSWord:= CreateOleObject("Word.Application"); MSWord.Visible:=false; MSWord.Documents.Add; MSWord.ActiveDocument.Tables.Add(MSWord.Selection.Range,5,5,1,0); ......

← →
Praco (2002-06-24 11:44) [6]

Буквально вчера разбирался с этим сам :)

procedure TForm1.Button1Click(Sender: TObject);
var
MSWord, Document, Rng, Cell, sel: Variant;
begin
try
try
MsWord := GetActiveOleObject("Word.Application");
except
try
MsWord := CreateOleObject("Word.Application");
MsWord.Visible := True;
except
Exception.Create("Error");
end;
end;
MSWord.Documents.Open("C:\ex.doc");
//Вывод после параграфа
Rng:= MSWord.Documents.Item(1).Paragraphs.Item(1).Range;
Rng.InsertAfter("Это вставляемый текст");

//Вывод в ячейку таблицы
Rng := MSWord.ActiveDocument.Tables.Item(1).Cell(1,2).Range;
Rng.Text := "Это вставляемый в ячейку текст";

//Вывод в поле
MSWord.ActiveDocument.FormFields.Item("f1").Result := "qwer";

MSWord.ActiveDocument.SaveAs("C:\ex.doc");
finally
MSWord.Quit;
end;
end;

Поле - это левый элемент с панели инструментов "Формы". ИМХО - самый удобный способ.

Word + Tables & Delphi Найти похожие ветки