Как работать с таблицами Word в Delphi?

Question

[Евгений Иванов]

Использую RAD Studio 10.1 Berlin.

Возникла вот такая задача:
Есть word документ в котором большое количество таблиц.
Нужно просмотреть документ от начала и до конца и при встрече таблицы прочитать данные из 1 столбца 1 строки. Если там написано "Таблица", тогда
Нужно прочитать данные 2 столбца, с 3 строки и до конца таблицы.

Как это можно сделать?
Понимаю, что задача большая - буду рад любым примерам кода.

Пример рабочего кода

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
wdApp, wdDocs, wdDoc : Variant;
file_name:string;
temp_string:AnsiString;
begin

file_name:=ExtractFilePath( Application.ExeName )+'\test.doc';

//Пытаемся запустить MS Word и получить ссылку на объект Application.
//- Это корневой объект в объектной структуре MS Word.
try
wdApp := CreateOleObject('Word.Application');
except
ShowMessage('Не удалось запустить MS Word. Действие отменено.');
Exit;
end;
  
//Если требуется, делаем видимым окно MS Word.
wdApp.Visible := false;
//Ссылка на коллекцию документов.
wdDocs := wdApp.Documents;
//Попытка открыть выбранный файл и получить ссылку на объект документа.
wdDoc := wdDocs.Open(FileName:=file_name);

{	
CurTable:=ActiveDocument.Tables(1);
CurTable.Cell(10,20).Range.Text:=Text;
goto end_of_this;
}
	
//Читаем текст документа и записываем его в Мемо.
temp_string:=wdDoc.Range.Text;

//Закрываем MS Word.
wdApp.Quit;

Answer 1

[kalapanga]

Проблема-то в чём? Вот же у Вас пример. Таблицы образуют коллекцию Tables. Количество таблиц - .Tables.Count. Пишете цикл по таблицам и читайте из них на здоровье, что Вам нужно.

Comments

[Евгений Иванов]

Мне бы пример. Я не знаю свойств объекта.

Как там будет?

for i:=0 to wdDocs.Tables.Count do
begin
current_string:=wdDocs.Tables.CurTable.Cell(1,1);
memo1.Lines.Add(current_string);
end;

[kalapanga]

Ну всё же есть в примере в Вашем же вопросе, абсолютно все необходимые Вам "свойства"! Там текст записывается в ячейку, а Вам прочитать текст из ячейки нужно.
Ну а если вдруг захочется чего-то большего то ищите в MSDN

[Евгений Иванов]

В моем примере не рабочий код.
Я не знаю свойств объекта

file_name:=ExtractFilePath( Application.ExeName )+'\test.doc';
wdApp := CreateOleObject('Word.Application');
wdApp.Visible := false;
wdDocs := wdApp.Documents;
wdDoc := wdDocs.Open(FileName:=file_name);

//Кол-во таблиц
memo1.lines.add(inttostr(wdDoc.Tables.Count));

//Не рабочий код
CurTable:=wdDoc.Tables(1); //Tables - массив....Tables[1]? wdDoc свойства?
current_string:=wdDoc.CurTable.Cell(10,20).Range.Text;
memo1.lines.add(current_string);

[kalapanga]

Да, конечно индекс в квадратных скобках. И в следующей строке понятно что у wDoc нет никакого CurTable. Уж или так:
CurTable := wdDoc.Tables[1];
current_string:=CurTable.Cell(10,20).Range.Text;
или сразу так:
current_string:=wdDoc.Tables[1].Cell(10,20).Range.Text;

Да, ещё учтите, что в конце строки будет "лишний" символ табуляции. Наверное надо будет отрезать.

[Евгений Иванов]

kalapanga, ошибки, ошибки и ошибки (

current_string:=wdDoc.Tables[1].Cell(10,20).Range.Text;

item не является свойством.
Собственно поэтому и пишу "Я не знаю свойств объекта ".

Понятно, что методом научного тыка можно догадаться о свойствах, но как то тыкать не охота.

С Excel всё намного проще и куча мануалов.

[kalapanga]

А где в процитированной строке "item"? К какой строке кода ошибка-то относится? Явно не к этой.

[Евгений Иванов]

kalapanga, Именно к этой.

А где в процитированной строке "item"? К какой строке кода ошибка-то относится? Явно не к этой.

В коде у меня нет слова item.

[kalapanga]

Попробуйте перекомпилировать весь проект. Смущает наличие строки "goto end_of_this;" Что она делает в Вашем коде? У Вас действительно где-то есть метка "end_of_this"? Если нет, то код не должен был скомпилироваться вообще.
Попробуйте ещё написать так:
current_string:=wdDoc.Tables.Item(1).Cell(10,20).Range.Text;
Если и после этого не заработает, я бы попробовал на машине с другим Word. С Word 2007 я не смог воспроизвести такой ошибки. Другого под рукой нет.

[Евгений Иванов]

current_string:=wdDoc.Tables.Item(1).Cell(10,20).Range.Text;

Ошибка. Запрашиваемый номер семейства не существует.

Смущает наличие строки "goto end_of_this

Убрал. Почистил код. Всё тоже самое.

Использую Delphi 7. Office 2007 (как у вас).

Ссылка на архив с проектом.
https://cloud.mail.ru/public/9Xms/fP1VsdJHN

Весь код проекта

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls, StrUtils ;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
file_name,current_string:string;
wdApp, wdDocs, wdDoc : Variant;
begin


file_name:=ExtractFilePath( Application.ExeName )+'\test.doc';
wdApp := CreateOleObject('Word.Application');
wdApp.Visible := false;
wdDocs := wdApp.Documents;
wdDoc := wdDocs.Open(FileName:=file_name);

current_string:=wdDoc.Tables[1].Cell(10,20).Range.Text;
//current_string:=wdDoc.Tables.Item(1).Cell(10,20).Range.Text;
memo1.lines.add(current_string);

wdApp.Quit;
end;



end.

[kalapanga]

В коде у Вас теперь всё правильно. Ошибка "Запрашиваемый номер семейства не существует" возникает когда индекс за границами. Если номер таблицы, строки, столбца больше существующего.
Здесь проблема в сложном заголовке. Честно признаюсь, я даже не знаю по каким правилам в таком случае Word строки и столбцы нумерует. В целом для таблицы выдаёт Rows.Count = 20, Columns.Count = 12, но реально выходит, что существуют не все ячейки из этой матрицы.
Нужно или искать правила нумерации вордом ячеек в таких таблицах или выяснить всё опытным путём (может оно и быстрее выйдет).
Написать двойной цикл по x и y до 20 и 12, и выводить в мемо координаты и содержимое ячейки. А содержимое получать как-то так:

try
  current_string:=wdDoc.Tables[1].Cell(x,y).Range.Text;
except
  current_string:='None';
end;

И должно стать понятно, какие ячейки есть, каких нет и из каких же Вам нужно читать.

[kalapanga]

Во, я уже попробовал. Вот процедурка:

procedure TForm1.Button1Click(Sender: TObject);
var
  wdApp, wdDocs, wdDoc : Variant;
  file_name, s: string;
  x,y: integer;
begin
  file_name:='D:\test.doc';
  wdApp := CreateOleObject('Word.Application');
  try
    wdApp.Visible := false;
    wdDocs := wdApp.Documents;
    wdDoc := wdDocs.Open(file_name);
    for x := 1 to wdDoc.Tables.Item(1).Rows.Count do
      for y := 1 to wdDoc.Tables.Item(1).Columns.Count do
      begin
        try
          s := wdDoc.Tables.Item(1).Cell(x,y).Range.Text;
        except
          s := 'None';
        end;
        Memo1.Lines.Add('('+IntToStr(x)+','+IntToStr(y)+') ' + s);
      end;
  finally
    wdApp.Quit;
  end;
end;

В результате будет видно, что ряд с номерами колонок под шапкой - пятый. Начиная с него все ячейки на месте, нумеруются нормально. А вот что выше, сама шапка таблицы - это даа... Смотрите сами. Логика какая-то есть, но без стакана так сразу и не догадаешься, что там в каком ряду и в какой ячейке.

[Евгений Иванов]

kalapanga, спасибо за помощь. Вроде что то получилось.
Буду теперь допиливать.

Answer 2

[Александр Самсонов]

Если вместо вот этого
CurTable:=ActiveDocument.Tables(1);
написать правильно, то всё наладится ))
CurTable:=ActiveDocument.Tables.Item(1);
Естественно, если в документе есть хоть одна таблица :-)