Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.968 c