ert11569etg 2014-08-21 11:09
浏览 1359

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后,再打开后,会发现首页的页眉处会有一条横线,其他页都没有横线的
请问,怎么将该横线去掉啊,我怎么修改代码都不行

  • 写回答

0条回答 默认 最新

    报告相同问题?

    悬赏问题

    • ¥15 如何在scanpy上做差异基因和通路富集?
    • ¥20 关于#硬件工程#的问题,请各位专家解答!
    • ¥15 关于#matlab#的问题:期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707,使系统具有较小的超调量
    • ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
    • ¥30 截图中的mathematics程序转换成matlab
    • ¥15 动力学代码报错,维度不匹配
    • ¥15 Power query添加列问题
    • ¥50 Kubernetes&Fission&Eleasticsearch
    • ¥15 報錯:Person is not mapped,如何解決?
    • ¥15 c++头文件不能识别CDialog