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

← →
Ifrit (2002-10-09 10:55) [0]

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

← →
KA_ (2002-10-09 12:38) [1]

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

← →
Ifrit (2002-10-09 13:03) [2]

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

Открыть в OLEContainer Word и вставить в него текст из BDRichEdit Найти похожие ветки