读书人

VFP+WORD: 怎么判断文档是否插入了页码

发布时间: 2012-03-22 17:43:57 作者: rapoo

VFP+WORD: 如何判断文档是否插入了页码及页码的样式
VFP+WORD: 如何判断文档是否插入了页码及页码的样式
最后面是我插入页码(居中、小写字母、位置在页码、首码显示)时产生的代码
其中最令我不解的是我插入页码在页脚,为什么代码中有Header(1)字样?Header不是页眉么?和它有什么关系?

我的核心问题是:
1.为什么会有Header(1)
2.求代码用“?命令”显示出一个文档中的页码设置情况(包括是否有插入页码,是在眉还是脚,是数字或什么其它类型,居中居左还是居右等)
可以设文档对象变量为wole
Sub Macro7()
'
' Macro7 Macro
' 宏在 2011-2-25 由 微软用户 录制
'
With Selection.Sections(1).Headers(1).PageNumbers
.NumberStyle = wdPageNumberStyleLowercaseLetter
.HeadingLevelForChapter = 0
.IncludeChapterNumber = False
.ChapterPageSeparator = wdSeparatorHyphen
.RestartNumberingAtSection = False
.StartingNumber = 0
End With
Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberCenter, FirstPage:=True
End Sub

[解决办法]

引用Headers 属性
参阅参阅参阅参阅返回 HeadersFooters 集合,该集合代表了指定节的页眉。只读。

有关返回集合中单个成员的内容,请参阅返回集合中的对象。

说明
若要返回代表了指定节的页脚的 HeadersFooters 集合,可使用 Footers 属性。

示例
本示例为活动文档中除首页之外的每页添加居中的页码(为首页创建一个独立的页眉)。

With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
.PageNumbers.Add _
PageNumberAlignment:=wdAlignPageNumberCenter, _
FirstPage:=False
End With

本示例将向活动文档首页页眉添加文本。

ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True
With ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage)
.Range.InsertAfter("First Page Text")
.Range.Paragraphs.Alignment = wdAlignParagraphRight
End With


[解决办法]
引用WdHeaderFooterIndex

常量 值
wdHeaderFooterEvenPages 3
wdHeaderFooterFirstPage 2
wdHeaderFooterPrimary 1


[解决办法]
用 Headers(index) 或 Footers(index) 可返回单个的 HeaderFooter 对象,其中的 index 是 WdHeaderFooterIndex 常量(wdHeaderFooterEvenPages、wdHeaderFooterFirstPage、或 wdHeaderFooterPrimary)之一。下列示例更改活动文档第一节的基本页眉和基本页脚中的文字。

wdHeaderFooterPrimary = 1

2、
判断
.NumberStyle 、HeadingLevelForChapter 、IncludeChapterNumber
中的值即可

读书人网 >VFP

热点推荐