delphi中如何声明Range，如何遍历Range ( 积分: 50 )

如题

Range : olevariant;

Range 是一个处理区域，何谓 遍历Range ？

可以这样用：
Range := WordApplication1.ActiveDocument.Paragraphs.Item(1).Range;

详细用法，参考MSDN,
用 Office 编程
Office 应用程序自动化
使用 Word 对象模型实现 Word 自动化

实际是这样，我有一个Excel文件，其中有很多负数，我想遍历所有单元格，
如果单元格值为负数就删除该负数。

为什么现在的人提问题都不想想别人看了是怎么理解的
非要绕一圈才肯说点要问的实质内容？

把excel文件 当一个 2维数组来处理就是了，非常简单，
给你几句代码看下：

var ExcelID: Variant;
begin
ExcelID := CreateOleObject( 'Excel.Application' );
ExcelID.WorkBooks.Open( AppPath + '模板/' + ReportName + '.xls' );
for i:=1 to 9 do
ExcelID.Cells[4,i].Value:=

if SaveDialog1.Execute then
ExcelID.ActiveWorkbook.SaveAs(SaveDialog1.FileName);
ExcelID.ActiveWorkBook.Saved := True;
ExcelID.WorkBooks.Close;

ExcelID.Quit;
ExcelID:=unassigned;

教训的是...
非常感谢！
但如果数据量很大的话这种方式好像不是特别快
不知是否还有其他方法？

你也可以把excel文件当做一个数据库来处理，
设置数据源指向excel文件，
表名就是$sheet1 之类，
使用一个Ttable来处理数据

接受答案了.