delphi怎样读取word中指定行的内容

delphi怎样读取word中指定行的内容

在 word 中的行有两种概念，一种是硬回车行，其实就是“段落”；另一种是软回车行，是通常的“行”。


如果是获取指定段落行的代码，示例如下：


procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  wordApp := CreateOleObject('Word.Application');
  wordDoc := wordApp.Documents.open('e:\temp.doc');
  WordApp.Visible := True;
  s := wordDoc.Paragraphs.Item(16).Range.Text;
  ShowMessage(s);
end;

wordapp.activedocument.saveas(path,$00000002)