如何删除多个word文件中相同的内容

mooncake403

小弟，有几十个word文件，现在要将里面相同的内容0.35mm都删掉，不知道有没有批量删除的方法，先谢了！

szqhb

将要替换的内容复制一份到一个文件夹内，用下面的附件试一试

[ 本帖最后由 szqhb 于 2011-1-15 20:12 编辑 ]

chqyz

查找ctrl+h   0.35mm  替换为空，全部替换就可以了

acecrazy

直接用替换就好了，这个是最简单有效的方法。
如果是多个文件的话，就要用上VBA了。

acecrazy

2楼的V，我贴出来。用起来应该没有问题。

1. Private Sub CommandButton1_Click()
   
2. Dim MyDialog As FileDialog, GetStr(1 To 100) As String    '100是我当时工作时的文档数
   
3. On Error Resume Next
   
4. Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
   
5. With MyDialog
   
6.     .Filters.Clear
   
7.     .Filters.Add "所有WORD文件", "*.doc", 1
   
8.     .AllowMultiSelect = True
   
9.     i = 1
   
10.     If .Show = -1 Then
    
11.         For Each stiSelectedItem In .SelectedItems
    
12.             GetStr(i) = stiSelectedItem
    
13.             i = i + 1
    
14.         Next
    
15.         i = i - 1
    
16.     End If
    
17.    
    
18.     Application.ScreenUpdating = False
    
19.     For j = 1 To i Step 1
    
20.         Set Doc = Documents.Open(FileName:=GetStr(j), Visible:=True)
    
21.         Windows(GetStr(j)).Activate
    
22. 
    
23. Selection.Find.ClearFormatting
    
24.     Selection.Find.Replacement.ClearFormatting
    
25.     With Selection.Find
    
26.         .Text = "^g"
    
27.         .Replacement.Text = ""
    
28.         .Forward = True
    
29.         .Wrap = wdFindContinue
    
30.         .Format = False
    
31.         .MatchCase = False
    
32.         .MatchWholeWord = False
    
33.         .MatchByte = True
    
34.         .MatchWildcards = False
    
35.         .MatchSoundsLike = False
    
36.         .MatchAllWordForms = False
    
37.     End With
    
38.     Selection.Find.Execute Replace:=wdReplaceAll
    
39. 
    
40. Application.Run macroname:="Macro1"
    
41.         ActiveDocument.Save
    
42.         ActiveWindow.Close
    
43.     Next
    
44.     Application.ScreenUpdating = True
    
45. End With
    
46.     MsgBox "批量删除图片完毕!请查看！！", vbInformation   ‘建议这里的字可以改一下
    
47. End Sub
    

复制代码

mooncake403

非常感谢几位高手的指教，可是小弟VBA不懂，都看不懂什么意思！
看来有空是要学点VBA了，哎~~~~

szqhb

要用这段代码，放在模块中运行，附件已重新更新了
Sub 批量对Word操作()
Dim MyDialog As FileDialog, GetStr(1 To 100) As String    '100是工作时最多的文档数
On Error Resume Next
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
With MyDialog
    .Filters.Clear
    .Filters.Add "所有WORD文件", "*.doc", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
   
    Application.ScreenUpdating = False
    For j = 1 To i Step 1
        Set Doc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate

'以下是替换录制的宏
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "0.35mm" '要查找的内容
        .Replacement.Text = "" '要替换的内容
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
'以上是录制的宏
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
    MsgBox "批量排版完毕!请查看！！", vbInformation
End Sub

[ 本帖最后由 szqhb 于 2011-1-15 20:09 编辑 ]

龙城飞将III

for each 取得多选文件的值 学习了！