Скачать: CL | DM;

Как определить конец таблицы в MSWord?   Найти похожие ветки 

← →
Алексей Петухов   (2003-09-09 14:44) [0]

Уважаемые мастера, здавствуйте.
Мне нужно организовать обход таблиц в MS Word.
Для обхода текущей таблици использую такую процедуру:

procedure ScanTable(CurrentTable:Variant);
Var
MSWTCell: Variant;
begin
MSWTCell:=CurrentTable.Cell(1,1);
while (not VarIsNull(MSWTCell))and(not VarIsEmpty(MSWTCell)) do
begin
ShowMessage("строка: "+inttostr(MSWTCell.RowIndex)+#10+#13+"столбец: "+inttostr(MSWTCell.ColumnIndex));

MSWTCell:=MSWTCell.Next;
end;
end;

Но при окончании ячеек в таблице возникает ошибка.
Т.е. не правильно определяется конец таблицы. По идее VarIsNull(MSWTCell) должно сработать, но неработает.
Подскажите, как правильно определить конец таблицы.
Заранее благодарен, Алексей.

---

← →
KSergey ©   (2003-09-09 15:08) [1]

А нет ли у таблицы свойств Rows.Count и Columns.Count? Судя по VBA справке - есть

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c