Somebody Help Me!......

Question

如何在Delphi控制生成Word文档时插入一条直线，贯穿整行的一条线以及指定开始结束位置的线段？
高手救命！

Answer 1

在窗体上放置一个TWordApplication组件,名称为WordApplication1；一个TWordDocument组件,名称为WordDocument1;一个TWordParagraphFormat组件,名称为WordParagraphFormat；procedure TForm1.Button1Click(Sender: TObject);
begin
WordApplication1.Connect;
WordDocument1.ConnectTo(WordApplication1.Documents.Add(EmptyParam, EmptyParam,EmptyParam, EmptyParam));
WordApplication1.Visible := True;//显示word文档
WordApplication1.Selection.TypeText('这是一条直线');
WordApplication1.Selection.TypeParagraph;
WordParagraphFormat1.ConnectTo(WordApplication1.Selection.Paragraphs.item(1).Format);
WordParagraphFormat1.Borders.Item(1).LineStyle:=wdLineStyleSingle;//画底线
end;

Answer 2

先多谢金龟子！
可是为什么只能画一条线啊？我要在文档中好几个位置画直线，怎么搞？谢谢，在线等待ing......

Answer 3

最后两个语句中的item(i)中i的作用是控制段落，不是在所有地方都用1，如果是第2个段落，就是item(2)。