批量删除word中的指定章节

duhj999

有多个巡检记录，格式一样，批量删除第4 、10、11章节

Lovertdos

Sub DeleteSections()
    Dim strFolder As String
    Dim strFile As String
    Dim doc As Document
   
    ' 设置文件夹路径
    strFolder = "您的文件夹路径"
   
    ' 遍历文件夹中的每个文档
    strFile = Dir(strFolder & "\*.docx")
    Do While strFile <> ""
        ' 打开文档
        Set doc = Documents.Open(strFolder & "\" & strFile)
        
        ' 删除第4、10和11项内容
        doc.Sections(4).Range.Delete
        doc.Sections(9).Range.Delete
        doc.Sections(9).Range.Delete
        
        ' 保存并关闭文档
        doc.Save
        doc.Close
        
        ' 继续下一个文档
        strFile = Dir
    Loop
   
    MsgBox "删除完成！"
End Sub