Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.04;
Скачать: CL | DM;

Вниз

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;

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



Страницы: 1 вся ветка

Текущий архив: 2002.07.04;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.005 c
8-9929
DenKop
2002-02-19 17:36
2002.07.04
MP3 декодер


1-9884
Dimedrol
2002-06-20 15:30
2002.07.04
Как раскрасить слова в МЕМО ?


6-9941
Sound
2002-04-22 23:03
2002.07.04
Отправка HTTP запроса


3-9733
Dark Elf
2002-06-11 16:41
2002.07.04
Процедура поиска в ADO


14-9961
ev
2002-06-01 14:49
2002.07.04
oberon





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский