在 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 无响应。
补充建议
如果需处理大量数据，建议分块处理以避免性能问题。
可结合 Word 的 书签（Bookmark） 功能精确定位需要操作的范围。
通过以上方法，可以有效避免跨页时误选整行的问题，确保操作仅限于目标单元格。
)
