Содержимое файла Word

← →
demonyator © (2004-05-11 01:33) [0]

Как нарисовать на форме содержимое файла Word?

← →
KilkennyCat © (2004-05-11 01:34) [1]

Вау! именно нарисовать? картинкой? в смысле, графикой?

← →
demonyator © (2004-05-11 01:36) [2]

ага, там ведь таблицы, графики бывают и т.д. Надо пользователю показать так, как будто он смотрит в окно Word"a

← →
Nick Denry © (2004-05-11 01:36) [3]

Обратная задача, но копать в этом направлении:

procedure TServerMain.btnExitClick(Sender: TObject);
begin
ServerMain.close;
end;

Procedure TServerMain.btnWordClick(Sender: TObject);
var
Direction : OleVariant;
FileName : OleVariant;
Time : TDateTime;
begin
//Çàïóñê ñåðâåðà
WordApplication1.Connect;
WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,
EmptyParam);

//Íàáîð òåêñòà è åãî ôîðàòèðîâàíèå
WordApplication1.Selection.InsertAfter(" "+#13);
WordApplication1.Selection.InsertAfter("Ïðèâåò, Jey!");
WordApplication1.Selection.Font.Size:=24;
WordApplication1.Selection.Font.Name:="Times New Roman";
Direction:=wdCollapseEnd;
WordApplication1.Selection.Collapse(Direction);
WordApplication1.Selection.InsertAfter(" "+#13);
WordApplication1.Selection.InsertAfter(Memo1.Text);
WordApplication1.Selection.Font.Bold:=1;
Direction:=wdCollapseEnd;
WordApplication1.Selection.Collapse(Direction);

//Âñòàâêà èçîáðàæåíèÿ
WordApplication1.Selection.InsertAfter(" "+#13);
Clipboard.Create;
ClipBoard.Assign(Image1.Picture);
WordApplication1.Selection.Paste;
WordApplication1.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;
ClipBoard.Clear;
ClipBoard.Free;
Direction:=wdCollapseEnd ;
WordApplication1.Selection.Collapse(Direction);

//Òåêñò ïîäïèñè
WordApplication1.Selection.InsertAfter(" "+#13);
WordApplication1.Selection.InsertAfter(" "+#13);
WordApplication1.Selection.InsertAfter("Ñ óâàæåíèåì, Nick Denry.");
Time := now;//Âðåìÿ
WordApplication1.Selection.InsertAfter(#13+DateTimeToStr(Time));
WordApplication1.Selection.Font.Bold:=1;
Direction:=wdCollapseEnd ;
WordApplication1.Selection.Collapse(Direction);

//Ñîõðàíåíèå äîêóìåíòû è ïîêàç îêíà Word
FileName:="Ïðèâåò.doc";
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
WordDocument1.SaveAs(FileName);
WordApplication1.Visible:=true;
end;

procedure TServerMain.FormDestroy(Sender: TObject);
var
SaveChanges : OleVariant;
begin
SaveChanges := false;
try
WordApplication1.Quit(SaveChanges);
WordApplication1.Disconnect;
except
on EOLEException do begin
WordApplication1.Free;
WordDocument1.Free;
ServerMain.Close;
end;
end;
end;

end.

← →
Nick Denry © (2004-05-11 01:38) [4]

Верные комментарии:

//Запуск сервера
//Набор текста и его форатирование
//Вставка изображения
//Текст подписи
//Время
//Сохранение документы и показ окна Word

← →
demonyator © (2004-05-11 01:39) [5]

Спасибо, Nick.
Может кто еще что-то знает?

← →
KilkennyCat © (2004-05-11 01:54) [6]

Ну, предыдщий совет [3] Nick Denry © (11.05.04 01:36) - это запуск ворда... Если надо картинкой, то можно после вышеперечисленного сделать снапшот окна ворда.
а вот ежели надо напрямую... то прочитайте описание заголовка файлов Ворда. Желание пропадет (меня хватило только на выдирку текста).

← →
demonyator © (2004-05-11 01:59) [7]

Я знаю есть компонент RTF2TIFF но он рабоает только по Delphi6

Ложиш на форму TOleContainer затем делаеш так затем делаеш Ole.CreateLinkToFile("путь",False);
Усё :)

Спасибо. Работает.

Содержимое файла Word Найти похожие ветки