Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Основная";
Текущий архив: 2005.02.06;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.036 c
8-1098332767
vg
2004-10-21 08:26
2005.02.06
Помогите в винде "содрать" рисунок.


3-1104391722
atruhin
2004-12-30 10:28
2005.02.06
Перенос БД с Firebird 1.5 на Interbase 5.6


1-1106718408
Atomic
2005-01-26 08:46
2005.02.06
Кнопки


1-1106322561
Zvrb
2005-01-21 18:49
2005.02.06
Как сделать программу регистрации на сайте


3-1104832769
Roter
2005-01-04 12:59
2005.02.06
Проблема вычитки identity полей из БД





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский