如何在下列代码中加入代码关闭页眉和页脚，请高手赐教，万分感谢！！！
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("页")

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

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

@xuminxz 非常感谢指点！！！加上这一句代码也不起作用。

@xuminxz 再次感谢不厌其烦的指导！！！