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

@Best777 · Регистрация: 09.01.2013

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

Здравствуйте всем.

Как получить доступ к ячейке таблицы созданной в 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, но там не смог прописать правильно ту строчку что не получается...

@volvo · 28.09.2013, 01:02

Примерно вот так переводится Дельфийский код на Билдер:

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... Возможно, с другими версиями Оффиса будут проблемы.

@Best777 · 28.09.2013, 01:28 **[ТС]**

У меня ошыбка : "запрашиваемый номер семейства не существует":
Вот таблица:
Посмотрите пожалуйста, у Вас тоже такая ошибка будет?

@volvo · 28.09.2013, 02:42

Поменял код вот на такой:

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() сработал, лень мне снимать галку в дебаггере

Вот результат:

Похоже?

@Best777 · 28.09.2013, 13:48 **[ТС]**

Извините, возможно я туплю но у меня снова ошышбка:

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();

Как исправить?

@volvo · 28.09.2013, 13:52

Что за Билдер у тебя? Убери const, если это поможет, хотя и с ним должно бы компилироваться. ClassName - это классовый метод...

А вообще это не очень то и нужно. Я сделал этот вывод в Caption только для того, чтобы посмотреть, что исключение действительно выбрасывается, и успешно отлавливается. Можно всю эту строку закомментировать...

@Best777 · 28.09.2013, 14:09 **[ТС]**

Красавчик!!!

@Best777 · 01.10.2013, 15:52 **[ТС]**

UI, а как закрыть вордовский процесс после выполнения правильно?

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@volvo Супер-модератор 33192 / 21488 / 8233 Регистрация: 22.10.2011 Сообщений: 36,870 Записей в блоге: 12
	28.09.2013, 13:52
	Что за Билдер у тебя? Убери const, если это поможет, хотя и с ним должно бы компилироваться. ClassName - это классовый метод... А вообще это не очень то и нужно. Я сделал этот вывод в Caption только для того, чтобы посмотреть, что исключение действительно выбрасывается, и успешно отлавливается. Можно всю эту строку закомментировать... 1

@Best777 2 / 2 / 0 Регистрация: 09.01.2013 Сообщений: 134
	28.09.2013, 14:09 [ТС]
	Красавчик!!! 0

@Best777 2 / 2 / 0 Регистрация: 09.01.2013 Сообщений: 134
	01.10.2013, 15:52 [ТС]
	UI, а как закрыть вордовский процесс после выполнения правильно? 0