Подскажите пожалуйста, как экспортировать данные из TWebBrowser в Microsoft Word ? (или хотя бы сохранить содержимое вместе с картинками в файл без запроса к пользователю).
Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
07-11-2005 05:34
Вот такой вариант:
var
MsWord : Variant;
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
HTMLDocument := Explorer.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr('c:\test.htm'), True);
MsWord := CreateOleObject('Word.Application');
MsWord.Visible := True;
MSWord.Documents.Add('c:\test.htm');
end;
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.
