怎样批量修改word的创建时间、修改时间

Question

如题，重新复制一下创建时间是变成现在了，打开word随便改一下保存修改时间也变成现在了，但是很多word怎么样批量修改"修改时间"？

Answer 1

批量修改文件的创建时间和修改时间，可以看看这个：

步骤1，下载优速文件批量重命名工具软件后安装打开，点击软件首页的【文件重命名】功能，进入下一步。

步骤2，点击左上角【添加文件】将需要修改时间属性的文件导入到软件中，可以一次性添加多个批量处理哦。然后进行设置，如下图所示：点击命名方式右边的下拉框选择“属性”；在修改时间右边设置新的时间，精确到秒（案例中我们设置成：2021/12/4 12:12:12）。

步骤3，然后点击【开始重命名】按钮，开启软件程序。当弹出“重命名成功”的提示框后说明修改完成。

步骤4，查看刚刚修改好的文件，右击属性可以看到，文件的修改时间已经变成了步骤2设置的的时间（2021/12/4 12:12:12）。

Answer 2

普通的替换恐难完成任务，一个网友曾经写过一段宏代码，你试试好不好使。

打开Word文档后，按“Alt+F11”进入VBE，在左侧工程管理器中，选中“Normal”，然后点上面的“插入”菜单下的“模块”，在右下侧的编辑窗口中输入如下代码：

'=========代码复制开始============
Sub 替换日期()
Dim objRegExp As Object, matches As Object, match As Object, retStr$
Set objRegExp = CreateObject("VBScript.RegExp") '建立正则表达式对象
With objRegExp
.Pattern = "(\d{1,2})\/(\d{1,2})\/(\d{4})" '匹配日期字符串
.IgnoreCase = True
.Global = True
Set matches = .Execute(ActiveDocument.Content)
End With
Application.ScreenUpdating = False
With ActiveDocument.Content.Find
For Each match In matches '遍历Matches集合
.ClearFormatting
.Replacement.ClearFormatting
.Text = match.Value
.Replacement.Text = match.submatches(2) & "年" & match.submatches(0) & "月" & match.submatches(1) & "日"
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceOne
Next
End With
Application.ScreenUpdating = True
Set objRegExp = Nothing
End Sub
'=========代码复制结束============

完成后关掉VBE窗口，回到Word文档，按下“Alt+F8”组合键，运行“替换日期”宏就可以了。本回答被提问者和网友采纳