如何提取word中某一行的文字，怎样定位行

Question

如题，有劳各位大哥帮忙，急！

Answer 1

下面是通过寻找相应的内容,并把他们替换成edit1-5.text,你看看有没有帮助.
procedure TForm2.Button1Click(Sender: TObject);
var i:integer;
VarWord: Variant;
  VarDoc:Variant;
begin
  VarWord:=CreateOleObject('word.Application');
  VarWord.Visible :=True;
  VarWord.Activate ;
  VarDoc:=VarWord.documents.Add('c:\test.dot');
  VarWord.selection.find.clearformatting;
  VarWord.selection.find.execute('[Month]',True,True,False,False,False,True,wdFindStop,False,Edit1.Text,wdReplaceAll);
  VarWord.selection.find.execute('[Day]',True,True,False,False,False,True,wdFindStop,False,Edit2.Text,wdReplaceAll);
  VarWord.selection.find.execute('[Team1]',True,True,False,False,False,True,wdFindStop,False,Edit3.Text,wdReplaceAll);
  VarWord.selection.find.execute('[Team2]',True,True,False,False,False,True,wdFindStop,False,Edit4.Text,wdReplaceAll);
  VarWord.selection.find.execute('[Adress]',True,True,False,False,False,True,wdFindStop,False,Edit5.Text,wdReplaceAll);
  edit1.text:='';
  edit2.text:='';
  edit3.text:='';
  edit4.text:='';
  edit5.text:='';
end;end.

Answer 2

建议你还是去找找office函数,都是关于对word的操作,肯定有用,就象我上面用的find函数就是掉用它的.

Answer 3

如果不是复杂的Word文档
你可以使用RichEdit来调入（支持.rtf）格式。然后再操作RichEdit的.Text属性。爱怎么搞你怎么搞:)