国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 編程 > Delphi > 正文

如何在delphi5中實(shí)現(xiàn)對(duì)word文檔頁(yè)眉的設(shè)置?

2019-11-18 18:01:34
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友
 

我這有一個(gè)對(duì)當(dāng)前頁(yè)面的設(shè)置代碼

var  

mmm,nnn,aaa:OleVariant;

begin

    mmm:=wdLine;
    nnn:=1;
    aaa:=wdFieldPage;
    WordApp.ActiveWindow.ActivePane.View.SeekView :=wdSeekCurrentPageHeader ;
    WordApp.Selection.Move(mmm,nnn);
    WordApp.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;

    WordApp.Selection.InsertAfter('第');
    mmm:=wdCharacter;
    WordApp.Selection.Move(mmm,nnn);
    WordApp.Selection.Fields.Add(WordApp.Selection.Range,aaa,mmm,nnn);
    aaa:=wdFieldNumPages;
    WordApp.Selection.InsertAfter('頁(yè)/第');
    WordApp.Selection.Move(mmm,nnn);
    WordApp.Selection.Fields.Add(WordApp.Selection.Range,aaa,mmm,nnn);

    WordApp.Selection.InsertAfter('頁(yè)');
    WordApp.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;

end;

可是只能修改第一頁(yè)的,怎么修改后面的頁(yè)面的頁(yè)眉?


上一篇:Delphi中實(shí)現(xiàn)可以更改大小的對(duì)話框

下一篇:Delphi操作Wrod的幾個(gè)知識(shí)點(diǎn)

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
學(xué)習(xí)交流
熱門(mén)圖片

新聞熱點(diǎn)

疑難解答

圖片精選

網(wǎng)友關(guān)注

主站蜘蛛池模板: 威海市| 大埔县| 翼城县| 全州县| 棋牌| 措美县| 凤庆县| 肥东县| 宽甸| 台州市| 称多县| 宁蒗| 绥中县| 高唐县| 沅江市| 德保县| 开封县| 海口市| 公主岭市| 德安县| 湖南省| 临沂市| 阿克| 丹棱县| 五莲县| 靖远县| 元谋县| 都江堰市| 汉源县| 乌兰察布市| 清流县| 泸西县| 赫章县| 衡水市| 青田县| 高阳县| 大理市| 南安市| 奎屯市| 玉林市| 瓦房店市|