как получить текст Word-документа в HTML-виде - Microsoft Office Word

zavr · 06.04.2012, 16:03

Всем привет!
Подскажите, пожалуйста, как получить текст в HTML-виде с помощью макроса, если, конечно, такое возможно. Это нужно для последующей вставки его в тело письма outlook. Заранее спасибо!!!

zavr · 06.04.2012, 17:07

разобралась сама! вот что получилось:
получилось сделать вот так.
открываем документ, сохраняем как htm, а потом

Open ptd & fld For Input Access Read As 1
ttt = Input(FileLen(ptd & fld), 1)

Close #1

t1 = InStr(ttt, "<body")
t2 = InStr(ttt, "</body>")

ttt = Mid(ttt, t1, t2)

и все в ttt получаем текст письма в html-виде =)))

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Замена закладки в тексте документа WORD на мой текст	Tiolic	Общие вопросы Delphi	4	23.12.2017 15:18
Получить HTML-текст, соответствующий документу WORD	vfayans	Microsoft Office Excel	2	05.04.2012 17:48
как получить текст HTML страницы	пауэрлифтинг	Работа с сетью в Delphi	4	16.03.2010 13:42
Как получить текст HTML Документа из TWebBrowser без тегов	Marsel737	Общие вопросы Delphi	10	28.11.2009 08:47
Текст HTML документа в Memo	Delpinist	Компоненты Delphi	9	09.09.2009 13:19

06.04.2012, 16:03	#1
zavr Регистрация: 15.12.2011 Сообщений: 5	как получить текст Word-документа в HTML-виде Всем привет! Подскажите, пожалуйста, как получить текст в HTML-виде с помощью макроса, если, конечно, такое возможно. Это нужно для последующей вставки его в тело письма outlook. Заранее спасибо!!!

06.04.2012, 17:07	#2
zavr Регистрация: 15.12.2011 Сообщений: 5	разобралась сама! вот что получилось: получилось сделать вот так. открываем документ, сохраняем как htm, а потом Open ptd & fld For Input Access Read As 1 ttt = Input(FileLen(ptd & fld), 1) Close #1 t1 = InStr(ttt, "<body") t2 = InStr(ttt, "</body>") ttt = Mid(ttt, t1, t2) и все в ttt получаем текст письма в html-виде =)))