uses
ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
vWord,vDoc : OleVariant;
begin
vWord := CreateOleObject('Word.Application');
vWord.Visible := True;
vDoc := vWord.Documents.Open('E:/Tool/Tmp.doc');
vDoc.Shapes.AddLine(90, 72, 171, 87.6);//这里面就是你的画线的部分内容
end;
