如何在delphi5中实现对word文档页眉的设置?
2005-04-09 10:36
302 查看
我这有一个对当前页面的设置代码
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;
可是只能修改第一页的,怎么修改后面的页面的页眉?
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;
可是只能修改第一页的,怎么修改后面的页面的页眉?
相关文章推荐
- WORD里,如何在同一个文档中为不同页面,设置不同的页眉和页脚
- Word文档如何实现单页横向设置
- C# 如何给Word文档第一页设置不同的页眉和页脚
- 用word2010英文版如何为同一篇word文档设置多个不同的页眉页脚页码
- kindeditor粘贴word文档内容时去除格式的方法?如何设置为默认无文本格式呢?
- 结合eventHanlder和openXMl 实现上传word文档加页眉,页脚
- Word2016中如何设置前几页不要页眉?文档快速‘另起一页’(毕业论文中常见问题)
- word文档中如何删除页眉和页脚
- asp.net如何实现word文档在线预览
- 通过 poi 设置 word 文档 表格内容样式和 页眉页脚样式
- 如何实现将Word文档转换为PDF格式
- Word术语A4(210×297)上、下3.8cm,左、右3.2cm,页眉、页脚3.0cm如何在LaTeX中设置
- 同一篇Word文档设置多个不同的页眉页脚
- C# 如何给Word文档添加超链接及设置超链接的样式
- 安卓开发调用第三方应用(如WPS)打开文档(比如Word),如何设置文件只读,不能被修改?
- word文档设置页眉页脚的技巧
- PageOffice如何实现从零开始动态生成图文并茂的Word文档
- Word文档转图片如何实现
- 如何使WORD文档的页眉不相同
- 给同一篇Word文档设置多个不同的页眉页脚