批量替换word页脚一样的文字

wcg129

一批word文件，每个文件页脚需要批量替换，文字“生产日期”需要改成“制造日期”。有什么办法批量处理？谢谢！

wcg129

1. Sub EditPagefooter()
   
2. Dim str1, str2 As String
   
3. str2 = "制造日期"
   
4. str1 = "生产日期"
   
5. ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter '设置位置在页脚
   
6.       Selection.HomeKey Unit:=wdStory '光标置于文件首
   
7.         If Selection.Find.Execute(str1) Then  '查找到指定字符串
   
8.            Selection.Text = str2 '替换字符串
   
9.         End If
   
10. End Sub

复制代码

这一段可以编辑页脚的代码，如何让它在D盘下面t文件夹中所有文件循环替换？

ykqrs

你模拟一个附件，感觉用DIR配合DO..........LOOP循环可以

wcg129

ykqrs 发表于 2019-10-17 08:31
你模拟一个附件，感觉用DIR配合DO..........LOOP循环可以

修改页脚.rar (116.52 KB, 下载次数: 4)

2019-10-17 08:47 上传

点击文件名下载附件

只上传部分，还有很多，谢谢！

ykqrs

试了一下没成功，可以循环打开WORD文档，但不知如何循环文档中的页脚，搜索了一下也没搜到 修改页脚.rar (130.98 KB, 下载次数: 1)

2019-10-17 09:40 上传

点击文件名下载附件

wcg129

ykqrs 发表于 2019-10-17 09:41
试了一下没成功，可以循环打开WORD文档，但不知如何循环文档中的页脚，搜索了一下也没搜到

非常感谢！
继续求助。

ykqrs

东拼西凑，可用，话说，我也是刚刚接触WORD，呵呵 修改页脚.rar (134.56 KB, 下载次数: 4)

2019-10-17 12:11 上传

点击文件名下载附件

ykqrs

调试的时候传错了文档，是这个 修改页脚.rar (135.02 KB, 下载次数: 33)

2019-10-17 13:21 上传

点击文件名下载附件

wcg129

ykqrs 发表于 2019-10-17 13:21
调试的时候传错了文档，是这个

非常感谢！