2 / 2 / 0
Регистрация: 09.01.2013
Сообщений: 134
1

Взятие данных с таблицы MS Word

27.09.2013, 23:48. Показов 4920. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте всем.

Как получить доступ к ячейке таблицы созданной в MS Word?
Если нельзя тогда возможно ли полностью загрузить таблицу например в StringGrid?

К самому документу я уже подключился...

Добавлено через 1 минуту
Подключился к документу чрез TWordApplication.

Добавлено через 3 часа 7 минут
нашел решение на delphi:
Delphi
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  AWordDoc = 'C:\testTable.doc';
var
  MSWord, Table: OLEVariant;
  iRows, iCols, iGridRows, jGridCols, iNumTables, iTableChosen: Integer;
  CellText: string;
  InputString: string;
begin
  try
    MSWord := CreateOleObject('Word.Application');
  except
    // Ошибка....
    Exit;
  end;
  
  try
    MSWord.Visible := False;
    MSWord.Documents.Open(AWordDoc);
 
    // Получить количество таблиц в документе
    iNumTables := MSWord.ActiveDocument.Tables.Count;
 
    InputString := InputBox(IntToStr(iNumTables) +
      ' Tables in Word Document', 'Please Enter Table Number', '1');
    iTableChosen := StrToInt(InputString);
 
    // Доступ к таблице
    Table := MSWord.ActiveDocument.Tables.Item(iTableChosen);
    // Получить размерность таблицы
    iCols := Table.Rows.Count;
    iRows := Table.Columns.Count;
    // Корректировать столбцы StringGrid
    StringGrid1.RowCount := iCols;
    StringGrid1.ColCount := iRows + 1;
 
    // Цикл по ячейкам
    for iGridRows := 1 to iRows do
      for jGridCols := 1 to iCols do
      begin
        CellText := Table.Cell(jGridCols, iGridRows).Range.FormattedText;
        if not VarisEmpty(CellText) then
        begin
          // Удалить табуляцию
          CellText := StringReplace(CellText,
            #$D, '', [rfReplaceAll]);
          // Удалить разрыв строки
          CellText := StringReplace(CellText, #$7, '', [rfReplaceAll]);
 
          // Заполнить StringGrid
          Stringgrid1.Cells[iGridRows, jGridCols] := CellText;
        end;
      end;
    //..
  finally
    MSWord.Quit;
  end;
end;
как перевести на с++ вот ету строчку:
Delphi
1
CellText := Table.Cell(jGridCols, iGridRows).Range.FormattedText;
?????

Добавлено через 9 минут
Какой нужно взять тип для переменной Table что бы все заработало?
Ставил тип TablePtr, но там не смог прописать правильно ту строчку что не получается...
0
27.09.2013, 23:48
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
27.09.2013, 23:48
Ответы с готовыми решениями:

Как вычислять значения вне таблицы WORD, с использованием данных из таблицы WORD
Ув. прпограммисты, подскажите пожалуйста, как вычислять значения вне таблицы WORD, с использованием данных из таблицы WORD. Зараннее...

Парсинг HTML страницы, взятие данных из таблицы и импорт ее в DataGridView
Приветствую. уткнулся в стену. Надо зайти на несколько сайтов и из них вытащить таблицу, данные разные Imports System.IO Imports...

Взятие строки из открытого файла в MS Word
Основная проблема вопроса заключается в том, что довольно много есть гайдов в интернете и на русском и на инглише, о работе с API ворда...

7
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33072 / 21373 / 8211
Регистрация: 22.10.2011
Сообщений: 36,689
Записей в блоге: 9
28.09.2013, 01:02 2
Примерно вот так переводится Дельфийский код на Билдер:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    String AWordDoc = "D:\\test\\testTable.doc";
    Variant MSWord = Variant::CreateObject("Word.Application");
 
    MSWord.OlePropertySet("Visible", false);
    Variant Docs = MSWord.OlePropertyGet("Documents").OleFunction("Open",
        WideString(AWordDoc));
    Variant ActiveDocument = MSWord.OlePropertyGet("ActiveDocument");
    int numTbls = ActiveDocument.OlePropertyGet("Tables").OlePropertyGet
        ("Count"); // Это просто чтобы было понятно, как взять кол-во таблиц...
 
    Variant Tbl = ActiveDocument.OlePropertyGet("Tables").OleFunction
        ("Item", 1); // потому что берется все равно первая из них...
    int iRows = Tbl.OlePropertyGet("Rows").OlePropertyGet("Count");
    int iCols = Tbl.OlePropertyGet("Columns").OlePropertyGet("Count");
 
    for (int iGridRows = 1; iGridRows <= iRows; iGridRows++)
        for (int jGridCols = 1; jGridCols <= iCols; jGridCols++)
        {
            Variant Cell = Tbl.OleFunction("Cell", jGridCols, iGridRows);
            Variant RangeCell = Cell.OlePropertyGet("Range");
            String CellText = RangeCell.OlePropertyGet("Text");
            StringGrid1->Cells[iGridRows][jGridCols] = CellText;
        }
(все try/finally добавишь сам). Это отработало на XE2, с OfficeXP... Возможно, с другими версиями Оффиса будут проблемы.
0
2 / 2 / 0
Регистрация: 09.01.2013
Сообщений: 134
28.09.2013, 01:28  [ТС] 3
У меня ошыбка : "запрашиваемый номер семейства не существует":
Вот таблица:
Посмотрите пожалуйста, у Вас тоже такая ошибка будет?
Вложения
Тип файла: doc test.doc (43.5 Кб, 16 просмотров)
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33072 / 21373 / 8211
Регистрация: 22.10.2011
Сообщений: 36,689
Записей в блоге: 9
28.09.2013, 02:42 4
Поменял код вот на такой:
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
    String AWordDoc = "D:\\test\\test.doc";
    Variant MSWord = Variant::CreateObject("Word.Application");
 
    MSWord.OlePropertySet("Visible", false);
    Variant Docs = MSWord.OlePropertyGet("Documents").OleFunction("Open",
        WideString(AWordDoc));
    Variant ActiveDocument = MSWord.OlePropertyGet("ActiveDocument");
    int numTbls = ActiveDocument.OlePropertyGet("Tables").OlePropertyGet
        ("Count"); // Это просто чтобы было понятно, как взять кол-во таблиц...
 
    Variant Tbl = ActiveDocument.OlePropertyGet("Tables").OleFunction
        ("Item", 1); // потому что берется все равно первая из них...
    int iRows = Tbl.OlePropertyGet("Rows").OlePropertyGet("Count");
    int iCols = Tbl.OlePropertyGet("Columns").OlePropertyGet("Count");
 
    for (int iGridRows = 1; iGridRows < iRows; iGridRows++)
    {
        for (int jGridCols = 1; jGridCols < iCols; jGridCols++)
        {
            try
            {
                Variant Cell = Tbl.OleFunction("Cell", iGridRows, jGridCols);
                Variant RangeCell = Cell.OlePropertyGet("Range");
                String CellText = RangeCell.OlePropertyGet("Text");
                StringGrid1->Cells[jGridCols][iGridRows] =
                    StringReplace(CellText, "\r\a", "", TReplaceFlags());
            }
            catch(const Exception &E)
            {
                Caption = E.ClassName();
            }
        }
    }
, и запустил не из Билдера, а из-под WinExplorer-а, чтобы catch() сработал, лень мне снимать галку в дебаггере Вот результат:

Взятие данных с таблицы MS Word


Похоже?
0
2 / 2 / 0
Регистрация: 09.01.2013
Сообщений: 134
28.09.2013, 13:48  [ТС] 5
Извините, возможно я туплю но у меня снова ошышбка:
C++
1
2
3
[BCC32 Error] Unit4.cpp(144): E2522 Non-const function _fastcall TObject::ClassName() called for const object
  Full parser context
    Unit4.cpp(114): parsing: void _fastcall Tbase_rules::Button4Click(TObject *)
В строчке:
C++
1
    Caption = E.ClassName();
Как исправить?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33072 / 21373 / 8211
Регистрация: 22.10.2011
Сообщений: 36,689
Записей в блоге: 9
28.09.2013, 13:52 6
Что за Билдер у тебя? Убери const, если это поможет, хотя и с ним должно бы компилироваться. ClassName - это классовый метод...

А вообще это не очень то и нужно. Я сделал этот вывод в Caption только для того, чтобы посмотреть, что исключение действительно выбрасывается, и успешно отлавливается. Можно всю эту строку закомментировать...
1
2 / 2 / 0
Регистрация: 09.01.2013
Сообщений: 134
28.09.2013, 14:09  [ТС] 7
Красавчик!!!
0
2 / 2 / 0
Регистрация: 09.01.2013
Сообщений: 134
01.10.2013, 15:52  [ТС] 8
UI, а как закрыть вордовский процесс после выполнения правильно?
0
01.10.2013, 15:52
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
01.10.2013, 15:52
Помогаю со студенческими работами здесь

Взятие строки из таблицы
Приветствую и прошу помощи: Есть таблица, выводимая из бд, с помощью php. Задача такая: При клике по строке(или ячейке строки) нужно...

Экспорт данных таблицы в Word
Не могу сделать так, чтобы данные таблицы DBGrid экспортировались в документ Word. Пробовал кучу примеров, всё равно не помогает. Покажите...

Чтение данных из таблицы Word
Добрый день! Нужна помощь. Необходимо считать данные из таблицы Word в ComboBox и Label. Таблица представляет из себя 4 столбца из...

Вывод данных в таблицы Word
Как реализовать вывод в таблицы Word разного количества элементов. Иными словами: подскажите как реализовать динамическое создание...

Проверка данных в ячейке таблицы word
Здравствуйте! Столкнулся с такой проблемой: Есть некая таблица для заполнения необходимо проверить некоторые поля на корректность...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Ключевые слова Python
hw_wired 15.02.2025
Ключевые слова в Python - это специальные зарезервированные слова, которые имеют особое значение и функции в языке. В настоящее время Python включает 35 ключевых слов и 4 мягких ключевых слова. Эти. . .
Отличия изменяемых и неизменяемых типов в Python
hw_wired 15.02.2025
В Python существует принципиальное различие между изменяемыми (mutable) и неизменяемыми (immutable) типами данных, которое оказывает существенное влияние на работу программ. Это различие часто. . .
Python: сравнение списков и кортежей
hw_wired 15.02.2025
В Python последовательности являются одними из самых важных и часто используемых типов данных. Они позволяют хранить упорядоченные наборы элементов, к которым можно обращаться по индексу. Среди всех. . .
Как скачивать файлы с URL с помощью Python
hw_wired 15.02.2025
Для скачивания файлов Python предлагает как встроенные средства, так и сторонние библиотеки. Встроенный модуль urllib из стандартной библиотеки обеспечивает базовую функциональность для работы с URL. . .
Использование SQLAlchemy в Python
hw_wired 15.02.2025
SQLAlchemy - мощная библиотека для работы с базами данных в Python, которая предоставляет полноценный набор средств для объектно-реляционного отображения (ORM) и обширные возможности для работы с. . .
Взаимодействие с REST API в Python
hw_wired 15.02.2025
В современном мире разработки программного обеспечения REST API стал неотъемлемой частью архитектуры веб-приложений. API (Application Programming Interface) - это набор правил и протоколов,. . .
Разделение строк в Python
hw_wired 15.02.2025
Python предлагает богатый набор возможностей для работы со строками, и среди них разделение строк занимает особое место. Этот процесс позволяет разбивать текст на отдельные компоненты, что критично. . .
Объединение строк в Python
hw_wired 15.02.2025
При работе с текстовыми данными в Python нередко возникает необходимость объединять несколько строк в одну. Это может потребоваться при форматировании вывода, обработке текстовых файлов или создании. . .
Лучшие игровые движки на Python
hw_wired 15.02.2025
В последнее время разработка игр стала одним из самых популярных направлений программирования, и Python не остался в стороне от этого тренда. Несмотря на то, что Python обычно не ассоциируется с. . .
Декоратор jit в Python
hw_wired 15.02.2025
Если вы достаточно долго изучаете программы и пакеты на Python для машинного обучения, то наверняка замечали, что паттерн "JIT-декоратор" довольно популярен. Этот подход позволяет превратить обычные. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru