| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Word + Tables & Delphi [D5, Win95/98]
Изумрудный змий © (2002-06-24 10:13:00)Здраствуй всемогущий ALL!
Возникла проблема: нужно создать с помощью делфи таблицу в документе МС Ворд. Я никогла с этим не сталкивался и просто зашел в тупик, нужен свет в конце туннеля! :-)
Praco (2002-06-24 11:44:00) [1]Буквально вчера разбирался с этим сам :)
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;
Поле - это левый элемент с панели инструментов "Формы". ИМХО - самый удобный способ.
AFROLOV (2002-06-24 10:44:00) [2]
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);
......
Изумрудный змий (2002-06-24 10:37:00) [3]
> AFROLOV
Я с офисом сам только начал разбираться, так что тут пока ничем помочь немогу. А насчет читать, я все читаю и мотаю на ус... ;-)
AFROLOV (2002-06-24 10:33:00) [4]
а вот дальше мне нужно поменять ориентацию станицы в word-е и добавить таблицу с данными.
Подскажите пожалуйста, как можно это сделать или ссылочку, где можно об этом прочитать.
Заранее большое спасибо.
Темы по близкой тематике лучше прочитывать полностью и внимательно. Очень часто можно найти зачепку или даже кусок нужного кода.
Изумрудный змий (2002-06-24 10:27:00) [5]
> AFROLOV
ну так там про отчеты, а мне бы узнать как только средствами Делфов создать в Ворде таблицу...
AFROLOV (2002-06-24 10:16:00) [6]http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1024878469&n=0
| |
