Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/18: Рейтинг темы: голосов - 18, средняя оценка - 5.00
8 / 8 / 0
Регистрация: 04.12.2010
Сообщений: 63

Извлечь содержимое Word'овского файла

04.03.2012, 20:43. Показов 3879. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый вечер. Подскажите, пожалуйста, каким образом возможно извлечь текст из ворда, чтобы была возможность работать с текстом (поиск, редактирование и т.д.), и(возможно) картинки на форму? Какие нужны компоненты?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
04.03.2012, 20:43
Ответы с готовыми решениями:

Извлечь содержимое из .txt файла в textBox
Необходимо извлечь содержимое из .txt файла в textBox. Чтобы как на скриншотах было.

Как извлечь содержимое xml файла из БД ?
Есть таблица в БД, в ней столбец "Comment" который заполнен комментариями. Каждый отдельный коммент -файл xml. Типа того что в файле...

Открытие Wordовского файла
Добрый день! Задача по кнопки открыть вордовский файл, находящийся в форме, прикреплённый в поле типа Rich Text. Dim neo As...

9
 Аватар для Samrisbe
1365 / 732 / 67
Регистрация: 28.01.2011
Сообщений: 2,069
04.03.2012, 20:51
Работа с MS Word 2003 в этой теме есть исходник с примером.
А еще говорят что я не умею пользоваться поиском по форуму...
1
8 / 8 / 0
Регистрация: 04.12.2010
Сообщений: 63
04.03.2012, 20:57  [ТС]
Возможно, это почетное место занял теперь я))но вроде там только про сохранение текста?

Добавлено через 1 минуту
мне бы напротив, извлечь из ворда и в билдере работать с текстом и с изображениями
0
 Аватар для Samrisbe
1365 / 732 / 67
Регистрация: 28.01.2011
Сообщений: 2,069
04.03.2012, 21:15
Цитата Сообщение от sindbad-sailor Посмотреть сообщение
мне бы напротив, извлечь из ворда
MS WORD, MS EXCEL пока это в помощ.
дружище насчет поиска, я не тебя имел ввиду...
1
8 / 8 / 0
Регистрация: 04.12.2010
Сообщений: 63
04.03.2012, 21:20  [ТС]
спасибо, гляну
0
 Аватар для Samrisbe
1365 / 732 / 67
Регистрация: 28.01.2011
Сообщений: 2,069
04.03.2012, 21:29
вот еще инфа
и еще немного
1
8 / 8 / 0
Регистрация: 04.12.2010
Сообщений: 63
04.03.2012, 21:34  [ТС]
этот код почему-то у меня перед самым открытием файла выдает ошибку...
0
 Аватар для Samrisbe
1365 / 732 / 67
Регистрация: 28.01.2011
Сообщений: 2,069
04.03.2012, 21:36
неспеши немного присмотрись проверь инклуды, я слышал они могут быть разные смотря какая версия Word у тебя на примете...
1
8 / 8 / 0
Регистрация: 04.12.2010
Сообщений: 63
04.03.2012, 21:43  [ТС]
Супер! Ты прав) первый шаг есть - программа открыла вордовский документ))

Добавлено через 4 минуты
Если кому понадобится (офис стоит 7-ой):
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include <word_2K.h> // Подключение зависит от версии WORD
#pragma link "Word_2K_SRVR"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
 {
    try{
        vWApp=Variant::CreateObject("Word.Application"); // Получить доступ к приложению WORD
        vWApp.OlePropertySet("Visible", True); }catch (...){
        Application->MessageBox("Невозможно открыть Microsoft Word!Возможно этого приложения на компьютере не установлено.","Ошибка",MB_OK+MB_ICONERROR);
        }
       WordInit("C:\\test.doc"); // Функция открытия документа WORD
 }
 void __fastcall TForm1::WordInit(String File)
 {
    vWDocs=vWApp.OlePropertyGet("Documents"); // Доступ к списку документов
    vWDocs.OleProcedure("Open",StringToOleStr(File)); // Открытие выбранного файла
    vWDoc=vWDocs.OleFunction("Item",1); // Доступ к документу
 }
header-file:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
       void __fastcall WordInit(String File); // Объявление функции
       Variant vWApp,vWDocs,vWDoc,ReplaceType; // Объявление переменных
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
1
 Аватар для cpp_developer
20124 / 5691 / 417
Регистрация: 09.04.2010
Сообщений: 22,546
Записей в блоге: 1
05.03.2012, 00:04
Список полезных/интересных тем и решение необычных задач->
Библиотека VCL и сопутствующие материалы->
Работа с OLE-сервером Word
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
05.03.2012, 00:04
Помогаю со студенческими работами здесь

Запись Wordовского файла в *.PDF
Народ, прошу помощи. Сам давно не программировал, а тут начальство озадачило мою жену: изменить адрес фирмы во всех Wordовских файлах....

Проблема с сохранением Wordовского файла
Народ помогите плз. такая проблема, макрос вносит изменения в Wordовский документ и потом пытаюсь его сохранить ActiveDocument.Save но...

Как сохранить содержимое xml файла (без парсинга) в MySql и как потом xml от туда извлечь
делаю так: $xml_string=file_get_contents($uploadfile); //путь к файлу xlm ...

Как извлечь содержимое CAB-файлов
Всем привет! Есть архив с несколькими файлами внутри, имеет расширение CAB как извлечь содержимое?

Как извлечь содержимое непустой ячейки из массива ячеек?
Подскажите, пожалуйста! Я уже голову сломала( Есть массив из 27 ячеек, которые заполняются в зависимости от выполняемого условия. Всегда...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru