实用VBA：14.修改word文件“创建内容的时间”属性

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

使用这个方法同样没有实现更新创建时间的效果。

此处暂时把这个坑留在这里，如果你有更好的方法实现，欢迎留言交流。我找到解决办法之后也会回来填坑的。

喜欢的话欢迎关注、点赞、转发或评论交流！

点赞富三代，分享美一生！ ^|^