在 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）?功能精確定位需要操作的范圍。
通過以上方法，可以有效避免跨頁時誤選整行的問題，確保操作僅限于目標單元格。
)
