在 Delphi 5 中操作 Word 时，您遇到的 Selection.MoveDown 方法选中整行而不是仅移动一行的原因与 Word 的选择机制和单元格内部结构有关。以下是详细解释和解决方案：
问题分析
-
单元格的选区范围：
-
当使用
.Cell(r, c).Select选中单元格时，Word 的选择会包含单元格内的全部内容，包括单元格结束标记（类似段落标记）。 -
单元格本身是一个独立的结构，其内部文本范围与普通段落不同。
-
-
MoveDown 的行为：
-
MoveDown(wdLine, 1, wdExtend)表示"将选区向下扩展一行"，但这里的"一行"指的是文本行（Line），而不是表格行（Row）。 -
在表格单元格内，如果文本包含多行，
MoveDown会按文本行移动。但若单元格内只有单行文本，或选区已覆盖单元格结束标记，移动时会跳出单元格，导致选择整行。
-
-
选中整行的原因：
-
您的代码先选中整个单元格（包括结束标记），然后尝试向下扩展一行。由于单元格结束标记是单元格的边界，向下移动时会直接选中下一单元格的内容，甚至跨出表格。
-
Word 的 Selection 在表格中行为特殊：当从单元格底部移动时，容易触发选择整行或整列。
-
解决方案
如果您需要选中当前单元格及其下方相邻的单元格（而不是整行），可以改用以下方法：
方法 1：直接操作单元格范围
delphi
// 获取第一个表格
var
Table: Variant;
Cell1, Cell2: Variant;
begin
Table := 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
var
Table: Variant;
StartRange, EndRange: Integer;
begin
Table := 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）控制选区，避免依赖相对移动操作。