Поиск в таблице word delphi

К сожалению через finddialog Вы не можете ограничить поиск только по одному столбцу, а потом Вам нужно получить значения остальных столбцов в строке, и как Вы собираетесь это сделать?:)

Если у Вас проблема с переносом данного решения в Делфи, то в честь Рождества помогу Вам примером:

Код:

Код:

Во вложении — весь проект + исходный вордовский документ

Успехов!

I assume you’re asking mainly how to find the table, rather than how to change the contents of the table afterwards. How to do this depends on the criteria you want to use to find the table of interest.

On the face of it, you should be able to navigate to a given table using the Goto method of MS Word’s Selection object. However, there is a problem with that (see at the end of this answer) in detecting when the operation has failed because Goto didn’t locate the correct table.

If the table of interest is preceded in the document by an identifying text label, you could simply search for the label and, if found, navigate forwards from that, like this example which finds the table after the label ‘Table3’:

procedure TForm1.Button4Click(Sender: TObject);
var
  AFileName : String;
  MSWord,
  Document : OleVariant;
  Found : WordBool;
begin
  AFileName := 'd:aaad7officeautoTables.Docx';

  MSWord := CreateOleObject('Word.Application');
  MSWord.Visible := True;
  Document := MSWord.Documents.Open(AFileName);

  MSWord.Selection.Find.Text :='Table3';
  Found := MSWord.Selection.Find.Execute;
  if Found then begin
    MSWord.Selection.MoveDown( Unit:=wdLine, Count:=1);
  end;
end;

As written, the «if Found …» block merely places the cursor on the first character of the first cell of the table. Once in the table, you can alter its contents however you like.

If you want to find out how to do something like insert an image in a table cell, go to the Developer tab on Word’s ribbon, record a macro that does what you want and then use Edit from the Macros pop-up to look at it — it’s usually fairly easy then to cut’n paste it into Delphi and edit it into the equivalent Delphi code. Same goes for other methods of finding the table you want — record a macro then translate it.

To find the Nth table in a document and plant the cursor in its top left cell, you can do this:

procedure TForm1.Button2Click(Sender: TObject);
var
  AFileName : String;
  MSWord,
  Document,
  Tables,
  Table : OleVariant;
  TableNo : Integer;
begin
  AFileName := 'd:aaad7officeautoTables.Docx';

  MSWord := CreateOleObject('Word.Application');
  MSWord.Visible := True;
  Document := MSWord.Documents.Open(AFileName);

  TableNo := 3;

  Tables := Document.Tables;

  if TableNo <= Tables.Count then begin
    Table := Tables.Item(TableNo);
    Table.Select;
    MSWord.Selection.MoveLeft( Unit:=wdCharacter, Count:=1);
  end;

end;

Btw, in Word’s Find dialog, on the Goto tab, there is Table entry in the Go to what listbox. You can call that in code using something like

MSWord.Selection.GoTo(What:= wdGoToTable, Which:=wdGoToFirst, Count:=3);  

The problem with it is how to check in code whether it succeeded. Unlike Find, which returns a WordBool, Goto returns a Range object. If you try to use it to go to the 10th table in a document which only contains 2 tables, there is no error raised, but the returned range is the last table in the document. I haven’t yet found a way to check from the returned Range whether Goto succeeded without checking some text associated with the table which could have been found using Find in the first place. Of course, if the document is guaranteed to contain the table you’re looking for, this problem with Goto probably needn’t concern you.

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

На первый взгляд, вы должны иметь возможность переходить к данной таблице, используя метод Goto объекта Selection MS Word. Однако существует проблема с этим (см. В конце этого ответа) при обнаружении сбоя операции, потому что Goto не нашел правильную таблицу.

Если интересующей таблице предшествует идентифицирующая текстовая метка в документе, вы можете просто выполнить поиск метки и, если она будет найдена, перейти от нее вперед, как в этом примере, где таблица находится после метки ‘Table3’:

procedure TForm1.Button4Click(Sender: TObject);
var
  AFileName : String;
  MSWord,
  Document : OleVariant;
  Found : WordBool;
begin
  AFileName := 'd:aaad7officeautoTables.Docx';

  MSWord := CreateOleObject('Word.Application');
  MSWord.Visible := True;
  Document := MSWord.Documents.Open(AFileName);

  MSWord.Selection.Find.Text :='Table3';
  Found := MSWord.Selection.Find.Execute;
  if Found then begin
    MSWord.Selection.MoveDown( Unit:=wdLine, Count:=1);
  end;
end;

Как написано, блок «if Found …» просто помещает курсор на первый символ первой ячейки таблицы. Оказавшись в таблице, вы можете изменить ее содержимое по своему усмотрению.

Если вы хотите узнать, как сделать что-то вроде вставки изображения в ячейку таблицы, перейдите на вкладку «Разработчик» на ленте Word, запишите макрос, который делает то, что вы хотите, а затем используйте Изменить из < strong> Macros , чтобы посмотреть на него — обычно довольно легко вырезать и вставить его в Delphi и отредактировать в эквивалентный код Delphi. То же самое и с другими методами поиска нужной таблицы — запишите макрос, а затем переведите его.

Чтобы найти N-ю таблицу в документе и установить курсор в ее левую верхнюю ячейку, вы можете сделать это:

procedure TForm1.Button2Click(Sender: TObject);
var
  AFileName : String;
  MSWord,
  Document,
  Tables,
  Table : OleVariant;
  TableNo : Integer;
begin
  AFileName := 'd:aaad7officeautoTables.Docx';

  MSWord := CreateOleObject('Word.Application');
  MSWord.Visible := True;
  Document := MSWord.Documents.Open(AFileName);

  TableNo := 3;

  Tables := Document.Tables;

  if TableNo <= Tables.Count then begin
    Table := Tables.Item(TableNo);
    Table.Select;
    MSWord.Selection.MoveLeft( Unit:=wdCharacter, Count:=1);
  end;

end;

Между прочим, в диалоговом окне поиска Word на вкладке Goto в списке Go to what есть запись Table. Вы можете вызвать это в коде, используя что-то вроде

MSWord.Selection.GoTo(What:= wdGoToTable, Which:=wdGoToFirst, Count:=3);  

Проблема в том, как проверить в коде, удалось ли это. В отличие от Find, который возвращает WordBool, Goto возвращает объект Range. Если вы попытаетесь использовать его для перехода к 10-й таблице в документе, который содержит только 2 таблицы, ошибки не возникнет, но возвращаемый диапазон будет последней таблицей в документе. Я еще не нашел способ проверить из возвращенного диапазона, удалось ли Goto, без проверки некоторого текста, связанного с таблицей, который можно было бы найти с помощью Find в первую очередь. Конечно, если документ гарантированно содержит искомую таблицу, проблема с Goto, вероятно, вас не волнует.