批量word删除页眉页脚——VBS脚本，在office宏中运行即可

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 '清除所有文件筛选器中的项目

.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 '删除页脚中的内容

oDoc.Close True

End If

End With

End Sub

批量word删除页眉页脚——VBS脚本，在office宏中运行即可相关推荐

批量删除PPT第一页最后页——VBS脚本，在office宏中运行即可
批量删除PPT第一页最后页--VBS脚本,在office宏中运行即可 Sub 批量删除第一页最后页() Dim ChangedCount As Integer Dim FileName As Stri ...
indesign选中不了图片删除_有办法了！批量删除多个Word页眉页脚
在实际工作中,我们时常需要添加页眉页脚,那如果不需要,该如何删除呢?怎样批量删除多个文档的页眉页脚呢?本期Word妹与大家分享相应的技巧. 1.删除单个文档的页眉页脚双击页眉处,进入编辑状态,然后选 ...
word关闭时卡死_word页眉处理技巧：用VBA快速删除批量页眉页脚
编按:一篇长文档,假设有1000页,大家是否想过如何快速批量删除这个文档中的所有页眉页脚?如果有想过,那你会用什么方法删除它呢?带着这个问题,我们挖掘到了一个几乎不为人知的Word页眉页脚批量处理技巧 ...
C# 操作Word页眉页脚——奇偶页/首页不同、不连续设置页码、复制页眉页脚、锁定页眉页脚、删除页眉...
序本文是对Word页眉页脚的操作方法的进一步的阐述.在"C# 添加Word页眉页脚.页码"一文中,介绍了添加简单页眉页脚的方法,该文中的方法可满足于大多数的页眉页脚添加要求,但 ...
VBA中关于WORD的基本应用比如批量改页眉页脚，从文件名取数字作为页眉等等。
VBA中关于WORD的基本应用比如批量改页眉页脚,从文件名取数字作为页眉等等. 以下是代码,直接在Word的VBA编辑器里粘贴上去就OK了. Sub 批量转PDF() Dim i As Varian ...
批量修改html文件内容,批量修改word文件内容批量修改WORD文件的页眉页脚
批量修改多个Word文档内容同时批量修改多个word文档步骤1把要批量修改的文档都放在同一个文件夹中同时批量修改多个word文档步骤2在修改前,先确定多个word文档文件要被修改的内容如小小要修改的 ...
python 操作word页眉表格_python批量设置多个Excel文件页眉页脚的脚本
本文实例为大家分享了python批量设置多个Excel文件页眉页脚的具体代码,供大家参考,具体内容如下 import os import openpyxl from openpyxl.workshee ...
word里去掉页眉页脚内无法删除的灰色直线（一个快捷键完美解决）
做文档时首页的页眉页脚已经删除了,可还是存在一条灰色的线,怎么也删不掉,做成pdf.打印都会带着. 解决办法很简单: ctrl + shift +v 一下子就没了
lsdyna如何设置set中的node_list_牛逼~新来的同事，100 页Word页眉页脚设置只需5秒！成功征服老板！...
老板让你设置文档的页眉页脚或删除页眉页脚,结果你花了半天时间才搞定,而且稍微有修改就需要重新来过,而新来的同事,却可以轻松搞定,怎么回事呢?那是因为你不知道这2个高效操作技巧,下面跟着Word妹一同来 ...
多个 Excel 批量设置页眉页脚
概要:给 Word 添加页眉页脚相信大家都很熟悉,但是你有给 Excel 设置过页眉页脚吗?你知道怎么给 Excel 设置页眉页脚吗?如果我们的 Excel 文件很多的时候,你又知道怎么批量的给多个 ...

批量word删除页眉页脚——VBS脚本，在office宏中运行即可

批量word删除页眉页脚——VBS脚本，在office宏中运行即可相关推荐

最新文章

热门文章