在 Delphi 5 中操作 Word 时，您遇到的 Selection.MoveDown 方法选中整行而不是仅移动一行的原因与 Word 的选择机制和单元格内部结构有关。以下是详细解释和解决方案：

问题分析

单元格的选区范围：
- 当使用 .Cell(r, c).Select 选中单元格时，Word 的选择会包含单元格内的全部内容，包括单元格结束标记（类似段落标记）。
- 单元格本身是一个独立的结构，其内部文本范围与普通段落不同。
MoveDown 的行为：
- MoveDown(wdLine, 1, wdExtend) 表示“将选区向下扩展一行”，但这里的“一行”指的是文本行（Line），而不是表格行（Row）。
- 在表格单元格内，如果文本包含多行，MoveDown 会按文本行移动。但若单元格内只有单行文本，或选区已覆盖单元格结束标记，移动时会跳出单元格，导致选择整行。
选中整行的原因：
- 您的代码先选中整个单元格（包括结束标记），然后尝试向下扩展一行。由于单元格结束标记是单元格的边界，向下移动时会直接选中下一单元格的内容，甚至跨出表格。
- Word 的 Selection 在表格中行为特殊：当从单元格底部移动时，容易触发选择整行或整列。

解决方案

如果您需要选中当前单元格及其下方相邻的单元格（而不是整行），可以改用以下方法：

方法 1：直接操作单元格范围

delphi

// 获取第一个表格
varTable: Variant;Cell1, Cell2: Variant;
beginTable := Document.Tables.Item(1);// 选中当前单元格（j-1+Row, i-1+Col）Cell1 := Table.Cell(j-1+Row, i-1+Col);Cell1.Select;// 选中下方相邻单元格（下一行的同一列）Cell2 := Table.Cell(j+Row, i-1+Col); // 注意：确保 j+Row 不越界Document.Selection.SetRange(Cell1.Range.Start, Cell2.Range.End);
end;

方法 2：使用 Range 对象精确控制

delphi

varTable: Variant;StartRange, EndRange: Integer;
beginTable := Document.Tables.Item(1);// 获取当前单元格的起始位置StartRange := Table.Cell(j-1+Row, i-1+Col).Range.Start;// 获取下方单元格的结束位置EndRange := Table.Cell(j+Row, i-1+Col).Range.End;// 设置选区范围Document.Selection.SetRange(StartRange, EndRange);
end;

注意事项

索引越界问题：确保 j+Row 和 i-1+Col 在表格范围内（从1开始计数）。
Word 常量值：Delphi 5 中需声明 Word 常量（如 wdLine 和 wdExtend），或直接使用其数值（如 wdLine 对应 5，wdExtend 对应 1）。
单元格内容：如果单元格内有多行文本，请使用 MoveDown 的替代方案（如计算具体行数）。

总结

使用 MoveDown 在表格内移动选区容易导致不可预期的行为，因为 Word 的 Selection 在表格边界处会扩展为行/列选择。推荐直接通过单元格范围（Range）控制选区，避免依赖相对移动操作。

在 Delphi 5 中操作 Word 表格时，处理跨页选区误选整行的问题通常需要精确控制选区的范围。以下是解决该问题的步骤和示例代码：

问题分析

当表格跨页时，Word 的选区（Selection）可能会自动扩展至整行，导致操作超出预期范围。这是因为 Word 的选区对象在跨页时默认会选择完整的段落或行。

解决方案

使用 Range 对象替代 Selection
直接操作具体的 Range（范围）对象，而不是依赖 Selection，可以更精确地控制操作区域。
逐单元格处理
遍历表格的每个单元格，单独处理内容，避免整行操作。
禁用屏幕更新
在操作过程中暂时关闭屏幕刷新，提高性能并避免视觉闪烁。

示例代码

delphi

varWordApp, Document, TableObj, CellRange: Variant;i, j: Integer;
begin// 连接 WordWordApp := GetActiveOleObject('Word.Application');Document := WordApp.ActiveDocument;// 假设操作第一个表格TableObj := Document.Tables.Item(1);// 禁用屏幕更新WordApp.ScreenUpdating := False;try// 遍历表格的每一行和单元格for i := 1 to TableObj.Rows.Count dobeginfor j := 1 to TableObj.Columns.Count dobegin// 获取当前单元格的范围CellRange := TableObj.Cell(i, j).Range;// 检查单元格是否跨页（示例：通过判断行高或位置）// 这里可根据实际需求调整判断逻辑if CellRange.Information(wdActiveEndPageNumber) <> CellRange.Information(wdActiveEndPageNumber) thenbegin// 处理跨页单元格的内容// 例如：插入文本CellRange.Text := '跨页内容';endelsebegin// 正常处理单元格CellRange.Text := '正常内容';end;end;end;finally// 恢复屏幕更新WordApp.ScreenUpdating := True;end;
end;

关键点说明

wdActiveEndPageNumber 常量：
需要手动定义常量 wdActiveEndPageNumber = 1（具体值参考 Word 常量表），或使用对应的数值。
单元格跨页判断：
示例中通过检查单元格的起始和结束页码是否不同来判断是否跨页，实际应用可能需要更复杂的逻辑。
错误处理：
添加异常处理确保屏幕更新被恢复，避免 Word 无响应。