我试了代码中item(2)处的各种情况,总是有问题。现在贴在下面的代码运行提示:集合所要求的成员不存在!我把带*号的行屏蔽掉,能出来两条直线了,就是第二条线的前端多出一条竖线!其实,我就想在文档不同的位置插入横线,大家帮帮忙!! WordApplication1.Connect;
WordApplication1.Visible := True;
WordApplication1.Documents.Add(EmptyParam, EmptyParam);
WordDocument1.Connect;
WordApplication1.ActiveWindow.View.Type_ := wdPageView; WordApplication1.Selection.TypeParagraph; //回车
WordParagraphFormat1.ConnectTo(WordApplication1.Selection.Paragraphs.item(1).Format);
WordParagraphFormat1.Borders.Item(1).LineStyle := wdLineStyleSingle; //画单水平线 WordApplication1.Selection.TypeParagraph; //回车
*WordParagraphFormat1.ConnectTo(WordApplication1.Selection.Paragraphs.item(2).Format);
WordParagraphFormat1.Borders.Item(2).LineStyle := wdLineStyleSingle; //画单水平线
WordApplication1.Visible := True;
WordApplication1.Documents.Add(EmptyParam, EmptyParam);
WordDocument1.Connect;
WordApplication1.ActiveWindow.View.Type_ := wdPageView; WordApplication1.Selection.TypeParagraph; //回车
WordParagraphFormat1.ConnectTo(WordApplication1.Selection.Paragraphs.item(1).Format);
WordParagraphFormat1.Borders.Item(1).LineStyle := wdLineStyleSingle; //画单水平线 WordApplication1.Selection.TypeParagraph; //回车
*WordParagraphFormat1.ConnectTo(WordApplication1.Selection.Paragraphs.item(2).Format);
WordParagraphFormat1.Borders.Item(2).LineStyle := wdLineStyleSingle; //画单水平线
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货