Чтение doc docx в string

@Uefi220 · Регистрация: 20.06.2021

Студворк — интернет-сервис помощи студентам

Всем здрасте! Не могу найти способы прочитать файлы. doc. docx в переменную типа String. Все компоненты для этого платные. При этом очень желательно это сделать без установленных Microsoft Word, Excel и с использованием TFileStream.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Код подразумевает что на компьютере установлен Word
uses
ComObj;
 
 
function ExtractTextFromWordFile(const FileName:string):string;
var
  WordApp    : Variant;
  CharsCount : integer;
begin
  WordApp := CreateOleObject('Word.Application');
  try
    WordApp.Visible := False;
    WordApp.Documents.open(FileName);
    CharsCount:=Wordapp.Documents.item(1).Characters.Count;//get the number of chars to select
    Result:=WordApp.Documents.item(1).Range(0, CharsCount).Text;//Select the text and retrieve the selection
    WordApp.documents.item(1).Close;
  finally
   WordApp.Quit;
  end;
end;

@Uefi220 · 26.05.2022, 00:53 **[ТС]**

Сообщение от Пытливый

Вам пора читать это

Я до сих пор хочу сделать это то что и указано в теме не нужно давать ссылки на чушь и ахинею
Заголовок темы напомню:
Чтение doc docx в string

@Пытливый · 26.05.2022, 01:20

Сообщение от Uefi220

Я до сих пор хочу сделать это то что и указано в теме не нужно давать ссылки на чушь и ахинею

Это не чушь, а точное описание 90% вопросов задаваемых новичками. Вы не исключение.
Вместо того, что бы задать вопрос "Как открыть в Delphi документ Word, используя Open office?" вы задаете вопрос "Чтение doc docx в string". Вот вам - Х.
Неправильно заданный вопрос, породил неправильные советы и заставил вас тратить время на поиски компонента. Вот вам следствие - У.
А все это время у вас под рукой был установленный Open office средствами которого и надо было открывать документ Word - вот вам Z.
Ссылку с примером работы в Open office из Delphi я вам дал.

@northener · 26.05.2022, 01:37

Сообщение от Uefi220

Я до сих пор хочу сделать это то что и указано в теме

Но "Чаще всего, Y бывает невозможным, некорректным, сложным или вообще страшно извращённым и нелогичным действием".
Хотя хотеть конечно никому не запрещено.
Кроме троешников.

@Uefi220 · 26.05.2022, 01:38 **[ТС]**

Сообщение от Пытливый

вы задаете вопрос "Чтение doc docx в string". Вот вам - Х.

Вовсе неверно:
Оказалось что задача X невозможна:
Чтение doc docx в string при этом очень желательно это сделать без установленных Microsoft Word, Excel.

Поэтому задача должна быть переосмыслена в оптимально имеющийся вариант на мой взгляд это:
Чтение doc docx в string с использованием LibreOffice

@northener · 26.05.2022, 01:50

Сообщение от Uefi220

Поэтому задача должна быть переосмыслена в оптимально имеющийся вариант на мой взгляд это:
Чтение doc docx в string с использованием LibreOffice

Но

Сообщение от Пытливый

Ссылку с примером работы в Open office из Delphi я вам дал.

Что вам ещё нужно? Готовый код?

@Uefi220 · 26.05.2022, 01:57 **[ТС]**

Сообщение от northener

Что вам ещё нужно? Готовый код?

Нет мне нужно чтобы ты прочитал вот это и помог с этим
Чтение doc docx в string

@northener · 26.05.2022, 02:53

Сообщение от Uefi220

Нет мне нужно чтобы ты прочитал вот это и помог с этим
Чтение doc docx в string

Значит именно готовый код.
Вы читать ничего не хотите. И изучать тоже. Тогда я пас. Мне и своих проблем хватает. Как впрочем и всем другим на этом форуме.

@Uefi220 · 26.05.2022, 17:23 **[ТС]**

Сообщение от northener

Вы читать ничего не хотите. И изучать тоже.

Что изучать не хочу мануала нету к этому компоненту https://yuri.elmeh.ru/ есть пример в комплекте на нём в стринг не вытаскивает не в одном из примеров я чтоли виноват

@AzAtom · 26.05.2022, 17:39

Сообщение от Uefi220

не понимаю как этот текст с
Writer в string или memo перенести ?

Так он же в Memo и закидывает полученный текст.

@Uefi220 · 26.05.2022, 17:55 **[ТС]**

Сообщение от AzAtom

Так он же в Memo и закидывает полученный текст

Оказалось нет, вот это не работает:

Delphi
1
memo1.Lines.Add(ow.ToString); //???????????????????????????

@Uefi220 · 27.05.2022, 04:34 **[ТС]**

Ну и никто не знает как с этим компонентом считать текст в мемо ?

@D1973 · 27.05.2022, 06:41

Сообщение от Uefi220

мануала нету к этому компоненту

Да ну! А это что?

Такой себе, конечно, ну так и исходник рядом лежит, изучайте...

@Пытливый · 27.05.2022, 13:04

Сообщение от D1973

Да ну! А это что?

Полистал я этот хэлп вчера, если честно это не мануал, а полная хрень, даже на краткую справку не катит.

@D1973 · 27.05.2022, 13:11

Сообщение от Пытливый

если честно это не мануал

Да, согласен... Но описание классов и методов есть, остальное можно и по исходнику посмотреть...

@Uefi220 · 27.05.2022, 14:55 **[ТС]**

Сообщение от D1973

Да, согласен... Но описание классов и методов есть,

В исходниках ничего не понятно вчера копался два часа так и не смог в мемо текст считать

@Пытливый · 27.05.2022, 15:06

А чем вас не устраивает подробный пример с описанием из ссылки, что я вам дал раньше? Там вообще не требуется сторонних компонентов, только наличие установленного офиса.

@Uefi220 · 27.05.2022, 15:42 **[ТС]**

Сообщение от Пытливый

только наличие установленного офиса

Устраивает так и он не работает ) попробуй сам по примеру там сделать и в мемо отобразить )

@Пытливый · 27.05.2022, 16:17

У меня не установлен OpenOfiice так что проверить не могу, но сильно сомневаюсь, что это перестало работать только у вас.

@Uefi220 · 27.05.2022, 17:40 **[ТС]**

Сообщение от Пытливый

что это перестало работать только у вас

Да установи LibreOffice потом удалишь он там мегабайт 30-50 весит

@AzAtom · 27.05.2022, 19:32

Не по теме:

Uefi220, так то, около 300 МБ установщик и 500 МБ в установленном виде...

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Uefi220 -11 / 9 / 1 Регистрация: 20.06.2021 Сообщений: 790
	27.05.2022, 04:34 [ТС]
	Ну и никто не знает как с этим компонентом считать текст в мемо ? 0

@Пытливый 3765 / 2272 / 706 Регистрация: 29.05.2013 Сообщений: 9,622
	27.05.2022, 15:06
	А чем вас не устраивает подробный пример с описанием из ссылки, что я вам дал раньше? Там вообще не требуется сторонних компонентов, только наличие установленного офиса. 0

@Пытливый 3765 / 2272 / 706 Регистрация: 29.05.2013 Сообщений: 9,622
	27.05.2022, 16:17
	У меня не установлен OpenOfiice так что проверить не могу, но сильно сомневаюсь, что это перестало работать только у вас. 0

@AzAtom
	27.05.2022, 19:32
	Не по теме: Uefi220, так то, около 300 МБ установщик и 500 МБ в установленном виде... 0