Excel、Word的作者、标题、主题、时间的读取与修改

你吃错药了吧

文档的BuiltinDocumentProperties属性

excel，word文档，均有一个BuiltinDocumentProperties属性集合。根据微软帮助：该集合代表指定工作簿的所有内置文档属性。 此为只读属性。只读属性，指只能读取，不能设置。
Sub ShowProps()
Dim objProps As Object
Set objProps = ThisWorkbook.BuiltinDocumentProperties '按F8运行至此
End Sub
运行此代码，查看本地窗口，可看到有34个属性组成的集合，其中有“title","subject","author"等。


在EXCEL属性里，可找到这个窗口。这个窗口被一般办公人员忽视，比如有些办公人员抄袭别人作品，很可能这个作者名都没改写。


修改文档属性

Sub EditProps()
MsgBox ThisWorkbook.Author
ThisWorkbook.Author = "xiaofu-2"
MsgBox ThisWorkbook.Author
ThisWorkbook.BuiltinDocumentProperties("Author") = "xiaofu-3"
MsgBox ThisWorkbook.Author
End Sub
上述代码有点奇怪的地方就是，既然author是BuiltinDocumentProperties属性集合中的，那么一般地，我们应该是这样处理：ThisWorkbook.BuiltinDocumentProperties("Author") = "xiaofu-3" ，但实际上这句同样有作用：ThisWorkbook.Author = "xiaofu-2"。而且这里有一个问题，即，打出thisworkbook.以后，并不能智能地找到author这个属性。
注意，微软说：内置文档属性为只读属性，但实际上竟然是可以修改的。