| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Открыть в OLEContainer Word и вставить в него текст из BDRichEdit

Ifrit ©   (2002-10-09 10:55:00) 

Всем добрый день! Помогите пожалуйста! У меня такая проблема: есть TDRichEdit и TOLEContainer. Необходимо из программы открыть в OLEContainer Word и вставить в него (в Word) текст из BDRichEdit. Если просто копировать текст из BDRichEdit в бефер - BDRichEdit.CopyToClipboard, то OLEContainer.CanPaste возвращает false :(. Подскажите, пожалуйста, что делать?

---

Ifrit   (2002-10-09 13:03:00) [1]

Огромное спасибо

---

KA_   (2002-10-09 12:38:00) [2]

var
Word: Variant;
str, filename: OleVariant;
i: Integer;
begin
Word:= CreateOleObject("Word.Application");
try
for i := 0 to DBRichEdit.Lines.Count - 1 do
begin
str := DBRichEdit.Lines[i] + #13;
Word.ActiveDocument.Range.InsertAfter(str);
end;
filename := "mydoc.doc";
Word.ActiveDocument.SaveAs(filename);
finally
Word.Quit(EmptyParam, EmptyParam, EmptyParam);
OleContainer.CreateObjectFromFile("mydoc.doc", False);
end;

или скопируй в буфер, а потом сделай как у меня, но вместо цикла напиши Word.ActiveDocument.Range.Paste

---

Наверх