批量处理页眉页脚好工具

百佳

今天有一个难题：需要批量处理一大堆word文档的页眉页脚，习惯性来excehome论坛，没有得到比较满意的结果，百度，发现解决方法有三：
1、vba代码，
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 '删除页脚中的内容
                Next
                oDoc.Close True
            Next
        End If
    End With
End Sub

使用后，也还行
2、wordset软件
这个感觉功能跟上面的代码差不多，但是不用打开word，拖拽就行，

wordset.zip (116.05 KB, 下载次数: 46)

2021-7-27 13:51 上传

点击文件名下载附件

3、如果家里有米，慧办公不错，55元/台电脑。

http://www.hbg666.com/
网上没有找到破解版

百佳

这个也是需要收藏的
word vba 批量设置格式 页码等-Word-ExcelHome技术论坛 -
http://club.excelhome.net/thread-647182-1-1.html?_dsign=b637d094