基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：78630559

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

一键删除word文档中的页眉页脚信息

    '遍历文档的所有节
    Dim section As section
    For Each section In doc.Sections
        '删除页眉
        Call DeleteHeaderFooter(section.Headers(wdHeaderFooterFirstPage))
        Call DeleteHeaderFooter(section.Headers(wdHeaderFooterPrimary))
        Call DeleteHeaderFooter(section.Headers(wdHeaderFooterEvenPages))
        
        '删除页脚
        Call DeleteHeaderFooter(section.Footers(wdHeaderFooterFirstPage))
        Call DeleteHeaderFooter(section.Footers(wdHeaderFooterPrimary))
        Call DeleteHeaderFooter(section.Footers(wdHeaderFooterEvenPages))