Взятие данных с таблицы 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, а как закрыть вордовский процесс после выполнения правильно?

Новые блоги и статьи Все статьи Все блоги /
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .

@volvo Супер-модератор 33405 / 21515 / 8236 Регистрация: 22.10.2011 Сообщений: 36,916 Записей в блоге: 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