如何在下列代码中加入代码关闭页眉和页脚，请高手赐教，万分感谢！！！
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.ActiveDocument.Range(0,1).select
***wdrs.ActiveDocument.Range(0,1).Delete
wdrs.ActiveWindow.ActivePane.View.Type=3

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

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

你把这一行漏掉了啊
wdrs.ActiveDocument.Range(0,1).select

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

顺序反了啊，
wdrs.ActiveDocument.Range(0,1).select  &&选择文档正文第一个字符，目的是将焦点从页眉区，移动到正文区。
wdrs.ActiveWindow.ActivePane.View.Type=3  &&设置浏览视图，对页眉、页脚区无效。
wdrs.ActiveDocument.Range(0,1).delete &&删除第一个字符（分页符）

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

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