批量删除WORD表格中含关键字的一行

wudixin96

goodluck1234 发表于 2011-11-7 14:12
呵呵，谢谢老师。已经搞定了，是我刚才没有把代码前的序号去掉。但是能不能在最后弹出的“处理完成”的那 ...

可以的，不过你说修改的个数是指文件的个数吗？

sqhsqhli

我知道vba里用代码。还不知道用vbs，请教 wudixin96介绍一二。

wudixin96

WINDOWS下，除了批处理脚本之外，默认还有VBS及JS两种脚本是可以直接用记事本编辑就可以运行的。

tangqingfu

关注ing……

goodluck1234

wudixin96 发表于 2011-11-7 14:45
可以的，不过你说修改的个数是指文件的个数吗？

恩，是的老师，表如文件夹中总共有十个文档，其中有两个文档是含“我”字的表，其他的文档没有，因为不是现在删除了含“我”字的行了嘛，就显示执行删除这个动作的文档的个数与文档的名字，谢谢老师，辛苦了。

wudixin96

[code=vb]Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("wscript.shell")
Set f = fso.GetFolder(".")
Set fc = f.Files
p = ws.currentdirectory
If fso.folderexists("new") Then fso.deletefolder (p & "\new")
fso.createfolder (p & "\new")
Set wd = CreateObject("word.application")
n = 0
Str = ""
For Each f1 In fc
    i = 0: s = ""
    If LCase(Right(f1.Name, 3)) = "doc" Then
        Set wdoc = wd.documents.Open(p & "\" & f1.Name)
        wd.Visible = True
        For Each t In wdoc.tables
            For Each c In t.Range.Cells
                If InStr(c.Range.Text, "我") > 0 Then
                    t.Rows(c.RowIndex).Delete
                    i = 1
                    s = wdoc.Name
                End If
            Next
        Next
        If i = 1 Then
            n = n + i
            Str = Str & vbCrLf & s
        End If
        wdoc.SaveAs p & "\new\" & f1.Name
        wdoc.Close
    End If
Next
wd.Quit
Set wdoc = Nothing
Set wd = Nothing
MsgBox "处理完成,共修改" & n & "个文件，文件名下如：" & Str[/code]

goodluck1234

wudixin96 发表于 2011-11-8 09:06

谢谢老师，但是好像显示的修改文档的个数不对，应该显示修改的文件数为3，修改的文件名为1.doc\2.doc\3.doc但是现在的显示是修改的文档数为4，文件名1.doc\2.doc\2.doc\3.doc。详见附件

wudixin96

现在再试下吧

goodluck1234

wudixin96 发表于 2011-11-8 12:16
现在再试下吧

恩，彻底搞定了，太感谢老师了。辛苦了。

goodluck1234

wudixin96 发表于 2011-11-14 19:25
原理没问题，只是你自己把IF少打了

谢谢wudixin96老师，是我少加了一个IF .另外如果我的文件夹中有2007的文档与2003的文档同时存在时，只会对2003文档做相关的处理。请问如果我想对文件夹里的03与07文档同时做处理我需要怎样做呢？