如何批量删除很多个WORD中相同文字
3个回答
推荐于2017-10-24 · 知道合伙人软件行家
关注
展开全部
用vba可以实现。
做个循环,遍历word文件。
循环体内:打开word文档;
查找替换关键字;
关闭word文档
下面这段代码是excel vba中读取文件名的,可以参考:
经常会用到读取文件名,每次找案例复制这段代码有点麻烦,就在这是放一个,便于查找。
注:myp=需要读取的文件夹名称
Sub 读取文件名(MYP)
Sheets("Merit Tool 调薪工具").Activate
Range("ba1:ba100").ClearContents
Dim FILENAME As String
Dim mypath As String
Dim ZZ As Integer
mypath = ThisWorkbook.Path & "\" & MYP
ZZ = 1
myfile = Dir(mypath & "\" & "*.xls*")
Do While myfile <> ""
If myfile = "" Then
Exit Do '当MyFile为空的时候就说明已经遍历完了,这时退出Do,否则还要运行一遍
End If
Cells(ZZ, 53) = myfile
ZZ = ZZ + 1
myfile = Dir '第二次读入的时候不用写参数
Loop
End Sub
做个循环,遍历word文件。
循环体内:打开word文档;
查找替换关键字;
关闭word文档
下面这段代码是excel vba中读取文件名的,可以参考:
经常会用到读取文件名,每次找案例复制这段代码有点麻烦,就在这是放一个,便于查找。
注:myp=需要读取的文件夹名称
Sub 读取文件名(MYP)
Sheets("Merit Tool 调薪工具").Activate
Range("ba1:ba100").ClearContents
Dim FILENAME As String
Dim mypath As String
Dim ZZ As Integer
mypath = ThisWorkbook.Path & "\" & MYP
ZZ = 1
myfile = Dir(mypath & "\" & "*.xls*")
Do While myfile <> ""
If myfile = "" Then
Exit Do '当MyFile为空的时候就说明已经遍历完了,这时退出Do,否则还要运行一遍
End If
Cells(ZZ, 53) = myfile
ZZ = ZZ + 1
myfile = Dir '第二次读入的时候不用写参数
Loop
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询