1.需求场景
今天遇到一个需求,需要把word文件中“创建内容的时间”这个属性进行修改。这个属性在文件右键“详细信息”中可以看到,但不可修改,点击属性左下角的“删除属性和个人信息”时,其他信息都可以删除,但这个时间无法删除。
2.解决思路
这一个日期时间是在打开word软件点击“新建”按钮,新建空白文档时候记录的。无论何时保存文件,这个时间都是不变的;而且文件换到其他电脑上编辑之后,再次保存时只会更新“修改时间”而不会影响这个时间。复制粘贴文件产生的副本也会带有这个时间,而且和原来的文件一致。打开word文件另存为不同文件名的文件时,这个时间会更新为另存时的时间。因为这个信息是保存在文件属性中的,考虑可以通过第三方软件、批处理命令或者VBA方式进行修改。搜索到了使用第三方软件的介绍,总觉得有些麻烦,主要是不想因此再装个软件,而且很可能还要付费;搜索到脚本处理的方法,需要安装powershell,我暂时没装,还没尝试;VBA是最简单的,搜索时,AI会自动生成一个更新这个时间的自定义方法,尝试了两次,两个方法都没有能实现效果。先记下来,待实现之后再来更新。
3.VBA实现
方法一:
Sub ModifyCreationTime()
Dim doc As Document
Set doc = ActiveDocument
'获取当前的创建时间
Dim creationTime As Date
creationTime = doc.BuiltInDocumentProperties("Creation Date")
Debug.Print "1.旧时间:" & creationTime
'增加8小时
creationTime = DateAdd("h", 8, creationTime)
Debug.Print "2.增加后:" & creationTime
'更新创建时间属性
doc.BuiltInDocumentProperties("Creation Date").Value = creationTime
doc.Save
Debug.Print "3.新时间:" & doc.BuiltInDocumentProperties("Creation Date")
MsgBox "更新完成"
End Sub
因为无法实现效果,其中的debug语句是我自己添加进去的。编译不报错了,感觉应该是可以的,目前还没能实现。
我是想对原文件时间加8小时,从debug信息来看,运算已经完成了,但是最后对文件属性的赋值没能成功,不知道是什么原因。
方法二:
Sub AdjustCreationTime()
Dim doc As Document
'设置当前活动文档为doc对象
Set doc = ActiveDocument
'获取原始创建日期和时间
Dim originalDateAndTime As Date
originalDateAndTime = doc.BuiltInDocumentProperties("Creation Date").Value
Debug.Print "1.初始创建时间:" & originalDateAndTime
'计算修改后的创建日期和时间
Dim newDateAndTime As Date
'newDateAndTime = Now()
newDateAndTime = originalDateAndTime + TimeSerial(8, 0, 0)
Debug.Print "2.新创建时间:" & newDateAndTime
'更新文档属性中的创建日期和时间
doc.BuiltInDocumentProperties("Creation Date") = newDateAndTime
doc.Save
Debug.Print "3.更新后的创建内容时间为:" & doc.BuiltInDocumentProperties("Creation Date").Value
MsgBox "更新完成"
End Sub
使用这个方法同样没有实现更新创建时间的效果。
此处暂时把这个坑留在这里,如果你有更好的方法实现,欢迎留言交流。我找到解决办法之后也会回来填坑的。
喜欢的话欢迎关注、点赞、转发或评论交流!
点赞富三代,分享美一生! ^|^