Форум: "Основная";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];
ВнизКак определить конец таблицы в 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c