如何在delphi5中实现对word文档页眉的设置?

2016-02-19 19:32 39 1 收藏

生活已是百般艰难,为何不努力一点。下面图老师就给大家分享如何在delphi5中实现对word文档页眉的设置?,希望可以让热爱学习的朋友们体会到设计的小小的乐趣。

【 tulaoshi.com - 编程语言 】

 

  我这有一个对当前页面的设置代码

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  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;

  

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

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

来源:http://www.tulaoshi.com/n/20160219/1621252.html

延伸阅读
标签: word
Word2013文档中设置页眉或页脚样式的方法   第1步,打开Word2013文档窗口,切换到插入功能区。在页眉和页脚区域单击页眉或页脚按钮,如图1所示。 图1 单击页脚按钮 第2步,在打开的页眉或页脚样式列表中选择合适的页眉或页脚样式,即可用所选择的页眉或页脚样式替换空白页眉或页脚样式,如图2所示。 图2 选择合...
标签: 办公软件
在Word文档中,可以很方便地为文档设置页眉和页脚,使其更加规范和醒目,下面以word2000为例,谈谈如何为Word文档设置页眉和页脚。 1、 从【视图】菜单中选择【页眉和页脚】命令如下图: 2、 将显示"页眉"框和"页眉/页脚"工具栏。光标指向工具栏上的图标,将显示其功能。如下图 3、 在插入自动图文集中,插入图形其操作和插入...
标签: 办公软件
        最近,学校要迎接一项评估,需要上交的自评报告除了封面目录、正文以外,还有一份十多页的附录。在准备打印装订的时候,发现有些麻烦:首先是页眉,封面和目录不能有页眉;正文部分要求奇数页和偶数页的页眉不同;而附录部分的页眉与正文中的又有不同。其次是页脚,页脚中的页码和正文不同。当然封...
标签: word
如何编辑Word2013文档中的页眉和页脚   第1步,打开Word2013文档窗口,切换到插入功能区。在页眉和页脚分组中单击页眉或页脚按钮,如图1所示。 图1 单击页眉按钮 第2步,在打开的页眉面板中单击编辑页眉按钮,如图2所示。 图2 单击编辑页眉按钮 第3步,用户可以在页眉或页脚区域输入文本内容,还可以在打开...
标签: word
Word一个文档中设置不同的页眉的方法 如何在一个Word文档中设置不同的页眉?有的朋友说:太简单了,不就是打开文件/页面设置,再单击版式选项卡,勾选其中的奇偶页不同。如果希望第一页不一样,也可以勾选其中的首页不同,就可以实现设置不同的页眉。 但是,如果一个长篇文档需要根据文档内容呈现十几个不同的页眉,也就是说不同的章...

经验教程

412

收藏

30
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部