问题描述

delphi导出word，导出的word中设置页码，若首页不显示页码，首页的页头会出现一条横线

这是具体的代码：

Fdoc.Sections.Item(1).Footers.Item(1).PageNumbers.Add(wdAlignRowCenter,true);
Fdoc.Sections.Item(1).Footers.Item(1).PageNumbers.ShowFirstPageNumber:=false;
//以上两行代码是给所有页页脚处设上页码，再将首页页码不显示的
Fdoc.ActiveWindow.ActivePane.View.SeekView := wdseekcurrentpageheader;
Fword.Selection.ParagraphFormat.Borders.Item(wdBordertop).LineStyle := wdLineStyleNone;
Fword.Selection.ParagraphFormat.Borders.Item(wdBorderbottom).LineStyle := wdLineStyleNone;
Fword.Selection.ParagraphFormat.Borders.Item(wdBorderleft).LineStyle := wdLineStyleNone;
Fword.Selection.ParagraphFormat.Borders.Item(wdBorderright).LineStyle := wdLineStyleNone;
//以上四行是讲所有的页眉的横线去掉不显示的

但是保存完word后，再打开后，会发现首页的页眉处会有一条横线，其他页都没有横线的
请问，怎么将该横线去掉啊，我怎么修改代码都不行