Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
ВнизОткрыть в 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]Огромное спасибо
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c