请教各位大神，如何利用宏的方法，批量删除文档无用的内容？attachment

相见是缘8

aizai2006nian 发表于 2018-3-27 09:22
大神：
      有几个问题想再求教一下。
      一、“-->”前面为什么要加入英文空格。

一、“-->”前面为什么要加入英文空格。（减少替换步骤）
二、“使用通配符”内输入“[0-9]”就能把所有数字都替换？（是的）
三、第四步输入“^p,,”是替换什么的？（段落符后2个英文逗号）
四、第六步输入,{1,}是替换什么的？（一个以上的英文逗号）
五、第七步输入“ {1,}”是替换什么的？（一个以上的英文空格）

413191246se

Sub aaaa删除无用数据()
'循环遍历段落（删除所有不包含 chs/eng 段落）
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If Not (i.Range Like "*chs*" Or i.Range Like "*eng*") Then i.Range.Delete
    Next
'全部替换
    ActiveDocument.Content.Find.Execute "(*,,*,,*,,)(*^13)", , , 1, , , , , , "\2", 2
'显示结果
    MsgBox "处理完毕！！！！！！！！！！！！", 0 + 48
End Sub

413191246se

1. Sub aaaa删除无用数据()
   
2. '循环遍历段落（删除所有不包含 chs/eng 段落）
   
3.     Dim i As Paragraph
   
4.     For Each i In ActiveDocument.Paragraphs
   
5.         If Not (i.Range Like "*chs*" Or i.Range Like "*eng*") Then i.Range.Delete
   
6.     Next
   
7. '全部替换
   
8.     ActiveDocument.Content.Find.Execute "(*,,*,,*,,)(*^13)", , , 1, , , , , , "\2", 2
   
9. '显示结果
   
10.     MsgBox "处理完毕！！！！！！！！！！！！", 0 + 48
    
11. End Sub

复制代码

413191246se

请楼主耐心等待一会儿，这个方法处理速度较慢，正则快，杜先生 会。

gbgbxgb

413191246se 发表于 2018-3-27 09:48
请楼主耐心等待一会儿，这个方法处理速度较慢，正则快，杜先生 会。

找到文档内容的规律后代码写起来就简单了：
Sub the_Delete()
    Application.ScreenUpdating = False
    With ActiveDocument.Range.Find
        Do While .Execute("^13[0-9]{1,}^13*0000,0000,,", , , True)
            With .Parent
                .MoveStart wdCharacter, 1
                .Delete
            End With
        Loop
    End With
    Application.ScreenUpdating = True
End Sub

sylun

也可试试如下查找替换代码（使用通配符）：
查找：[0-9]@^13*^13[0-9,]@\*([ceghns]{3})[0,]@,,(*^13)
替换：\1,\2