摘要： 在职场办公时，我们经常会处理各种Word文档，也总会遇到各种类型的问题。就比如：
快下班时，老板突然交代你，将一份上百页甚至几百页的策划书中的所有页眉和页脚全部删除，下班之前就要。
遇到这样的情况，真的要满头黑线了吧……
怎么办？想必大多数人都是打开文档，认认真真的挨个手动删除。
就像这样……
上图中这类采用了分节符，把每页或每章节分隔开单独设置了不同的页眉页脚，你若还在手动删除它们，要删到猴年马月？只怕到最后留在公司加班的只剩你了，那时，你的耐心也被消磨完了吧！
本文就教大家一招，只用3步就帮你解决这个问题！
操作方法：
1. 打开Word，新建一个空白Word文档，按Alt F11组合键，打开VBA编辑器。
2. 然后将下面的代码复制粘贴到窗口中。点击上方的“运行子过程/用户窗体（F5）”绿色三角形按钮，运行代码。
Sub 批量删除页眉页脚()
‘此代码功能为列出指定文件夹中所有选取的WORD文件全路径名
Dim myDialog As FileDialog, oDoc As Document, oSec As Section
Dim oFile As Variant, myRange As Range
On Error Resume Next
‘定义一个文件夹选取对话框
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)
With myDialog
.Filters.Clear ‘清除所有文件筛选器中的项目
怎么快速的做好word文档
我身边不少朋友，已经陆陆续续复工了。 很多人又要开始愁眉苦脸，因为总免不了处理各种新的数据，做表、做PPT汇报工作。 今天，就为大家推荐一款有点惊艳的小工具，保证瞬间让你找到开挂的感觉！ 在这之前，先跟大家分享一个真实的小故事。虽不如宫斗剧离奇，却因现实而扎心。 “每天拼命加班， 升职加薪的却是别人。” 上
.Filters.Add “所有Word文件”, “*.doc,*.docx”, 1 ‘增加筛选器的项目为所有Word文件
.AllowMultiSelect = True ‘允许多项选择
If .Show = -1 Then ‘确定
For Each oFile In .SelectedItems ‘在所有选取项目中循环
Set oDoc = Word.Documents.Open(FileName:=oFile, Visible:=False)
For Each oSec In oDoc.Sections ‘文档的节中循环
Set myRange = oSec.Headers(wdHeaderFooterPrimary).Range
myRange.Delete ‘删除页眉中的内容
myRange.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone ‘段落下边框线
Set myRange = oSec.Footers(wdHeaderFooterPrimary).Range
myRange.Delete ‘删除页脚中的内容
Next
oDoc.Close True
Next
End If
End With
End Sub
3. 此时，将弹出“浏览”对话框，选择要删除页眉页脚的Word文档，然后点击“打开”按钮。
关闭所有窗口，再次打开刚刚被处理的Word文档，即可发现，文档中的所有页眉页脚都全部删除啦！
就是这么简单，搞定！交给老板，准时下班！
Word文档最后一页空白页删除不了怎么解决
Word文档最后一页空白页删除不了怎么解决？有用户发现在网上下载的Word文档打开后，最后会多出一页什么都没有的空白页，而且无法删除。如果我们想要去掉这个多余的空白页，应该怎么解决?其实这个问题是比较好解决的，对此，不妨根据接下来介绍的方法步骤，看看能否解决这一问题。 1、点击菜单栏的“布局”; 2、点击页面设置，
