麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Delphi > 正文

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

2019-11-18 18:01:34
字體:
供稿:網(wǎng)友
 

我這有一個對當前頁面的設(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('頁/第');
    WordApp.Selection.Move(mmm,nnn);
    WordApp.Selection.Fields.Add(WordApp.Selection.Range,aaa,mmm,nnn);

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

end;

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


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

下一篇:Delphi操作Wrod的幾個知識點

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
學(xué)習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

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

主站蜘蛛池模板: av电影院在线观看 | 91成人免费在线视频 | 久久久国产精品视频 | 国产三级在线观看a | 91精品国产91久久久久久吃药 | 欧美一级免费在线观看 | 亚洲成人涩涩 | 欧美日韩在线视频一区 | 免费观看的毛片手机视频 | 日韩高清电影 | fc2国产成人免费视频 | 神马顶级推理片免费看 | 日本在线免费观看视频 | 日韩做爰视频免费 | 亚洲va久久久噜噜噜久久男同 | 欧美激情在线播放 | 国产永久免费观看 | 成人免费网站在线观看视频 | 自拍偷拍亚洲图片 | 夜夜b | 日韩在线播放中文字幕 | 久久国产夫妻视频 | 欧美伦理一区二区 | 国产精品久久77777 | 91成人免费视频 | 久久久综合视频 | 性欧美一区 | 蜜桃网在线| 成人免费一区 | 久久国产精品影视 | 羞羞羞网站| 日韩毛片免费观看 | 国产一区二区三区高清 | 欧美级毛片 | 亚洲精品久久久久久下一站 | 色交视频 | 欧产日产国产精品v | 国产一级二级在线播放 | 国产精品av久久久久久久久久 | 成人一级毛片 | 久久久噜噜噜久久熟有声小说 |