dephi读取word文档的内容

Question

有一个WORD文档,我想知道用delphi怎么读取它的第N行数据

Answer 1

var
  wa, wd: OleVariant;
  ss: TStrings;
begin
    try
      wa := CreateOleObject('Word.Application');
    except
      ShowMessage('Microsoft Word not installed');
      Exit;
    end;
    ss := TStringList.Create;
    try
      wd := wa.Documents.Open(fn);
      if wd.Paragraphs.Count>0 then
      begin
        for i:=1 to wd.Paragraphs.Count do
          if Length(Trim(wd.Paragraphs.Item(i).Range.Text))>0 then
            ss.Add(wd.Paragraphs.Item(i).Range.Text);
      end;
    finally
      wa.Quit;
    end;
end

Answer 2

delphi里有操作  word的例子 
delphi 自带  有word组件
看 word的帮助 参考  delphi wordxp单元