注册 登录
编程论坛 VFP论坛

VFP如何控制WORD关闭页眉和页脚

王咸美 发布于 2021-05-27 16:59, 1678 次点击
只有本站会员才能查看附件,请 登录

如何在下列代码中加入代码关闭页眉和页脚,请高手赐教,万分感谢!!!
wdrs.ActiveDocument.PageSetup.HeaderDistance=16.0*2.835
wdrs.ActiveDocument.PageSetup.FooterDistance=16.0*2.835   &&页脚位置
* mydate=subst(dtos(date()),1,4)+"年"+subst(dtos(date()),5,2)+;
* "月"+subst(dtos(date()),7,2)+"日"
* wdrs.Documents(1).Sections(1).Headers(1).Range.Text="制表日期: ;
* "+mydate+" "         
wdrs.Documents(1).Sections(1).Headers(1).Range.Paragraphs.Alignment=2            && 页眉右齐
wdrs.Documents(1).Sections(1).Footers(1).Range.Paragraphs.Alignment=1            && 页脚居中
wdrs.Documents(1).Sections(1).Footers(1).Range.Select
wdrs.Selection.Font.Size=12
wdrs.Selection.InsertAfter("第")
wdrs.Selection.Start =wdrs.Selection.End
wdrs.Selection.InsertFormula("PAGE")
wdrs.Selection.Start =wdrs.Selection.End
wdrs.Selection.InsertBefore("页/共")
wdrs.Selection.Start =wdrs.Selection.End
wdrs.Selection.InsertFormula("NUMPAGES")
wdrs.Selection.Start =wdrs.Selection.End
wdrs.Selection.InsertBefore("页")
6 回复
#2
xuminxz2021-05-27 21:40
wdrs.ActiveDocument.Range(0,1).select
***wdrs.ActiveDocument.Range(0,1).Delete
wdrs.ActiveWindow.ActivePane.View.Type=3
#3
王咸美2021-05-28 12:56
只有本站会员才能查看附件,请 登录

wdrs.ActiveWindow.ActivePane.view.type=3
OLE IDispatch异常代码0 出自Microsoft word:属性或方法在此系统上无效。

[此贴子已经被作者于2021-5-28 13:04编辑过]

#4
xuminxz2021-05-29 12:36
回复 3楼 王咸美
你把这一行漏掉了啊
wdrs.ActiveDocument.Range(0,1).select
#5
王咸美2021-05-29 17:31
@xuminxz 非常感谢指点!!!加上这一句代码也不起作用。
只有本站会员才能查看附件,请 登录
#6
xuminxz2021-05-29 17:50
顺序反了啊,
wdrs.ActiveDocument.Range(0,1).select  &&选择文档正文第一个字符,目的是将焦点从页眉区,移动到正文区。
wdrs.ActiveWindow.ActivePane.View.Type=3  &&设置浏览视图,对页眉、页脚区无效。
wdrs.ActiveDocument.Range(0,1).delete &&删除第一个字符(分页符)

[此贴子已经被作者于2021-5-29 17:54编辑过]

#7
王咸美2021-05-30 07:44
@xuminxz 再次感谢不厌其烦的指导!!!
1