Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Maria © (2005-01-26 08:40:00)
Здравствуйте!
У меня вопрос: как получить текст страницы документа Ворд, по номеру, без картинок, таблиц и т.д. в виде TStringList.

Maria (2005-01-26 12:22:00) [1]
Проблема так и не решена.

Maria (2005-01-26 09:46:00) [2]
>YurikGL ©

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

Maria (2005-01-26 09:28:00) [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:00) [4]
>YurikGL © (26.01.05 09:17) [2]

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

YurikGL (2005-01-26 09:17:00) [5]
Попробуй что-нибудь типа

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

Lord Zmiy (2005-01-26 09:09:00) [6]
посмотри компонент ekrtf ... правда не знаю может ли такое делать но чего только не бывает :) ...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »