请教问题将文件及子文件夹下所有的word 文件改名

jiminyanyan

zhaogang1960 发表于 2014-5-19 12:56
请测试附件

赵老师，我想把文件夹及子文件夹中的word 的内容由 蓝天 改为白云，怎么不成功呢。。。。 批量替换问题V1.2.rar (36.38 KB, 下载次数: 24)

2014-5-19 21:46 上传

点击文件名下载附件

zhaogang1960

jiminyanyan 发表于 2014-5-19 21:47
赵老师，我想把文件夹及子文件夹中的word 的内容由 蓝天 改为白云，怎么不成功呢。。。。

1. Private Sub 确定_Click()
   
2.      On Error Resume Next
   
3.     Dim Fso As Object, Folder As Object, arrf$(), mf&
   
4.     Dim str1 As String
   
5.     Dim str2 As String
   
6.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
7.     str1 = 新名称.Text
   
8.     str2 = 替换名称.Text
   
9.     'Set Folder = Fso.GetFolder(路径)
   
10.     'Call GetFiles(Folder, str1, str2)
    
11.     Set Folder = Fso.GetFolder(路径)
    
12.     Call 替换(Folder, arrf, mf)
    
13.     With CreateObject("Word.Application")
    
14.         .Visible = False
    
15.         For i = 1 To mf
    
16.             .Documents.Open arrf(i)
    
17.             .Selection.HomeKey Unit:=6
    
18.             Do While .Selection.Find.Execute(str1)
    
19.                 .Selection.Text = str2 '替换字符串
    
20.                 .Selection.HomeKey Unit:=6
    
21.             Loop
    
22.             .Documents.Close True
    
23.         Next
    
24.         .Quit
    
25.     End With
    
26.     MsgBox "更改完毕！"
    
27.     Set Folder = Nothing
    
28.     Set Fso = Nothing
    
29.    
    
30. End Sub

复制代码

1. Sub 替换(ByVal Folder As Object, arr$(), m&)
   
2.     Dim SubFolder As Object
   
3.     Dim file As Object
   
4.     For Each file In Folder.Files
   
5.         If file.Name Like "*.doc" Then
   
6.             m = m + 1
   
7.             ReDim Preserve arr(1 To m)
   
8.             arr(m) = file
   
9.         End If
   
10.     Next
    
11.     For Each SubFolder In Folder.SubFolders
    
12.         Call 替换(SubFolder, arr, m)
    
13.     Next
    
14.     Set SubFolder = Nothing
    
15. End Sub
    

复制代码

zhaogang1960

CreateObject("Word.Application")——打开Word不要放在子程序中，该子程序会调用多次，Word也就会重复打开
请测试附件
批量替换问题V1.2.rar (35.4 KB, 下载次数: 329)

2014-5-19 22:12 上传

点击文件名下载附件

yf_home

jiminyanyan 发表于 2014-5-19 21:05
批量替换问题V1.1

不错，提点建议，如果按以下修改，会更具有通用性。


……

jiminyanyan

yf_home 发表于 2014-5-20 10:20
不错，提点建议，如果按以下修改，会更具有通用性。

关键字   和  序列号是什么意思，没看懂。。。。

yf_home

jiminyanyan 发表于 2014-5-20 17:43
关键字   和  序列号是什么意思，没看懂。。。。

关键字：比如, AA
序列号，比如：01，则命名规则为：AA01/AA02/AA03
序列号，比如：001，则命名规则为：AA001/AA002/AA003


.

592rmb

好，方便，期待更完善版本

yamde

很好，学习了。

02761752696

谢谢     分享

02761752696

谢谢   分享