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

goodluck1234 · 发表于 2011-11-6 21:33

各位老师好，

在D盘有一个文件夹叫D。在D中有多个个WORD 文件，每个WORD 文件中都有多个表格，现在想删除文件夹D中所有WORD文件中，含“我“这个关键字的的行。（并且每个WORD中的表格的个数不同，表格的行数也不同）请问有这样批处理的软件吗？或者能帮忙写VB 吗？谢谢。详见附件

先谢谢各位老师了。

goodluck1234 · 发表于 2011-11-7 12:02

各位老师，请帮一下忙吧，急啊。谢谢了，感激涕零啊。

kqbt · 发表于 2011-11-7 12:17

如果表格没有合并单元格的话应该不难，如果有合并单元格，我估计会出错。

kqbt · 发表于 2011-11-7 12:23

本帖最后由 kqbt 于 2011-11-7 12:24 编辑

参考如下VBA代码：

Sub DSRS()
'BY Word爱好者Q群[5090217]
Dim wDoc As Document
Dim wRng As Range
Dim wPath As String
Dim i As Integer
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "选择目标文件夹"
If .Show = -1 Then
wPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
With Application.FileSearch
.LookIn = wPath
.FileType = msoFileTypeWordDocuments
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Set wDoc = Documents.Open(FileName:=.FoundFiles(i), Visible:=False)
Set wRng = wDoc.Content
With wRng.Find
.ClearFormatting
.Replacement.ClearFormatting
Do While .Execute(findtext:="我", MatchWildcards:=False)
If wRng.Information(wdWithInTable) Then
wRng.Rows.Delete
End If
Loop
End With
wDoc.Close True
Next
End If
End With
Application.ScreenUpdating = True
End Sub

复制代码

wudixin96 · 发表于 2011-11-7 12:56

Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("wscript.shell")
Set f = fso.GetFolder(".")
Set fc = f.Files
For Each f1 In fc
If LCase(Right(f1.Name, 3)) = "doc" Then
Set wd = CreateObject("word.application")
Set wdoc = wd.Documents.Open(ws.currentdirectory & "" & 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
End If
Next
Next
wdoc.Save
wdoc.Close
wd.Quit
Set wdoc = Nothing
Set wd = Nothing
End If
Next
Set fso = Nothing
Set f = Nothing
Set ws = Nothing
Set fc = Nothing
MsgBox "处理完成"

复制代码

把代码复制到TXT文件，然后另存为VBS文件，放到DOC同一个文件夹里，试试看行不？

kqbt · 发表于 2011-11-7 13:54

goodluck1234 发表于 2011-11-7 13:48
谢谢，但是运行宏出出现一个错误。是我哪个地方弄得不对吗？

我还无法识别错误信息，不知道具体错误出在哪一句代码？

wudixin96 · 发表于 2011-11-7 13:55

goodluck1234 发表于 2011-11-7 13:41
谢谢，但是上双击那个VBS 后提示错误，我应该怎么办呢？

是不是你复制的有问题？？

goodluck1234 · 发表于 2011-11-7 13:41

wudixin96 发表于 2011-11-7 12:56
把代码复制到TXT文件，然后另存为VBS文件，放到DOC同一个文件夹里，试试看行不？

谢谢，但是上双击那个VBS 后提示错误，我应该怎么办呢？

goodluck1234 · 发表于 2011-11-7 13:48

kqbt 发表于 2011-11-7 12:23
参考如下VBA代码：

谢谢，但是运行宏出出现一个错误。是我哪个地方弄得不对吗？

goodluck1234 · 发表于 2011-11-7 14:12

goodluck1234 发表于 2011-11-7 13:41
谢谢，但是上双击那个VBS 后提示错误，我应该怎么办呢？

呵呵，谢谢老师。已经搞定了，是我刚才没有把代码前的序号去掉。但是能不能在最后弹出的“处理完成”的那个窗口弹出修改的文件个数与修改的文件名呢？

		自动登录	找回密码
密码			免费注册

[求助] 批量删除WORD表格中含关键字的一行

点评