《Word教程：word删除页眉页脚批量操作5秒搞定！.docx》由会员分享，可在线阅读，更多相关《Word教程：word删除页眉页脚批量操作5秒搞定！.docx（4页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、在职场办公时,我们经常会处理各种Word文档，也总会遇到各种类型 的问题。就比方：快下班时，老板突然交代你，将一份上百页甚至几百页的筹划书中的所有页眉和页脚全部删除，下班之前就要。遇到这样的情况，真的要满头黑线了吧怎么办？想必大多数人都是翻开文档，认认真真的挨个手动删除。就像这样上图中这类采用了分节符，把每页或每章节分隔开单独设置了不同的页 眉页脚，你假设还在手动删除它们，要删到猴年马月？只怕到最后留在公 司加班的只剩你了，那时，你的耐心也被消磨完了吧！本文就教大家一 招，只用3步就帮你解决这个问题！操作方法：1 .翻开Word ,新建一个空白Word文档，按Alt + F11组合键，翻开 V
2、BA编辑器。2 .然后将下面的代码复制粘贴到窗口中。点击上方的运行子过程/用户 窗体（F5 ）绿色三角形按钮，运行代码。Sub批量删除页眉页脚（）此代码功能为列出指定文件夹中所有选取的WORD文件全路径名Dim myDialog As FileDialogj oDoc As DocumentoSec As SectionDim oFile As VariantmyRange As Range On Error Resume Next 定义一个文件夹选取对话框 Set myDialog =Application.FileDialog(msoFileDialogFilePicker) With m
3、yDialog. Filters.Clear 清除所有文件筛选器中的项i.Filters.Add ” 所有 Word 文件 *. doc, *. docx，1 增加筛选器 的工程为所有Word文件.AllowMultiSelect = True 1 允许多项选择 If . Show = -1 Then 确定 For Each oFile In .Selectedltems 1在所有选取工程中循环 Set oDoc = Word.Documents.Open(FileName:=oFile? Visible:=False) For Each oSec In oDoc . Sections 文档的
4、节中循环 Set myRange = oSec.Headers(wdHeaderFooterPrimary).Range myRange.Delete 1删除页眉中的内容 myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone 1段落下边框线 Set myRange = oSec.Footers(wdHeaderFooterPrimary).Range myRange.Delete 1删除页脚中的内容 Next oDoc.Close True Next End If End With End Sub.此时，将弹出浏览对话框，选择要删除页眉页脚的Word文档，然后点击翻开按钮。开始插入设计布局引用蹴南网视网开发1帮助料色B 18听PQ 告诉我 只共享De图 硼 y9515 0家体五号5“囚B I u - xt x: 公唆，A , Aa Kt： A (5)打rsI 2 /2408 10 12 14 10 18三三三三旨三。鱼,至，犬，却2O22 24 2G283O32MC I奖1页,共1页 0个字 中文（中国） 信入 茴 75%关闭所有窗口，再次翻开刚刚被处理的Word文档，即可发现，文档中的所有页眉页脚都全部删除啦!就是这么简单，搞定！交给老板，准时下班!