2021-11-09 19:47:43
今天边肖接到任务，老板不知道从哪里弄来一些文件(Word格式的有几百个)，但是这些文件的页眉页脚都有LOGO，所以老板给我安排了一个任务，把这些页眉页脚去掉。
看到这么多，我就生气。这不是欺负我工资低。这是一个重复的工作，不需要任何技术内容，但我真的想一个一个删除。估计是视力模糊，四肢麻木.边肖虽然学识不深，但我也听说过一个叫VBA的东东.
于是，边肖开始研究，是的，中文可以翻译成研究,但是边肖其实是re-search,哈哈；于是我找到了下面的代码，不用调试就可以直接使用。
使用方法
1.随意新建一个Word文件，按Alt F11进入VBA编辑器。
2.粘贴以下代码
VBA编辑
3.单击上面的绿色按钮运行。
4.选择要删除页眉页脚的文件(可以批量选择)，然后等待播放。
5.完成它；
6、假装继续手动删除页眉页脚，然后就可以在这里耍两天了
附代码如下：
批量子删除页眉和页脚()
此代码的功能是列出指定文件夹中所有选定WORD文件的完整路径名。
将我的对话框作为文件对话框、作为文档打开、作为部分打开
作为变体的范围，作为范围的范围
出错时继续下一步
定义文件夹选择对话框。
设置我的对话=应用程序。文件对话框
使用我的对话。过滤器。“清除”清除所有文件过滤器中的项目。过滤器。添加“所有Word文件”，“*”。医生。docx '，1 '要添加筛选器的项目都是Word文件。“允许多重选择=真”允许多重选择。
如果。显示=-1然后“好”
每一分钟。“选择编辑”循环显示所有选定的项目。
设置oDoc=Word。文档。打开(文件名：=文件，可见性：=假)
在文档的“每个oSec In oDoc”部分循环。部分
设置myRange=oSec。标头(wdHeaderFooterPrimary)。范围
我的天使。“删除”删除标题中的内容。
我的天使。paragraph format . borders(wdborderbotom)。线条样式=wdlinestyleone '段落底部边框线
设置myRange=oSec。页脚(wdHeaderFooterPrimary)。范围
我的天使。“删除”删除页脚中的内容。
然后
oDoc。关闭真
然后
如果…就会结束
以…结尾
末端接头
