替换文件夹中的所有word文件中的页眉表格中指定内容

有情8

想要实现的功能是：替换文件夹中的所有word文件（每个word的修订日期不一样）中的页眉表格中的”最近修订日期：2023/**/**“替换为”最近修订日期：2025/02/15“
但是好像只能以只读模式才行使用通配符，最后无法保存替换后的word文件（因其只读模式)。

请大神帮我看看到底怎么回事，谢谢。

还想用代码批量让”已修订次数：*次”替换为“已修订次数：*+1次”（2次变3次)

批量让”版次：3次"也替换为"版次：*+1次"。
附件.zip (23.1 KB, 下载次数: 9)

2025-3-12 22:12 上传

点击文件名下载附件

墨策

这是修改日期的批处理代码，替换其他内容你自己看着改就行，也可以把查找和替换分别放进数组，一次性完成

墨策

1. Sub 批处理_查找替换页眉内容()
   
2.     Application.ScreenUpdating = 0
   
3.     With Application.FileDialog(msoFileDialogFolderPicker)
   
4.         .Title = "请选择需要批量打印的文件夹"
   
5.         If .Show = -1 Then
   
6.             路径 = .SelectedItems(1)
   
7.         Else
   
8.             MsgBox "没有选择文件夹，程序退出...", , "操作取消"
   
9.             Exit Sub
   
10.         End If
    
11.     End With
    
12.    
    
13.     Set FSO对象 = CreateObject("Scripting.FileSystemObject")
    
14.     Set 文件夹 = FSO对象.GetFolder(路径)
    
15.     For Each 文件 In 文件夹.files
    
16.         Call test1(CStr(文件))
    
17.     Next
    
18.     Application.ScreenUpdating = 1
    
19. End Sub
    
20. Sub test1(文件路径)
    
21.     Dim 文档 As Document
    
22.     Set 文档 = Documents.Open(文件路径)
    
23.     '把代码放到这里，注意如果会用到activedocument，那么改成文档.
    
24.     Dim 页眉 As HeaderFooter, 节 As Section
    
25.     For Each 节 In 文档.Sections
    
26.         For Each 页眉 In 节.Headers
    
27.             With 页眉.Range.Find
    
28.                 .ClearFormatting
    
29.                 .MatchWildcards = 1
    
30.                 .text = "最近修订日期：2023/[0-9]{2}/[0-9]{2}"
    
31.                 .Replacement.ClearFormatting
    
32.                 .Replacement.text = "最近修订日期：2025/02/15"
    
33.                 .Execute Replace:=wdReplaceAll
    
34.             End With
    
35.         Next
    
36.     Next
    
37.     文档.Save
    
38.     文档.Close
    
39. End Sub
    

复制代码

batmanbbs

有情8

墨策 发表于 2025-3-13 07:52
这是修改日期的批处理代码，替换其他内容你自己看着改就行，也可以把查找和替换分别放进数组，一次性完成

谢谢老师，运行有效

有情8

墨策 发表于 2025-3-13 07:52

运行有效，谢谢老师

有情8

墨策 发表于 2025-3-13 07:52

谢谢老师，有效

一生平安4017

这些老师都是高手