работа с документом Ворд

← →
Maria (2005-01-26 08:40) [0]

Здравствуйте!
У меня вопрос: как получить текст страницы документа Ворд, по номеру, без картинок, таблиц и т.д. в виде TStringList.

← →
Lord Zmiy © (2005-01-26 09:09) [1]

посмотри компонент ekrtf ... правда не знаю может ли такое делать но чего только не бывает :) ...

← →
YurikGL © (2005-01-26 09:17) [2]

Попробуй что-нибудь типа

WordApplication1.ActiveDocument.Select;
memo1.Text:=WordApplication1.Selection.Text;

← →
Maria (2005-01-26 09:28) [3]

2 YurikGL ©

var WordApp:Variant;
Docum:OleVariant;SList:TStringList;
begin
WordApp := CreateOleObject("Word.Application");
try
try
if OD.Execute then
begin
WordApp.Documents.Open(OD.FileName);
wordapp.visible:=true;
Docum := WordApp.ActiveDocument;
SList := TStringList.Create;
//Как его заполнить, зная номер страницы, допустим Number ?
Docum:=UnAssigned;
WordApp.Documents.Close;
end;
except
WordApp.Quit;
end;
finally
WordApp:=UnAssigned;
end;
//Using SList
end;

← →
Johnmen © (2005-01-26 09:28) [4]

>YurikGL © (26.01.05 09:17) [2]

Кстати, Юрик, в своей статье про ворд ты ничего не говоришь про списки (Lists). Почему ?

← →
Maria (2005-01-26 09:46) [5]

>YurikGL ©

Попробовала Selection.Text
Но в этом случае получаю весь текст документа,а
мне необходимо получить только одну страницу, с заданным номером.

← →
Maria (2005-01-26 12:22) [6]

Проблема так и не решена.

работа с документом Ворд Найти похожие ветки